benosty
Messages postés6Date d'inscriptiondimanche 19 février 2012StatutMembreDernière intervention28 février 2012
-
20 févr. 2012 à 00:13
mjpmjp
Messages postés115Date d'inscriptiondimanche 6 avril 2003StatutMembreDernière intervention29 juin 2012
-
21 févr. 2012 à 21:56
Bonjour le forum,
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.
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 20 févr. 2012 à 00:47
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
mjpmjp
Messages postés115Date d'inscriptiondimanche 6 avril 2003StatutMembreDernière intervention29 juin 2012 21 févr. 2012 à 21:56
Bonjour
Pour la Premiere partie
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