Bug sur sélections multiples (par inadvertance)

Version imprimable

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:

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

par :

Code:

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:

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

13/05/2016, 15h33
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 ?

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

Code:

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

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

Code:

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

13/05/2016, 16h45
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:

If Target.Cells.Count > 1 Then Exit Sub
13/05/2016, 17h14
mercatog

Effectivement joe
13/05/2016, 20h15
unparia

Ah ... c'est donc de "multiselection" (choix simultané de plusieurs articles), qu'il parlait et non de sélections multiples (répétées)...
14/05/2016, 14h31
jpma75

Bonjour à tous,
Oui, il s'agissait bien de prévoir une sortie en cas de sélection multiple.
unparia : Désolé pour mon manque de clarté !
mercatog : Merci pour ta solution (et la compréhension de ma question :-) )
joe.levrai : Merci pour cette solution simple et efficace, qui convient parfaitement à mon code initial !
Encore merci à vous trois !
Cdt