Bonjour,
Si, par inadvertance, je clique sur plus d'une cellule de la plage "AF11:AF28", cela génère une erreur... compréhensible.
Pour essayer de corriger ça,
j'ai remplacé :
par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part If Target.Row > 10 And Target.Row < 29 And Target.Column = 32 Then
.
Code : Sélectionner tout - Visualiser dans une fenêtre à part If Not Application.Intersect(Target, Range("AF11:AF28")) Is Nothing Then
Mais, le problème reste manifestement entier !
Ici le code un peu plus complet :
J'en appelle donc à vos lumières et 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
11
12 '-- remplace ligne suivante -- If Not Application.Intersect(Target, Range("AF11:AF28")) Is Nothing Then '-- remplacé par ligne antérieure : ' If Target.Row > 10 And Target.Row < 29 And Target.Column = 32 Then 'colonne AF '-- If Target.Offset(0, 2).Value = "<<" Then Target.Offset(0, 2).Value = "" Else Target.Offset(0, 2).Value = "<<" End If
Cdt
Partager