Discussion :

[jrevert]

Version excel : 2003


Bonjour,

J'ai deux listbox : 1 et 2, et ce que je cherche à faire est que quand je double clique sur un élément de Listbox1 (liste d'intitulés de prestations), le libellé de la prestation choisie ainsi que son prix s'affiche dans la Listbox2.

J'ai paramètré ma listbox 2 ainsi : columncount=2. Est ce suffisant?

de plus, j'ai un tableau de correspondance prix/prestations dans la feuille 2 demon classeur, sur la plage I2;J19 (I=prestations, J=prix).

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
14
15
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim strPresta As String
 
    ListBox2.Clear
    strPresta = ListBox1.Value
 
    Dim I As Integer
    For I = 2 To 19
        If Worksheets("Feuil2").Cells(I, 5).Value = strPresta Then
        ListBox2.Column(0, 0) = strPresta
        ListBox2.Column(0, 1) = Worksheets("Feuil2").Cells(I, 6).Value
    End If
    Next I
 
End Sub

Lorsque je l'exécute, on m'indique une erreur sur Column.Index.

Je suis bloquée et j'espère que vous pourrez m'aider!

Merci d'avance!

[Krovax]

Bonjour
Première chose utilise les balise code. Il y a un message sur le forum le tout premier intitulé Bienvenue sur le forum - Aide à l'utilisation des boutons
Tu devrais le lire (lit aussi le deusi-ème message juste en dessous pour savoir comment préciser la version d'excel)

Ensuite regarde le tuto sur les liste box. Tu n'a aucun item dans ta liste box 2 tu doit commencer par un aditem
et on utilise pas column mais list

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 ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim strPresta As String
ListBox2.Clear
strPresta = ListBox1.Value
ListBox2.ColumnCount = 2
Dim I As Integer
For I = 2 To 19
If Worksheets("Feuil2").Cells(I, 1).Value = strPresta Then
ListBox2.AddItem strPresta
ListBox2.List(0, 1) = Worksheets("Feuil2").Cells(I, 2).Value
End If
Next I
End Sub

[jrevert]

Merci beaucoup pour ton aide! (et tes conseils...)

Ta solution me permet de ne plus avoir de code erreur.

Cependant, j'ai bien mes libellés de prestations dans la 1ère colonne de ma listbox2 mais rien dans la deuxième!

De plus, il faut à chaque fois que j'ajoute un élément sur une ligne différente de ma listbox2. Je suppose qu'il faut que je rajoute une boucle for pour ça mais à l'intérieur ou à l'extérieur de ma boucle existante?

je cherche de mon côté mais si quelqu'un trouve une solution avant, n'hésitez pas!

[Krovax]

Chez moi le code fonctionne sans problème met une pause au début et essaye en mode pas a pas avec des espion pour voir si tu as la bonne valeur dans la cellule Worksheets("Feuil2").Cells(I, 2).Value (que tu as le bon i)

Et surtout que tu as bien remplacé le 2 par un 6 sur mon teste j'avais rempli la dolonne B pas la F pareille pour le test if. mais je suis persuadé que tu l'avais vu car tu n'as pas simplement copier le code que tu l'as lut, analysé a la lumière du tuto et ensuite seulement utilisé

Pour la deuxième question iul te suffit de ne pas vider liste 2 et de remplacer le 0 par ListBox1.ListCount - 1
Mais regarde le tutos tu devrais y arriver

[jrevert]

C'est bon, ça marche nickel, merci encore de ton aide!

Au final ça donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim strPresta As String
    Dim j As Integer
 
        strPresta = ListBox1.Value
        ListBox2.ColumnCount = 2
 
For j = 2 To 19
If Worksheets("Feuil2").Cells(j, 1).Value = strPresta Then
ListBox2.AddItem strPresta
ListBox2.List(ListBox2.ListCount - 1, 1) = Worksheets("Feuil2").Cells(j, 6).Value
End If
Next j
End Sub

[jrevert]

En fait ça ne marche pas si bien que ça, car lorsque je choisis une prestation, la correspondance ne se fait pas bien, et le prix qui s'affiche dans la listbox2 n'est pas le bon!

D'où cela peut il venir?

[Krovax]

Essaye le mode pas a pas (une pause au début puis touche F8) regarde la valeur de j au moment ou il trouve, et la valeur de la cellule corespondante

Je pense que tu devrais mettre

Code :

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

ListBox2.ColumnCount = 2

dans l'initialize de ton userform pour le pas le répéter a chaque fois

Code :

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

1
2
3
Private Sub UserForm_Initialize()
ListBox2.ColumnCount = 2
end sub

[jrevert]

Je n'ai pas tapé mon code dans un userform mais dans la feuille liée à ma feuille excel