alimenter une listbox

bonsoir JC de Lorient
pour exemple,mais tu parles de récupérer D,E,F
E tu l'as dans combobox1
reviens nous avec plus de précision
Private Sub ComboBox1_Change()
Dim cel As Range
With Worksheets('Histo')
For Each cel In Range('E2:E' & Range('E65536').End(xlUp).Row)
If cel = ComboBox1.Value Then
listbox1.Additem .Range('F' & cel.row).value
End If
Next
End With
End Sub

à bientôt

Re, bonsoir Bébère
en fait je souhaiterais mettre 3 ou 4 colonnes dans ma listbox
1ère colonne valeur de E et ligne de ma valeur de la combobox
2ème colonne la valeur F de la ligne du combobox etc etc

merci d'avance

JC

re

merci à tous mé je pense que je vé arriver à mes fins !
a force de chercher on y arrive

bonne soirée

JC

bonjour Jc de Lorient
quelques idées pour t'aider,on ne sait jamais

Private Sub ComboBox1_Change()
Dim cel As Range,L as integer
'vide listbox
ListBox1.clear
'détermine nombre de colonnes
ListBox1.columncount=3
'largeur colonnes
ListBox1.Columnwidths='60;60;60'
With Worksheets('Histo')
For Each cel In Range('E2:E' & Range('E65536').End(xlUp).Row)
If cel = ComboBox1.Value Then
'colonne 0
listbox1.Additem .Range('E' & cel.row).value
'colonne 1
ListBox1.List(L, 1) =.Range('F' & cel.row).value
'colonne 2
ListBox1.List(L, 1) =.Range('D' & cel.row).value
l=l+1
End If
Next
End With
End Sub