Re : Listbox et multi BoundColumn
Bonjour Jean-Marie, le forum,
En fait, j'ai contourné le problème en spécifiant le BounColumn entre deux If mais c'est fastidieux et si la sélection se fait par simple clic, ben ça fait planter la machine au complet... Eh oui une spécificité de la maison Microsoft!
Exemple:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim L As Integer, i As Integer
L = Sheets("Bénévoles").Range("A65000").End(xlUp).Row
For i = 6 To L
Benes.ListBox1.BoundColumn = 1 'Première prise en compte
If Sheets("Bénévoles").Range("A" & i) = Benes.ListBox1.Value Then
Benes.ListBox1.BoundColumn = 2 'Deuxième prise en compte
If Sheets("Bénévoles").Range("B" & i) = Benes.ListBox1.Value Then
Benes.TextBox1 = Sheets("Bénévoles").Range("A" & i).Value
Benes.TextBox2 = Sheets("Bénévoles").Range("B" & i).Value
Benes.TextBox3 = Sheets("Bénévoles").Range("C" & i).Value
Benes.TextBox4 = Sheets("Bénévoles").Range("D" & i).Value
Benes.TextBox5 = Sheets("Bénévoles").Range("E" & i).Value
Benes.TextBox6 = Sheets("Bénévoles").Range("F" & i).Value
Benes.TextBox7 = Sheets("Bénévoles").Range("G" & i).Value
Benes.TextBox8 = Sheets("Bénévoles").Range("H" & i).Value
End If
End If
Next
End Sub
Donc voilà, si jamais quelqu'un avait une autre méthode...
Merci et bonne journée.
Olivier