JC de Lorient
XLDnaute Impliqué
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
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