Worksheet_selectionChange(ByVal Target As Range) - pb quand "re" clic sur cellule
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:
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 |