remplir une Combobox sous condition

[jammy17]

Bonsoir le forum

un nouveau problème se présente à moi aujourd'hui !!
je voudrais savoir comment remplir la combobox avec les données de la colonne A si les données de la colonne B sont égale à 0

je ne sais comment faire, j'ai essayé la méthode Additem sous condition la methode combobox1. list

voilà, si quelqu'un a une idée je l'en remercie d'avance

Cordialement

Jammy

 

[Fred0o]

Re : remplir une Combobox sous condition

Bonsoir Jammy17,

Voici le code que tu peux mettre dans ton UserForm1 :

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To Range("A65536").End(xlUp).Row + 1
        If Sheets("Feuil1").Range("B" & i) = 0 Then Me.ComboBox1.AddItem Sheets("Feuil1").Range("A" & i)
    Next
End Sub

A+

 

[jammy17]

Re : remplir une Combobox sous condition

merci beaucoup je vais essayer

 

[CBernardT]

Re : remplir une Combobox sous condition

Bonsoir,

Essaye avec cette syntaxe :

Private Sub UserForm_Initialize()
'Je souhaiterai que la combobox 1 se remplisse si en fonction de la valeur de la colonne 2
'si la colonne 2 est de 0 alors affiche le numero de la colonne 1 dans la liste

Dim L As Long, Tablo, i As Long
'Dernière ligne de la colonne A de la feuille
With Sheets("FEUIL1")
L = .Range("A65536").End(xlUp).Row
' Mise en tableau des valeurs
Tablo = .Range("A1:B" & L)
End With
'Attribution des codes au combobox1
For i = 1 To UBound(Tablo, 1)
If Tablo(i, 2) = 0 Then
ComboBox1.AddItem Tablo(i, 1)
End If
Next i
End Sub

 

[jammy17]

Re : remplir une Combobox sous condition

merci à vous deux, les deux codes fonctionnent à merveille, à bientot!!!
et passez de bonnes fêtes de fin d'année!!!
Jammy