Je réalise un userform.
Dans une frame je placé cinq OptionButton. Lorsque je coche un de ces OptionButton je souhaite lire dans la cellule A1 la valeur de OptionButton.caption qui est coché. Comment faire?
Je souhaite également faire l'opération dans le sens inverse:
Lecture de A1 >>> comparaison avec les différents OptionButton de la frame (OptionButton1.caption, OptionButton2.caption, OptionButton3.caption etc...)
>>> "cochage" de l'OptionButton pour laquelle la comparaison est vraie.
Bonjour,
la cellule A1 ?
la cellule A1 de quel contrôle ?
Es-tu bien certain de développer sous VB.Net (la présente section du forum) ?
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Private Sub ValueOptionButtonChange()
If UserForm1.OptionButton1.Value True Then Range("A1").Value UserForm1.OptionButton1.Caption
If UserForm1.OptionButton2.Value True Then Range("A1").Value UserForm1.OptionButton2.Caption
If UserForm1.OptionButton3.Value True Then Range("A1").Value UserForm1.OptionButton3.Caption
End Sub
a la création du form,
Tous les OptionButton.GroupName identique et pour activer OptionButton.Value = True
Pour chaque OptionButton1 2 3
Private Sub OptionButton2_Click()
Call ValueOptionButtonChange
End Sub
Pour la Deuxieme partie
Pour chaque OptionButton1 2 3
If UserForm1.OptionButton2.Caption Range("A1").Value Then UserForm1.OptionButton2.Value True
