Discussion :

[jpma75]

Bonjour,

Sauf erreur de ma part, il semble que

Worksheet_SelectionChange

se déclenche automatiquement si on utilise

Worksheet_BeforeRightClick

Une ListBox s'ouvre si l'utilisateur fait un clic-droit sur une plage.
(sauf erreur) cela n'empêche pas l'utilisateur de saisir une donnée de son choix (qui ne correspondrait pas aux Items de la ListBox) dans ladite plage s'il sélectionne une cellule par un clic-gauche
Comment puis-je afficher un message pour rappeler à l'utilisateur qu'il doit utiliser le clic-droit, s'il fait un clic-gauche sur une cellule ?

En résumé, comment "shunter" le SelectionChange si on ne se limite qu'à un clic-droit ?

En vous remerciant par avance,
Cdt

[deedolith]

Salut,

Difficile de te répondre avec si peut d'informations.

Protéger les cellules (et la feuille) peux suffire pour interdire la sélection de cellules.

[jpma75]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim zone_sélections As Range
 
    Set zone_items = ActiveSheet.Range("e10:ng33") 'new
 
    If Not Intersect(zone_items, target) Is Nothing And target.Count = 1 Then
        MsgBox "Vous devez effectuer un clic-droit pour sélectionner une option"
        Exit Sub
    End If

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeRightClick(ByVal target As Range, Cancel As Boolean)
 
   '(blabla)
 
        UF_LstBox.Show 'new
 
   '(blabla)
End Sub

J'ignore si c'est plus clair ?

En résumé, si l'utilisateur fait :
- un clic-gauche, il a le message "vous devez ..."
- un clic-droit, il a le message "vous devez ..." et la Listbox s'ouvre !

Et avec F8, j'observe que Worksheet_SelectionChange est déclenchée par Worksheet_BeforeRightClick

Cdt

[jpma75]

PS : j'ajoute que je n'envisageais pas de verrouiller les cellules de ma plage car j'utilise la fonctionnalité de "double-clic" pour d'autres actions

[deedolith]

C'est une question d'ordre de déclenchement des évènements.
SelectionChange survient avant BeforeRightClick.
En conséquence, l'évènement SelectionChange ne permet pas de détecter les clicks.
Un simple code permet de s'en rendre compte:

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Debug.Print "Worksheet_BeforeRightClick"
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Debug.Print "Worksheet_SelectionChange"
End Sub

Ce qui donne comme résultat dans la fenêtre d'exécution:

Code :

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

1
2
Worksheet_SelectionChange
Worksheet_BeforeRightClick

Et comme il n'y a aucun évènement détectant les click gauche ...

[Tête de chat]

Bonjour

je n'envisageais pas de verrouiller les cellules de ma plage car j'utilise la fonctionnalité de "double-clic" pour d'autres actions

Le fait que la cellule soit protégée n'interdit pas le double-clic dessus.
Quand tu vas l'intercepter pour d'autres actions il suffira d'ajouter dans le code un cancel=true et tu n'auras pas le message "cette cellule est protégée" puisque le double clic aura été annulé.