alimenter une listbox

[JC de Lorient]

Bonjour le forum

après une heure de recherche sur le forum j'ai trouvé sans trouvé !
ai des bouts de pistes mais qui ne marchent pas une fois assemblées
je cherche a alimenter ma list box avec ce début de code :

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
...............

End If
Next
End With
End Sub

A la place des points je souhaite récupérer les valeurs des colonnes D,E,F ou ma valeur cel est vraie

espérant que ce soit clair

Merci BCP

JC

 

[Bebere]

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

 

[JC de Lorient]

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

 

[JC de Lorient]

re

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

bonne soirée

JC

 

[Bebere]

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