Bonjour,
L'extrait de code suivant fonctionne, mais le problème est que si je clique une seconde fois sur la même cellule, il ne se produit rien. Je dois sélectionner une autre cellule (pas pratique !) avant de revenir sur la cellule initiale.
Sans doute faut-il ajouter quelque chose ?!
Je vous remercie d'avance pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Row > 10 And Target.Row < 81 And Target.Column = 32 Then If Target.Offset(0, 2).Value = "<<" Then Target.Offset(0, 2).Value = "" Else Target.Offset(0, 2).Value = "<<" End If End If End Sub
Partager