Wosksheet_Selection_Change empiète sur Worksheet_BeforeDoubleClic

Version imprimable

Bonjour,

Ça va être évident pour vous, mais ça n'est l'est pas (encore) pour moi.

Ci-après un "condensé" de code, en espérant qu'il soit suffisant pour vous exposer le problème.
Le double clic sur une cellule du Range défini n'est manifestement pas actif et je pense que c'est lié au Worksheet_SelectionChange.
Si c'est bien ça, y a-t-il un moyen de "forcer" l'évènement BeforeDoubleClic quand on sélectionne une cellule qui vient de passer par le SelectionChange ?
En espérant que l'exposé du problème soit clair...
Merci d'avance pour vos lumières,
Cdt
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Worksheet_selectionChange(ByVal Target As Range) Select Case Target.Address(0, 0) Case Is = "W16" 'blabla Case Is = "W28" 'blabla End Select End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set rg = Range("A1:Z10") If Not Intersect(rg, Target) Is Nothing And Target.Count = 1 Then Target.ClearContents End If Cancel = True End Sub

27/01/2018, 05h42
unparia

Bonjour

Je ne vois pas du tout ce que tu sembles vouloir "dénoncer".
L'évènement BeforeDoubleClick intervient bel et bien avant l'évènement SelectionChange et les instructions de l'évènement SelectionChange ne sont pas exécutées si double clic. :!:

Il est normal que l'exemple que tu montres (tel qu'écrit), n'efface pas le contenu de la cellule si ton double click est fait en cellule W16. Et pour cause : la cellule W16 n'est pas dans la plage A1:Z10 que tu soumets à l'évènement BeforeDoubleClick.
Idem en ce qui concerne la cellule W28 :coucou:
27/01/2018, 07h50
jpma75

Bonjour,

W16 et W28 sont des "boutons" qui lancent des procédures. Ils ne font pas partie de la zone concernée par l'effacement.

Si je mets un STOP en tête de "-- SelectionChange" et de "-- BeforeDoubleClic" et je je fais un double clic, c'est "-- SelectionChange" qui détecte le premier.
A présent, je pense que c'est la "liste déroulante" qui s'ouvre dans chaque cellule à effacer qui est (pourrait) être responsable de ce problème.

Si je clic sur la cellule, le menu s'ouvre et il me semble que c'est normal que le SelectionChange soit sollicité.

Cdt

Bonjour,

Citation:

W16 et W28 sont des "boutons" qui lancent des procédures

ce n'est pas ce que montre ce code :
Code:

1 2 3 4 5 6 7 Select Case Target.Address(0, 0) Case Is = "W16" 'blabla Case Is = "W28" 'blabla End Select
Citation:

Si je mets un STOP en tête de "-- SelectionChange" et de "-- BeforeDoubleClic" et je je fais un double clic, c'est "-- SelectionChange" qui détecte le premier

Si tu change de cellule, effectivement, c'est SelectionChange() qui est exécuté en premier et pour cause, il faut bien sélectionner la cellule avant de faire un double clic dessus mais si tu fait un double clic sur la cellule active, seule BeforeDoubleClick() sera exécutée !

Citation:

...y a-t-il un moyen de "forcer" l'évènement BeforeDoubleClic...

tu peux mais ça n'a aucun intérêt car dans ce cas, autant mettre les instructions dans SelectionChange() mais bon, voilà comment tu peux appeler la procédure :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_selectionChange(ByVal Target As Range) Select Case Target.Address(0, 0) Case Is = "W16" 'blabla Case Is = "W28" 'blabla End Select Worksheet_BeforeDoubleClick Target, True End Sub
Je ne pense pas que la présence d'une liste déroulante (issue de Validation des données) pose problème !
Il faudrait peu être montrer le code en entier ou poster un petit classeur exemple.

27/01/2018, 11h12
unparia

Voilà qu'apparaissent tout d'un coup un "bouton" et une "liste déroulante" alors qu'il n'était jusqu'à présent question que de cellules et de leurs évènements (ce que corrobore d'ailleurs le code montré).

Il semble qu'il y ait là une confusion totale entre :
- bouton et cellule
- évènement click d'un bouton et évènement click d'une cellule
- évènement doubleclick d'une cellule et évènement click d'un bouton

Et qu'est cette "liste déroulante" dont tu parles ?
Et qu'est exactement ce bouton ? Et une macro lui est-elle affectée ? Si oui : à montrer dans sa totalité (depuis "sub" jusqu'à "end sub" inclus)

Un chat n'y retrouve plus ces petits, dans cet "exposé"-là d'une situation ...

Bonjour,

Unparia

J'ai mis "bouton" (avec guillemets). Ce sont des cellules, qui lorsqu'on clique dessus, lancent des Sub.

AMHA ces "boutons" ne sont pas à l'origine du problème mais comme ils apparaissent dans -- SelectionChange :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub Worksheet_selectionChange(ByVal Target As Range) Select Case Target.Address(0, 0) Case Is = "W2" Call MasquageLignes Case Is = "W3" Call AffichageLignes Case Is = "W4" Call AfficheQuotas Case Is = "W5" Call AfficheTest 'etc. End Select End Sub
... je les ai évoqués car -- SelectionChange se terminent par "End Select". J'ai donc imaginé qu'une fois la cellule désélectionnée (par le End Select), il était normal que le -- BeforeDoubleClick ne fonctionne pas.

"menu déroulant" = "liste de validation de données" ?! Si je clique sur la cellule, une liste de validation s'affiche.

Theze,

Merci pour ta proposition. Cela semble ne pas fonctionner.

Je viens de faire un essai de DoubleClic après avoir inhibé tout le code de -- SelectionChange. Le problème reste identique.

En définitive, puis-je utiliser le code suivant sur une cellule qui comporte un "menu déroulant" :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set rg = Range("A1:Z100") If Not Intersect(rg, Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = False Target.ClearContents Target.Interior.ColorIndex = 2 Application.EnableEvents = True End If Cancel = True End Sub
En l'état, je pense que non car dès lors que je sélectionne la cellule, c'est la liste qui va s'afficher !

Cdt

27/01/2018, 16h58
unparia

Citation:

SelectionChange se terminent par "End Select". J'ai donc imaginé qu'une fois la cellule désélectionnée (par le End Select),

C'est là carrément du n'importe quoi !
End Select ferme tout simplement et rien d'autre, l'instruction Select case , exactement comme End If ferme une instruction If ... Then ..., que end with ferme un bloc With, etc ...
Rien à voir avec la sélection ou la de-sélection de cellules !
Moi, à ce niveau trop visible de carences fondamentales, je sors de cette discussion
27/01/2018, 17h02
eriiic

Bonjour,

tout ceci est bien confus.

Citation:

J'ai donc imaginé qu'une fois la cellule désélectionnée (par le End Select), il était normal que le -- BeforeDoubleClick ne fonctionne pas.

Non, le End Select ferme ton Select, c'est tout. La celulle est déselectionnée si tu en sélectionnes une autre.
Et BeforeDoubleClick s'execute comme expliqué précédemment.

Citation:

Si je clique sur la cellule, une liste de validation s'affiche.

non plus. Elle se déroule en cliquant sur l'icone.
Tu n'as pas mis une autre macro passée sous silence pour changer ce fonctionnement ? Ca peut être due à elle si ton double-clic n'est plus détecté.
eric
27/01/2018, 18h08
jpma75

eriic,

Je n'ai jamais eu de doute sur le fait que le End Select terminait le Select Case ; je souligne seulement qu'une fois arrivé au End Sub du Worksheet_SelectionChange, tout s'arrête et le Worksheet_BeforeDoubleClick n'est pas sollicité.

Je reformule donc ma question en oubliant tout le code que j'ai exposé : peut-on effectuer une procédure Worksheet_BeforeDoubleClick sur une cellule à laquelle est associée une liste de validation de données ?

(Nota : Dans mon vocabulaire de néophyte, "liste de validation de données" revient à cliquer sur une cellule > Données > Validation de Données > (Autoriser) Liste > (Source) blabla > Ok)

Merci pour ta patience.
Cdt
27/01/2018, 18h32
Theze

1 pièce(s) jointe(s)

Re,

Voici un classeur test qui fonctionne chez moi (suppression de la valeur sur double clic)
27/01/2018, 18h35
eriiic

Citation:

peut-on effectuer une procédure Worksheet_BeforeDoubleClick sur une cellule à laquelle est associée une liste de validation de données ?

sur mon test : oui

Citation:

Dans mon vocabulaire de néophyte, "liste de validation de données" revient à cliquer sur une cellule > Données > Validation de Données > (Autoriser) Liste > (Source) blabla > Ok)

on est d'accord.
Si c'est le fait d'avoir choisi un nouvel item dans la liste qui t'intéresse c'est Change (le contenu change) et non SelectionChange
27/01/2018, 19h17
unparia

Citation:

Je n'ai jamais eu de doute sur le fait que le "End Select" terminait le "Select Case"

Citation:

J'ai donc imaginé qu'une fois la cellule désélectionnée (par le End Select)

Chercher le paradoxe (voire carrément la contradiction) ...
Trop, c'est vraiment (vraiment, vraiment, vraiment) trop ...:cry:
Il semble bien que même la compréhension de ce qu'est l'instruction Select Case échappe :cry:
27/01/2018, 20h13
jpma75
Merci Theze,
Merci eriiic,

Après mon dernier post (et avant de lire vos réponses), j'ai eu une intuition...
Code:

1 2 3 4 5 ActiveSheet.Protect Password:="toto", _ DrawingObjects:=False, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingCells:=False
Tout fonctionne bien ; il suffisait de mettre False à DrawingObjects

Merci encore pour votre patience et votre sollicitude,
Cdt