Excel VBA ListBox

Bonjour à tous,

Je viens de réaliser une ListBox contenant des données présentes dans un autre onglet.

Code:

---

1 2 3 4

Private Sub ListBox1_Click() ListBox1.RowSource = "List_RB!A1:A100" End Sub

---

Jusque là tout va bien ! J'ai ensuite réalisé un bouton. Quand on clic dessus un message affiche l'index de l'élément sélectionné.

Code:

---

1 2 3

Private Sub CommandButton1_Click() MsgBox UserForm1.ListBox1.ListIndex End Sub

---

Mais la il y a problème. Je sélectionne sur le premier élément de la listbox et je clic sur le bouton :

Il m'affiche "1" alors que le premier élément de la liste devrait être "0"

Je sélectionne le deuxième élément de la liste et clic sur le bouton :

il m'affiche "1"

Je sélectionne à nouveau le premier élément de la liste et je clic sur le bouton :

il m'affiche "0"

C'est très bisar je trouve ?

Aurais-je oublié quelques choses ?

Cordialement,

Justin

Bonjour,

Qu'elle curieuse idée que de vouloir remplir la listbox lors de son propre événement Click.
En effet, à chaque fois que tu va sélectionner un élément, cet événement va se déclencher et donc, tu va changer la propriété RowSource à chaque Click???

Essaie plus simplement ceci :

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit   Private Sub CommandButton1_Click() MsgBox UserForm1.ListBox1.ListIndex End Sub   Private Sub UserForm_Initialize() ListBox1.RowSource = "List_RB!A1:A100" End Sub

---

Bonjour,

Pijaku :

Effectivement la fonction UserForm_Initialize() est appellé automatiquement lorsque tu fais appel à l'userform ...
J'aurais plus me pencher sur les cours VBA du site lol

Merci beaucoup

Cordialement,

Justin