Discussion :

[jpma75]

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

[cerede2000]

C'est le principe du selectionChange

Si la sélection change alors je m’exécute sinon je ne suis pas appelé.
Donc si pas de changement de cellule pas de changement de sélection donc pas d'appel à cet event.

Ce que tu peux faire à la limite c'est une fois que tu à réaliser l'action sur ta cellule en colonne 32 tu sélectionne la cellule de la colonne d'a côté

[jpma75]

Bonjour Cerede2000,
A vrai dire, c'est ce que j'avais pensé faire, mais je ne trouvais pas ça très académique. Néanmoins, comme il s'agit de faire une sélection/dé-sélection dans une même colonne, ce n'est pas très pratique de passer de gauche à droite (ou inversement). Merci quand-même pour cette proposition.
Cdt

PS : J'attends encore un peu avant de mettre "Résolu", au cas où...

[cerede2000]

En gros tu veux faire comme une checkbox

Dans ce cas si tu veux que ça fonctionne à chaque fois pourquoi ne pas faire ça sur l'event Worksheet_BeforeDoubleClick ou
A chaque double clic sur la cellule tu fais ton action

Pense à Cancel = True pour éviter de rentrer en édition dans la cellule suite au double clic.

Edit : aussi valable sur clic droit Worksheet_BeforeRightClick, penser au Cancel également pour ne pas afficher le menu contextuel

[jpma75]

J'avais effectivement pensé à mettre un "Cancel = True", mais ça me renvoyait le message : "Erreur de compilation - La déclaration de la procédure ne correspond pas à la description de l'évènement ou de la procédure du même nom".
Mystère total, pour moi.
J'avais fait ça :

Code :

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

Private Sub Worksheet_selectionChange(ByVal Target As Range, Cancel As Boolean)

Si je mets le "Cancel = True" dans le module, sans l'ajouter comme ci-dessus, j'ai le message "Erreur de compilation - variable non définie" (ce qui me semble, pour le coup, normal)

PS : Comme alternative, je me demandais si je pouvais faire un offset à droite, puis à gauche, en inhibant (provisoirement) la re-sélection de la "target" avec "Application.EnableEvents = false", histoire de revenir sur ma cellule initiale dans que sa sélection exécute le code prévu ?!

[cerede2000]

Pas de Cancel sur l'event selectionchange
Uniquement pour double clic ou clic droit !

Je ne vois pas l'intérêt de faire un changement de gauche a droite et de revenir sur la cellule de départ même en inhibant l'event.
Le problème restera le même...

Tu te retrouvera sur la même cellule et si tu reclic dessus l'event ne sera quand même pas exécuté.
Avec le selectionchange si tu ne change pas de cellule ca ne marchera jamais pour relance sur la même cellule.

[jpma75]

Je me doutais que cette dernière solution était stupide.

Tu as répondu avant que j'aie le temps de faire cette ultime proposition :

Code :

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

C'est un peu lourd, mais ça fonctionne :
- 1 clic sur la cellule, ça exécute mon code
- 1 clic simple sur cette même cellule, il ne se passe rien, mais le double-clic exécute quand même le code,
etc.
C'est finalement assez opportun, car si je ne gère que le "simple clic", si l'utilisateur faire un double-clic sur la cellule, ça renvoie sa formule ! Dans ce dernier cas, ça exécute simplement le code qui suit.
Qu'en penses-tu ?

[cerede2000]

Heu...

Je n'ai pas compris ce que tu as fait

[jpma75]

(Oups, j'ai oublié de dire que j'avais mis le code intégral de

Code :

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

Private Sub Worksheet_selectionChange(ByVal Target As Range)

, dans cette dernière procédure

Code :

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

, mais ça coulait de source ;-) )

[cerede2000]

Donc tu as appliquer ce que j'ai indiqué plus haut Tout en gardant le selectionchange.
Tu gère sur le double clic de la cellule.

C'est dans ce cas que le Cancel = True est intéréssant pour bloquer l'entré en édition dans la cellule suite au double clic

[jpma75]

Tout à fait !
Au départ, j'utilisais le "double clic" (qui fonctionnait très bien), mais j'avais imaginé qu'un simple clic simplifierait la vie de l'utilisateur. En somme, je conjugue les deux avec le même code.
Merci pour ton avis éclairé.
Cdt