Microsoft 365 recuperer les valeurs des optionbutton oui non.

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gillesda

XLDnaute Nouveau
Bonjour à tous.
Autodidacte, j'avais eu recours au forum que je remercie, pour traiter une question sur des optionsbutton et me voila une fois de plus coincé.
En effet, j'ai créer un userform avec un frame à deux optionbutton "oui,non" que je souhaite éventuellement modifié dans un
formulaire de modification (normal) mais je n'y parviens.
Sans doute simple mais je ne trouve pas.
SI quelqu'un pouvait jeté un coup d'œil, ça me permettrait de finir ce sujet.

Merci à tous.

Cordialement.
GillesDA.
 

Pièces jointes

Solution
Bonjour Gilles,
Vous lisez déjà les OptionsButton avec :
VB:
If OBevacOui.Value = True Then
    ActiveCell.Offset(0, 4) = "OUI"
    Else
     ActiveCell.Offset(0, 4) = "non"
End If
L'écriture sera du même genre :
Code:
OBevacOui.Value = True
ou
OBevacOui.Value = False
En PJ dans Saisie le bouton Test oui/non permet d'inverser les deux options par appui successifs avec :
Code:
Private Sub CommandButton1_Click()
If Me.OBevacOui = True Then
    Me.OBevacOui = False
    Me.OBevacNon = True
Else
    Me.OBevacOui = True
    Me.OBevacNon = False
End If
End Sub
Bonjour Gilles,
Vous lisez déjà les OptionsButton avec :
VB:
If OBevacOui.Value = True Then
    ActiveCell.Offset(0, 4) = "OUI"
    Else
     ActiveCell.Offset(0, 4) = "non"
End If
L'écriture sera du même genre :
Code:
OBevacOui.Value = True
ou
OBevacOui.Value = False
En PJ dans Saisie le bouton Test oui/non permet d'inverser les deux options par appui successifs avec :
Code:
Private Sub CommandButton1_Click()
If Me.OBevacOui = True Then
    Me.OBevacOui = False
    Me.OBevacNon = True
Else
    Me.OBevacOui = True
    Me.OBevacNon = False
End If
End Sub
 

Pièces jointes

Bonjour Sylvanus.
Je vous remercie de votre réponse et j'en ferai bon usage. J'avais tourné autour de ces solutions sans pour autant les trouver. Toutes mes excuses pour le retard de réponse, mes journées sont bien remplies.
Bonne journée.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour