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...

[parmi]

Je ne vois pas d'autres solutions que d'effacer tous les items de la listbox avant de les sélectionner, au besoin, avec le contenu de ta cellule (Target)

[Jacky_Chan]

En attendant de trouver une meilleure solution j'ai simplement mis un UserForm avec deux boutons : "Ok" et "Annuler" qui dit "Attention le formulaire va apparaître"
Ainsi le double clic se fait sur cet UserForm qui ne sert à rien du tout, sauf de bouclier à double clic si on peut dire... "OK" permet de lancer l'UserForm avec ma liste sélectionnable et "Annuler" ferme tous les UserForm.

[parmi]

Dans le même ordre d'idée, ce pourrait être un MsgBox

Code :

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

1
2
3
4
5
6
    Dim Rep As Integer
 
    Cancel = True
 
    Rep = MsgBox("Ouvrir le formulaire?", vbYesNo, "")
    If Rep = vbYes Then UserForm1.Show

Ça permet de répondre Oui avec la barre d'espacement (le oui étant par défaut) ou la lettre O et de fermer avec N

[patricktoulon]

bonjour

je pense qu'il y a conflit entre "listbox" et range("listbox")selon les versions Excel ce ne doit pas être possible de l'écrire comme tu l'écris
en tout cas chez moi ne n'est ce soucis

[parmi]

Patrick, je n'utilise pas sa méthode, mais j'arrive à voir le problème.

Dans le UF

Code :

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

1
2
3
Private Sub UserForm_Initialize()
    Me.ListBox1.List = Range("A1:A5").Value
End Sub

Dans la feuille

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)
    Cancel = True
    UserForm1.Show
End Sub

Maintenant, assure-toi de double-cliquer une cellule qui va se retrouver derrière cette listbox au moment de l'affichage
Edit: j'ai ajouté le Cancel = True que j'avais oublié en copiant...

[patricktoulon]

ok je vais tester

[patricktoulon]

en effet ca le fait

[pijaku]

Bonsoir,
Je vais sans nul doute dire une bêtise, mais désinhiber l'événement Click de la ListBox pourrait peut être solutionner le problème...

Dans un module standard :

Code :

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

Public DontClic As Boolean

Le code de l'événement Worksheet :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    DontClic = True
    UserForm1.Show
    DontClic = false
End Sub

Et, dans le module de l'UserForm, l'événement Clic de la ListBox (nommée ici ListBox1) :

Code :

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

1
2
3
4
Private Sub ListBox1_Click()
    If DontClic Then Exit Sub
    'reste d'un éventuel code
End Sub

[patricktoulon]

pijaku
non ca le fait quand meme

ta variable sort de évènement click et empêche le reste du code dans l'évènement de s'exécuter mais la sélection se fait quand même

[unparia]

Bonjour
Ce problème n'est pas engendré sur Excel 2007.
Quelle est ta version ?

[Jacky_Chan]

Je suis sous Excel 2010.

[eriiic]

Bonjour,

constaté sur 2010, pas d'explication non plus.
On peut s'en affranchir avec :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Activate()
    UserForm1.ListBox1.Visible = True
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    UserForm1.ListBox1.Visible = False
End Sub

.enabled n'est pas suffisant apparemment
eric

[Jacky_Chan]

Salut Eric, si j'ai bien compris ton msg :

Dans L'UserForm :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Initialize()
ListBox1.List = Range("A1:A5").Value
End Sub
'''''''''''''''''''''''''''''''Script de ERIC''''''''''''''''''''''''''''''''''''
Private Sub UserForm_Activate()
UserForm1.ListBox1.Visible = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UserForm1.ListBox1.Visible = False
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dans la feuil1 :

Code :

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

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

Malheureusement, ça ne fonctionne pas... Ou alors j'ai pas compris ton msg

[eriiic]

Oui, c'est exactement ça.
Ca a suffit chez moi. Mon proc n'est plus tout jeune et sans doute pas bien rapide, peut-être que ça joue.
Tente en ajoutant une tempo avant le .Visible = True pour retarder son activation.
Le problème semble être qu'il reçoit et traite les clics comme s'il n'avait pas encore vidé la pile des événement (enfin j'imagine..)