Attribution valeur listbox

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:

---

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:

---

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:

---

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

bonjour iperkut,

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

Bonjour,
non qu'une seule

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 ?

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

bonjour iperkut,

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

Citation:

---

Envoyé par sabzzz

bonjour iperkut,

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

---

Si ,NumLigne est retourné par Sub Find(Text As String, Ws As Worksheet)

Explication du fonctionnement

Initialisation du userform :
Remplissage des listbox

Click sur CommandButton14 :
- Via la sub Find, recherche le numéro de la ligne ou se trouve la date remplie dans le ComboBox24
- AttribuerValeur ( prend en paramatre un listbox et une colonne à laquelle il se réfère) :
sélectionne la bonne valeur dans les listbox

bonjour iperkut,

ce n'est pas une bonne idée d'utiliser un nom excel (Find) pour un nom de macro, et également l'utilisation du On Erreur... peut cacher d'éventuel erreur.

tu pourrais aussi modifier comme ceci,

Code:

---

NumLigne = Ws.Cells.Find(What:=CDate(Text), After:=Range("A1"), LookIn:....

---

Code:

---

NumCol = Ws.Cells.Find(What:=CDate(Text), After:=Range("A1"), LookIn:=...

---

et dans la macro CB2

Code:

---

MsgBox ListBox11.List(ListBox11.ListIndex)

---

Merci beaucoup, mon problème est résolu, j'utilise

Code:

---

1 2	ListBox11.List(ListBox11.ListIndex)

---

pour récupérer la valeur du lisbox et non plus

Code:

---

ListBox11.Value

---

et cela marche nikel !!