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!