Combobox en cascade

Bonjour,

je souhaite créer deux combobox en cascade dans mon formulaire, mais le déclenchement de la deuxième ne se fait pas.

Je m'explique, dans ma combo1 j'ai bien ma liste, mais je n'ai rien dans le combo2 qui devrait découler de la 1

En gras c'est ce que je retrouve dans ma combo 1, et en dessous ce que je voudrais dans ma combo 2 une fois que j'ai choisi ma section générale.

j'ai codé ceci et je ne trouve pas le bug

Si quelqu'un a une idée ça serait super.

Merci beaucoup.

Bonjour Luigi200145

Comme ça à vue d'oeil, il manque l'incrémentation de "j" dans la 2ème boucle Do ... loop

A+

Bonjour,

Merci beaucoup BrunoM45

en effet il manquait l'incrémentation de j, mais malgré cela ça ne fonctionne pas .

Si quelqu'un d'autre à vu quelque chose qu'on aurait loupé ça serait top

Re,

Alors...

Merci Bruno pour tes retours

ci joint le fichier équivalent

Merci d'avance

Bonjour

Les instructions qui charge la liste nes ont pas dans la bonne fonction

Private Sub SousSection_Change() au lieu de Private Sub Section_Change()

Merci Yal pour ton retour c'est une erreur de recopie dans le fichier envoyé. le fichier d'origine est bien en SousSection-Change().

Je ne sais pas où j'ai merdé...

Re,

Salut Yal_excel

Effectivement et j'avais préparé ceci

Private Sub Section_Change()
  Dim Col As Long
  Col = 1 + Me.Section.ListIndex
  If Col >= 0 Then
    With Sheets("prépa")
        Me.SousSection.List = .Range(.Cells(2, Col), .Cells(Rows.Count, Col).End(xlUp)).Value
    End With
  End If
End Sub

Private Sub UserForm_Initialize()
  Dim Rng As Range
  With Sheets("prépa")
    Set Rng = .Range(.Cells(1, 1), .Cells(1, Columns.Count).End(xlToLeft))
    Rng.Select
    Me.Section.List = Application.Transpose(Rng)
  End With
End Sub

A+

Merci Bruno je teste ca de suite !!

J'ai essayé ton code et il n'y a rien à faire la combo1 fonctionne nickel mais rien à faire pour la combo2.

J'abandonne

Re,

Il ne faut jamais se décourager aussi vite

Voici avec le fichier test, le code fonctionne parfaitement

après je n'ai mis aucun code "Change" dans la 2ème combo si c'est ça dont vous parlez

A+

Merci Beaucoup Bruno pour ton aide ça marche super !!

Trop content

@+