Salut orocher,
D'abord petite question, si tu ne veux qu'un choix possible pourquoi n'utilises tu pas les optionbuttons, il sont d'entrée de jeux "programés" pour ne permettre qu'un choix (un seul choix sur chaque feuille) ?
le code pour les mettre en place est quasiment identique :
Code :
- ActiveSheet.OLEObjects.Add(classtype:="Forms.OptionButton.1", Link:=False, _
- DisplayAsIcon:=False, Left:=l + 43, Top:=t + 2, Width:=12, Height:=11). _
- Select
|
ton test sur les "value" il doit pour fonctioner passer par la méthode object de l'oleobject :
Code :
- MsgBox(ActiveSheet.OLEObjects(i).Object.Value)
|
et là tu peux incrémenter tes objects par i et les valeur renvoyées sont bien true ou false.
Ta boucle sur le test donnes au peu près ça :
Code :
- Sub test()
- Dim i, label, default_value
- i = 1
- For i = 1 To ActiveSheet.OLEObjects.Count
- If ActiveSheet.OLEObjects(i).Object.Value = True Then
- label = Cells(i + 4, 1).Value
- default_value = Cells(i + 4, 5).Value
- MsgBox ("i : " & i & " / label :" & label & " / dv :" & default_value)
- End If
- Next
- End Sub
|
(j'ai mis une msgbox pour le résultat car je n'ai pas la fonction que tu appelles)
Si tu tiens a utiliser des checkbox plutôt que des optionbuttons ça marche de la même manière.
bon courage
---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)