Microsoft 365 recuperer les valeurs des optionbutton oui non.

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Mai 2023

• #2

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

Vote positif 0 Vote négatif

Solution

G

gillesda

XLDnaute Nouveau

• 1 Juin 2023

• #3

Bonjour.
Pris note de ces éléments.

Cordialement.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2023

• #4

Bonjour Gillesda,
Dites au moins si la solution du post #2 vous convient.

 

Vote positif 0 Vote négatif

G

gillesda

XLDnaute Nouveau

• 1 Juin 2023

• #5

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.

 

Vote positif 0 Vote négatif

G

gillesda

XLDnaute Nouveau

• 1 Juin 2023

• #6

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.
Bonne journée.

 

Vote positif 0 Vote négatif