Bonjour à tous,
j'ai dans une feuille en cellule A1 A2 A3, la lettre O qui se met automatiquement par simple clic. Je souhaiterais dans B1 B2 B3 mettre la lettre N et en C1 C2 C3 la lettre R.
Voici le code à reprendre
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("A1:A3"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "X"
Cancel = True
Else
If Target = "X" Then
Target = ""
Cancel = True
End If
End If
End Sub
Je vous joint un fichier avec la macro
Merci pour votre aide