Discussion :

[iperkut]

Bonjour,
Je cherche à selectionner une valeur d'un ListBox depuis un bouton.
Voici ce que j'arrive à faire :

J'ai un bouton, quand je clique dessus, cela me selectionne la valeur de la list box qui correspond à une cellule d'une feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'NumLigne et Colonne sont passés en arguments
'Nom represente un listbox ex : "ListBox1", "ListBox2"
    toto = Sheets("Donnees").Cells(NumLigne, Colonne)
    For i = 0 To Me.Controls(Nom).ListCount - 1
        If Me.Controls(Nom).List(i) = toto Then
            'MsgBox i
            Me.Controls(Nom).ListIndex = i
        End If
    Next i

Ce code marche et me selectionne (pas selectionne j'entends que cela me met l'entrée en bleu) la bonne valeur, mais lorsque je print la valeur de la listbox par :

Code :

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

1
2
 
MsgBox ListBox1.Value

Cela me retourne rien (vide)
Et si je print le listindex de la ListBox, cela me retourne bien une valeur
ex :

Code :

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

1
2
3
4
5
 
listbox :
lundi
mardi
mercredi

si c'est le mardi qui est sélectionné, cela me retourne 1 (car mardi est la 2ème valeur), mais cela ne me retoune pas "mardi"

Merci d'avance de votre aide

[sabzzz]

bonjour iperkut,

y a t'il plusieurs colonnes à ton controls LisBox ?

[iperkut]

Bonjour,
non qu'une seule

[sabzzz]

bonjour iperkut,

j'ai essayé de reproduire ton problème mais sans succès, peut tu mettre tes données (réduite) sur un fichier et le transmettre ?

[iperkut]

Voici la version réduite (1300 ligne de code) de mon code.
Un jpeg est joint.
Il faut selectionner une date dans le combobox entouré de noir et cliquer sur le comandbutton CB1.
Cela a pour effet de saisir dans les différentes listbox les valeurs présente pour le jour selectionné dans la feuille Donnees.

En appuyant sur le bouton CB2, on affiche la valeur du listbox ainsi que le listindex.
Cela marche (aléatoirement) pour certains et pas pour d'autres...
D'ou mon problème...

PS: pour lancer la macro : CTRL + q

[sabzzz]

bonjour iperkut,

dans le fichier transmit, la variable NumLigne n'est pas renseignée