Discussion :

[yedid]

Bonjour tt le monde,

Voila mon pb du jour :

Je veux faire un affichage d'info sur certains element listés dans une listbox:

Cad que quand l'utilisateur doubleClick sur l'un des elements de la listbox,
je recupere le nom de l'element selectionné et j'affiche une fenetre avec des infos relatives a cet element..
Tout est pret au niveau de la gestion des infos etc.. sauf qu'il ya un couac :

Quand un element de la listbox est deja selectionné, et que je click sur un autre element de cette meme ListBox, l'evenement ListBox_DblClick me recupere la situation AVANT le changement de selection d'item.. Il m'affiche donc les infos de l'element selectionné precedemment!!

J'ai essayé Click et Dblclick, meme pb !

Je n'ai pas trouvé d'autre evenemet que ListBox_Click ou ListBox_DblClick pour detecter le click sur un item

Quelqu'un aurait-il une idée??????

Merci

[ouskel'n'or]

Ce n'est pas dans les événements que tu dois chercher mais dans les propriétés. Où se trouve ta liste ? Dans un userform ou dans une feuille de calculs ?

[yedid]

Ma listbox se trouve dans une feuille...
Mais je ne veux pas passer par des boutons du genre "afficher les infos de l'element selectionné", ca fera une trop grande surchage de bouton...

[jfontaine]

Comment recuperes tu la sélection dans la liste?

Le code du double_click nous aidera

[yedid]

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ListBox_myList_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim selectedItemName As String
    Dim objectList As Variant
 
    selectedItemName = SelectedItem_name(ListBox_myList)
 
    If (SearchInList2D(selectedItemName, ListGlobal) <> -1) Then
        objectList = ListGlobal(SearchInList2D(selectedItemName, ListGlobal))
        Call AfficheInfos(objectList)
        Else: Exit Sub
     End If
 
End Sub

Ma fonction SelectedItem_name est toute simple :

Code :

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

1
2
3
4
5
6
7
8
Public Function SelectedItem_name(lst As Object) As String
 
    If (lst.ListIndex <> -1) Then
         SelectedItem_name = lst.List(lst.ListIndex)
         Else: SelectedItem_name = ""
    End If
 
End Function

(je sais pas si il ya une maniere de le faire directement en vba sa passer par une petite fonction comme celle la...)

[jfontaine]

Comme tu veux afficher les info d'un éléement de la liste, je ne pense pas que tu utilises la multi selection.
Dans ce cas, j'utilise plutot ListBox_myList.Text pour retourner le choix

[ouskel'n'or]

Où as-tu pris ta liste ? Dans la boîte à outils Formulaires ou Contrôles.
Prise dans la boîte à outils Contrôles, je n'ai pas réussi à reproduire ce pb.

[yedid]

Ma ListBox a ete cree directement sur la feuille Excel par la boite à outil de controles..