Remplir une combobox avec condition

Bonjour,

je veux bien remplir une combobox en initialisant mon USF avec des valeurs qui se trouvent dans la cellule A mais avec des conditions sur les valeurs de la cellule B

Merci bien pour votre aide. (urgent)

Bonjour

Un exemple de code

Private Sub UserForm_Initialize()
Dim J As Long

  With Sheets("Nom_De_La_Feuille")
    For J = 1 To .Range("A" & Rows.Count).End(xlUp).Row
      If .Range("B" & J) = "La_condition" Then
        Me.ComboBox1.AddItem .Range("A" & J)
      End If
    Next J
  End With
End Sub

Rebonjour

merci bien, c'est qu'est ce que je cherche exactement.

à la prochaine.

Salut Banzai64

je vais évoluer mon programme un peu, en fait je avec la condition que j'ai mis sur ma combobox1,

je veux remplir ma combobox1 selon une liste de choix d'une combobox 2 toute en gardant la même condition (mon premier msg)

exemple

code Désignation Condition

123 A cond1

235 B cond1

325 C cond2

145 D cond3

123 A cond1

235 B cond1

325 C cond2

145 D cond3

Bonjour

Joins un fichier dans lequel tu expliques ce que tu veux

bonjour

ci joint le fichier.

(travail sera avec USF)

Bonjour

Désolé mais je ne comprends pas plus

Quelles sont les relations entre les ComboBox

Donnes des exemples précis

Combobox1 = .......

ComboBox2 = ..... parce que ......