Choix du menu deroulant

bonjour jai 2 menu deroulant lié

je souhaiterais connaitre le code pour alimenter le 2 menu deroulant en fonction du 1er choisi

exemple est dans le fichier

merci a vous

Bonjour, une proposition :

Private Sub ComboBox1_Change()
    ComboBox2.Clear
    For Each cellule In Worksheets("Feuil2").Range("F1:F16")
        If Left(cellule.Value, 1) Like ComboBox1.Value Then
            ComboBox2.AddItem (cellule.Value)
        End If
    Next
End Sub

merci cela fonctionne mais n'arrive pas a adapter sur mon fichier

Private Sub ComboBox4_Change()

    ComboBox32.Clear
    For Each cellule In Worksheets("Base").Range("F2:F41")
        If Left(cellule.Value, 1) Like ComboBox4.Value Then
            ComboBox32.AddItem (cellule.Value)
        End If
    Next
End Sub

erreur sur le mot cellule

Ajoute la déclaration de variable après la première ligne :

Private Sub ComboBox4_Change()
    Dim cellule As Range

Private Sub ComboBox4_Change()

    Dim cellule As Range
    ComboBox32.Clear
    For Each cellule In Worksheets("Base").Range("F2:F41")
        If Left(cellule.Value, 1) Like ComboBox4.Value Then
            ComboBox32.AddItem (cellule.Value)
        End If
    Next
End Sub

erreur si "combobox32.clear" alors qu'elle correspond bien a mon 2eme menu deroulant recherche

? Et si tu mets cette ligne en commentaire ?

Private Sub ComboBox4_Change()

    Dim cellule As Range
    'ComboBox32.Clear

Private Sub ComboBox4_Change()

Dim cellule As Range

'Combobox32.clear

ComboBox32.Clear

For Each cellule In Worksheets("Base").Range("F2:F41")

If Left(cellule.Value, 1) Like ComboBox4.Value Then

ComboBox32.AddItem (cellule.Value)

End If

Next

End Sub

non toujours erreur sur "combobox32.clear"

Private Sub ComboBox4_Change()

    Dim cellule As Range
    'ComboBox32.Clear
    For Each cellule In Worksheets("Base").Range("F2:F41")
        If Left(cellule.Value, 1) Like ComboBox4.Value Then
            ComboBox32.AddItem (cellule.Value)
        End If
    Next
End Sub

Sinon, à tout hasard, en ajoutant Me. avant ComboBox32 :

Private Sub ComboBox4_Change()

    Dim cellule As Range
    Me.ComboBox32.Clear
    For Each cellule In Worksheets("Base").Range("F2:F41")
        If Left(cellule.Value, 1) Like ComboBox4.Value Then
            Me.ComboBox32.AddItem (cellule.Value)
        End If
    Next
End Sub

Private Sub ComboBox4_Change()

    Dim cellule As Range
    'ComboBox32.Clear
   For Each cellule In Worksheets("Base").Range("F2:F41")
        If Left(cellule.Value, 1) Like ComboBox4.Value Then
            ComboBox32.AddItem (cellule.Value)
        End If
    Next
End Sub

avec celle ci pas erreur sauf qu'il me presente tout les choix hors je souhaite un choix donnée en fonction de la combobox4

E2 =soit F2/F3

E3 soit F4/F5

E4 = F6/F7

colonneE =lettre

ColonneF chiffre

E2 =soit F2/F3

E3 soit F4/F5

E4 = F6/F7

colonneE =lettre

ColonneF chiffre

Pas compris...

je peux t'envoyer fichier via mp?

OK, ça marche.