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
Sub OuiNon()
If [G101] = "OUI" Then [G101] = "NON" Else [G101] = "OUI"
End Sub
Sub oui_non()
Select Case StrConv(Range("G101").Text, vbUpperCase)
Case "", "NON": Range("G101") = "OUI"
Case "OUI": Range("G101") = "NON"
End Select
End Sub
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
Sub OuiNon()
If [G101] = "OUI" Then [G101] = "NON" Else [G101] = "OUI"
End Sub
Sub OuiNon()
If [G101] = "OUI" Then [G101] = "NON" Else [G101] = "OUI"
End Sub