Microsoft 365 recuperer les valeurs des optionbutton oui non.

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

  • LaGuerreDesBoutons(V2).xlsm
    49.8 KB · Affichages: 1
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • LaGuerreDesBoutons(V2).xlsm
    46.5 KB · Affichages: 2

gillesda

XLDnaute Nouveau
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.
 

Statistiques des forums

Discussions
315 083
Messages
2 116 051
Membres
112 644
dernier inscrit
wad