Discussion :

[Jacky_Chan]

Bonjour à tous,
Je rencontre régulièrement le problème suivant et je n'ai jusqu'alors pas trouvé de solution :

Mon classeur Excel se compose de la manière suivante :
- Je double clic sur une "cellule A"
- Un UserForm s'ouvre avec une Listbox et un Bouton Ok
- Je peux sélectionner plusieurs ligne de ma Listbox et en pressant Ok, ma cellule A va se remplir avec les valeurs sélectionnées dans ma Listbox.
- Si je refais un double clique sur ma cellule A, alors la listbox surlignera en bleue les choix précédemment sélectionné à l'étape précédente (correspondant donc aussi au contenu de ma cellule)
- Je peux alors les sélectionner/dé-selectionner pour ajouter/enlever des éléments à ma cellule.

Mon problème est le suivant :
Lorsque je double clic sur ma cellule A, SI l'userForm s'ouvre devant ma cellule A alors cela sélectionne automatiquement la première ligne de la Listbox PLUS la ligne se trouvant sous ma souris lors du double clic.


Sur l'exemple ci-dessous :
- je double clique sur la cellule qui se trouve à l'exacte position du pointeur de ma souris sur l'image ci-dessus (la cellule est donc sous l'Userbox puisque celui-ci s'est ouvert correctement)
- mon Userform s'ouvre et cela sélectionne automatique le 1er élément plus celui se trouvant sous mon pointeur alors que dans ce cas aucune ligne de ma Listbox ne devrait être sélectionné

Voilà j'espère avoir été clair, merci par avance de votre aide

[parmi]

Bonjour,

Il faudrait voir ton code pour mieux comprendre.
Comment codes-tu le double-click ?
Comment fermes-tu le Userform ? Hide ou Unload ?
Comment inscris-tu tes données quand tu cliques le bouton OK ?

Sur l'image que tu fournis, tu dis que les items de la listbox ne devraient pas être sélectionnés.
Il n'y avait donc aucune donnée dans ta cellule ? c'est ça ?

[riaolle]

Bonjour,
Je ne vais pas résoudre le problème, mais j'essaie de trouver une explication à ce qu'il se passe.
J'imagine que tu as codé avec un evenement BeforeDoubleClick ? Or comme le dit son nom, les actions qui sont codées dans la macro BeforeDoubleClick s'effectuent avant de prendre en compte le double clique.
Donc d'abord tu ouvres le userform et ensuite Excel prend en compte ton double clique, donc il sélectionne ce qu'il y a sous ta souris.

[Jacky_Chan]

J'ai fais un exemple simple qui devrait répondre à toutes vos questions :
- Créer un nouveau classeur Excel
- Feuil1 : dans les cases A1:A5 taper a,b,c,d,e


- Dans le code VBA correspondant à la feuille1 taper le code suivant :

Code :

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

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Load UserForm1
UserForm1.Show
End Sub

- Créer un Userform : UserForm1 (nom par défaut) avec une Listbox : ListBox1 (nom par défaut)


- Ajouter le code suivant à la listbox que vous venez de créer

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
UserForm1.ListBox1.MultiSelect = fmMultiSelectMulti
ActiveWorkbook.Names.Add "List_Box", "=" + Feuil1.Name + "!R1C1:R5C1"
UserForm1.ListBox1.RowSource = "List_Box"
End Sub

Maintenant pour tester le problème retourner dans le classeur à la feuil1.
Un double click permet de lancer le formulaire, placez votre curseur de façon à ce que la liste s'ouvre dessus comme sur l'image suivante.


Maintenant double cliqué et vous verrez que deux éléments sont sélectionné...

[parmi]

C'est effectivement très bizarre...
C'est la 1ere fois que je vois ça.

Tu pourrais toujours tricher un peu en décalant le Userform
Quelque chose dans le genre de ceci

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    UserForm1.StartUpPosition = 0
    UserForm1.Left = Application.Left + ActiveCell.Left + ActiveCell.Width
    UserForm1.Top = 200
    UserForm1.Show
End Sub

[Jacky_Chan]

J'y avais déjà pensé mais ici c'est juste un exemple mon formulaire est bcp trop grand pour pouvoir l'écarter de la feuille avec cette méthode...