Remplir listBox selon critaire

Chris401

XLDnaute Accro

• 16 Décembre 2015

• #2

Re : Remplir listBox selon critaire

Bonjour

Essaye :

Code:

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("D2:D" & Range("D65536").End(xlUp).Row)
    If c = Feuil2.Range("B3") Then
        UserForm1.ComboBox1.AddItem c.Offset(0, -3)
    End If
Next c
UserForm1.Show
End Sub

Cordialement
Chris

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 16 Décembre 2015

• #3

Re : Remplir listBox selon critaire

bonjour adinnn Chris401🙂

autant ecrire directement dans initialise

Code:

Private Sub UserForm_Initialize()
 Dim C As Range
 For Each C In Range("d2", Cells(Rows.Count, 4).End(3))
 If C = Feuil2.Range("B3") Then ComboBox1.AddItem C.Offset(, -3)
 Next C
End Sub

 

Vote positif 0 Vote négatif

A

adinnn

XLDnaute Occasionnel

• 16 Décembre 2015

• #4

Re : Remplir listBox selon critaire

Bonjour et merci à vous 2,

et si les valeurs de colonnes D sont dans une autre feuille? Feuil3 par exemple.

J'ai essayé ceci mais ca ne fonctionne pas. Erreur d'objet requis.

For Each C In Feuil3.Range("d2", Cells(Rows.Count, 4).End(3))

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 16 Décembre 2015

• #5

Re : Remplir listBox selon critaire

re🙂
comme cela

For Each C In Feuil3.Range("d2", Feuil3.Cells(Rows.Count, 4).End(3))

Cliquez pour agrandir...

on peut utiliser with feuil3 EGALEMENT

 

Vote positif 0 Vote négatif