Discussion :

[justind1989]

Bonjour à tous,

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

Code :

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

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 :

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

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

[pijaku]

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 :

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

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

[justind1989]

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