Discussion :

[jpma75]

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é :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Row > 10 And Target.Row < 29 And Target.Column = 32 Then

par :

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 :

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

J'en appelle donc à vos lumières et vous remercie d'avance pour votre aide.
Cdt

[unparia]

Bonjour
Peux-tu s'il te plait mieux définir sur ce que tu entends par "cliquer deux fois" ?
Comme il n'est pas possible de recliquer sur une cellule déjà cliquée, je suppose que tu veux dire que tu ne veux plus changer la valeur "<<" attribuée par un clic, y compris si tu y "reviens" ultérieurement.
Est-ce cela, que tu veux dire ?

[unparia]

Regarde alors (exemple) ce petit jeu rigolo de "n'y revenez pas"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private plage As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If plage Is Nothing Then Set plage = Columns(Columns.Count)
  If Not Application.Intersect(Target, plage) Is Nothing Then
   Exit Sub
 End If
 If Not Application.Intersect(Target, Range("A1:A28")) Is Nothing Then
    If Target.Offset(0, 2).Value = "<<" Then
        Target.Offset(0, 2).Value = ""
    Else
        Target.Offset(0, 2).Value = "<<"
    End If
 End If
  Set plage = Union(plage, Target)
End Sub

[mercatog]

Je pense qu'il veut parler d'une sélection multiple.
Au quel cas, un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
 
If Not Intersect(Target, Range("AF11:AF28")) Is Nothing Then
    For Each c In Intersect(Target, Range("AF11:AF28"))
        If c.Offset(0, 2).Value = "<<" Then
            c.Offset(0, 2).Value = ""
        Else
            c.Offset(0, 2).Value = "<<"
        End If
    Next c
End If
End Sub

[joe.levrai]

Bonjour,

puisqu'il parle "d'inadvertance", j'entend par là qu'il souhaite que le traitement de l'évènement ne s'applique qu'en cas de sélection d'une seule cellule.


Si tel est le cas, ajouter cette condition au début de la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Cells.Count > 1 Then Exit Sub

[mercatog]

Effectivement joe