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.