Optionbutton lecture / Optionbutton comparaison

Signaler
Messages postés
6
Date d'inscription
dimanche 19 février 2012
Statut
Membre
Dernière intervention
28 février 2012
-
Messages postés
115
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
29 juin 2012
-
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.

Merci.
A+ benjamin

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
233
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
Messages postés
115
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
29 juin 2012

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


@+JP