Insertion lettres pas simple clic
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
Merci JPBT84 pour ta réponse rapide.
On s'en approche mais le résultat doit être indépendant de la colonne A. On doit pouvoir cliquer dans une cellule sans que les trois solutions se mettent.
bonne boulot quand même.
Merci
Merci infiniment. Ça marche à merveille!!! Quelle maitrise!!!
Super top le code.
Très bonne journée
Cdt