Christian0258
XLDnaute Accro
Bonjour à tout le forum,
Je souhaiterais modifier cette macro pour mettre après un click Madame, un autre click Monsieur...
Merci pour votre aide.
Bien amicalement,
Christian
[Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A1:A6], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
If Target = "" Then
Target = "Madame"
Else
Target = ""
End If
Application.EnableEvents = True
End If
End Sub]
Je souhaiterais modifier cette macro pour mettre après un click Madame, un autre click Monsieur...
Merci pour votre aide.
Bien amicalement,
Christian
[Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A1:A6], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
If Target = "" Then
Target = "Madame"
Else
Target = ""
End If
Application.EnableEvents = True
End If
End Sub]