Affiché une liste sur une combobox3 suivant la valeur d'une combobox1

Bonjour

Sur mon Classeur j'aimerais que la combobox3 (Lots) sur le userform1 affiche une liste qui se trouve sur La feuille4 (Données) selon la valeur de la combobox1 (Pré qualification ) sur le meme userform.

Nb:

La Combobox1 Doit affiché Pre-qualification qui se trouve sur la feuille de données a la colonne (A) .(9,10 ou 11)

Si la Combobox1 (Pré qualification) Affiche 9 la combobox3(Lots) Doit affiché la liste sur la colonne (B)

Si la Combobox1 (Pré qualification) Affiche 10 la combobox3(Lots) Doit affiché la liste sur la colonne (C)

Si la Combobox1 (Pré qualification) Affiche 11la combobox3(Lots) Doit affiché la liste sur la colonne (D)

Merci d'avance pour votre Aide.

Bonjour,

un essai à rajouter dans la feuille de code du Userform1:

Private Sub ComboBox1_Change()
 ComboBox3.Clear
 With Worksheets("Données")
  Col = ComboBox1.Value - 7
  DL = .Cells(Cells.Rows.Count, Col).End(xlUp).Row
  ComboBox3.List = .Range(.Cells(2, Col), .Cells(DL, Col)).Value
 End With
End Sub

Private Sub UserForm_Initialize()
 ComboBox1.List = Worksheets("Données").Range("A2:A4").Value
End Sub

A +

Bonjour,

Dans votre userform1, ajoutez ces deux codes

Private Sub UserForm_Initialize()
ComboBox1.List = Feuil4.Range("A2:A" & Feuil4.Range("A" & Rows.Count).End(xlUp).Row).Value
End Sub

Private Sub ComboBox1_Change()
With Feuil4
    ComboBox3.Value = ""
    Select Case ComboBox1.Value
        Case Is = 9: ComboBox3.List = .Range("B2:B" & .Range("B" & .Rows.Count).End(xlUp).Row).Value
        Case Is = 10: ComboBox3.List = .Range("C2:C" & .Range("C" & .Rows.Count).End(xlUp).Row).Value
        Case Is = 11: ComboBox3.List = .Range("D2:D" & .Range("D" & .Rows.Count).End(xlUp).Row).Value
    End Select
End With
End Sub

Cordialement

Hello à tous,

Comme j'étais dessus je post aussi

Bonjour

j'ai essayé les 3 méthode et ça marchent toutes Merci Beaucoup Dan,Algoplus et Rag2700.

Bon journée

Cordialement