Question précise : ComboBox dépendant d'un ComboBox

Le 14/01/2020 à 17:05

Bonjour,

Après beaucoup de recherches sur internet je n'arrive pas à trouver de solution à mon besoin.

En bref, (pour être simple) voici les étapes ci-dessous de mon projet :

en vert celles que je suis arrivé à coder

en rouge celles que je n'arrive pas à effectuer

1- Création d'un tableau dans mon ComboBox "promotion" (ComboBox_promotion)

2- Ouverture d'une fichier Excel spécifique selon la valeur du ComboBox "promotion"

3 -Initialisation de mon ComboBox "NOM Prénom" (ComboBox_nom) selon les données du fichier Excel ouvert précédement

Voici une photo de mon UseForm et mon VBA :

Private Sub UserForm_Initialize()

    promotion

End Sub
Sub chargement()

ComboBox_nom.List = Sheets("Stage B1").Range("B2:B10")

End Sub
Sub promotion()

    Dim promotion(0 To 7) As String

        promotion(0) = "A1"
        promotion(1) = "A2"
        promotion(2) = "A3"
        promotion(3) = "A4"
        promotion(4) = "A5"
        promotion(5) = "B1"
        promotion(6) = "B2"
        promotion(7) = "B3"

    Dim i As Integer

    For i = 0 To 7
      ComboBox_promotion.AddItem promotion(i)
    Next
End Sub
Private Sub CommandButton_ok_Click()

    If ComboBox_promotion.Value = "B1" Then
    Workbooks.Open ("C:\Users\test\Desktop\AppLog_Local\Suivi B1.xlsx")
    TextBox_label = ActiveWorkbook. Name
    ActiveWindow.WindowState = xlMinimized

    Else: Unload Me
    MsgBox "Fichier non trouvé !"

    End If

    chargement

End Sub

Private Sub CommandButton_annuler_Click()
    Unload Me
End Sub

Je vous remercie de votre aide...

Le 14/01/2020 à 17:15

Bonjour,

Exemple

Boisgontier

16copie-de-formcascade3niv.zip (20.41 Ko)

Le 14/01/2020 à 18:59

Bonjour,

Je vous remercie de votre retour rapide,

Je ne comprends pas très bien la logique et les fonctions utilisées dans le fichier...

À quoi sert le : CreateObject("Scripting.Dictionary") ?

Merci