Microsoft 365 Macro qui permet de basculer entre oui et non

[pat66]

Bonjour le forum,

je souhaite écrire une une macro qui permet à chaque clic de basculer entre oui et non dans la cellule G101, cette macro sera attribuée à une forme située sur la même feuille

merci d'avance pour vos conseils

cdt

 

[don_pets]

Hum je connais les events pour les double clic, clic droit

mais suis pas sur sur pour le clic gauche !

 

[jpb388]

bonjour
a mettre dans un module et a relier avec la forme
si j'ai bien compris le problème

Sub oui_non()
      Select Case StrConv(Range("G101").Text, vbUpperCase)
            Case "", "NON": Range("G101") = "OUI"
            Case "OUI": Range("G101") = "NON"
      End Select
End Sub

 

[sylvanu]

Bonsoir Pat, Don_pets, Job,
Un essai en PJ avec action par clic gauche sur G101, avec.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [G101]) Is Nothing Then
        If Target = "OUI" Then Target = "NON" Else Target = "OUI"
        [F101].Select
    End If
End Sub

ou par clic sur forme avec :

Sub OuiNon()
    If [G101] = "OUI" Then [G101] = "NON" Else [G101] = "OUI"
End Sub

 

[pat66]

bonjour le forum,
bonjour le fil

vos solutions fonctionnement parfaitement, j'opte pour la plus courte de sylvanu, bien que la solution de jpb388 sera très utile dans d'autres circonstances, comme par exemple d'ajouter un msgbox

Sub OuiNon()
    If [G101] = "OUI" Then [G101] = "NON" Else [G101] = "OUI"
End Sub

merci à tous les deux

cdt