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