Jacques25bis
XLDnaute Junior
Bonjour à tous,
Je voudrais améliorer un fichier avec 77 optionbuttons avec différents Groupname associés j'ai donc plusieurs demandes les concernant :
1 - Pour chaque groupe de 2 ou 3 optionbuttons j'incrémente une cellule en fonction de celui qui est sélectionné. Pour cela j'utilise :
Private Sub OptionButton1_Click()
Range("i7").Value = 0
End Sub
Private Sub OptionButton2_Click()
Range("i7").Value = 1
End Sub
Sachant qu'il n'y a pas que 0 ou 1 et que j'ai, comme dis plus haut, 2 ou 3 optionbutton par groupname, est-ce qu'il n'y a pas plus simple pour affecter une valeur à la cellule?
2 - Je souhaiterai par un bouton de réinitialisation, tous les remettre à 0, j'ai essayé différentes méthodes :
Dim objet As OptionButton
For Each objet In Sheets("Feuil1").OptionButtons
objet.Value = False
Next
Avec une boucle For Next (j'y croyais pas trop
For i = 1 To 54
OptionButton & i.Value = False
Next
Rien ne marche, est-ce que ça vient des groupnames? si oui comment faire?
Je vous joins un fichier très simplifié.
Merci d'avance pour l'aide que vous pourrez m'apporter.
Jack
Je voudrais améliorer un fichier avec 77 optionbuttons avec différents Groupname associés j'ai donc plusieurs demandes les concernant :
1 - Pour chaque groupe de 2 ou 3 optionbuttons j'incrémente une cellule en fonction de celui qui est sélectionné. Pour cela j'utilise :
Private Sub OptionButton1_Click()
Range("i7").Value = 0
End Sub
Private Sub OptionButton2_Click()
Range("i7").Value = 1
End Sub
Sachant qu'il n'y a pas que 0 ou 1 et que j'ai, comme dis plus haut, 2 ou 3 optionbutton par groupname, est-ce qu'il n'y a pas plus simple pour affecter une valeur à la cellule?
2 - Je souhaiterai par un bouton de réinitialisation, tous les remettre à 0, j'ai essayé différentes méthodes :
Dim objet As OptionButton
For Each objet In Sheets("Feuil1").OptionButtons
objet.Value = False
Next
Avec une boucle For Next (j'y croyais pas trop
For i = 1 To 54
OptionButton & i.Value = False
Next
Rien ne marche, est-ce que ça vient des groupnames? si oui comment faire?
Je vous joins un fichier très simplifié.
Merci d'avance pour l'aide que vous pourrez m'apporter.
Jack