Microsoft 365 Deux ComboBox en Cascade

[Xavier@61]

Bonjour à toutes et à tous,

J'ai beaucoup cherché et testé et pour l'instant je n'arrive pas à traiter mon problème.

J'ai deux combobox:

Une pour le nom

Une autre pour le prénom que je voudrais liée à la 1° pour avoir la possibilité de choisir un prénom en fonction du nom sélectionné tout cela dans un UserForm

Et c'est sur cette manipulation que je cale, je pensais ne pas être loin de la solution mais je cale.

Si quelqu’un a la formule "'magique" je suis preneur.

Merci d'avance

Bonnes fêtes.

 

[Dranreb]

Bonjour.
J'ai des objets qui s'en chargent.

 

[Xavier@61]

Merci Jean-Marie,
J'avais testé cette solution, mon problème c'est que pour un nom je peux avoir deux prénoms du coup j'avais ce problème.
Xavier

 

[sylvanu]

bonjour Xavier, Dranreb,
Un simple essai en PJ avec :

Private Sub ComboBox_Nom_Change()
    Dim DL%, i%, Nom$, T
    DL = Sheets("EFFECTIF").Range("B65500").End(xlUp).Row
    Nom = ComboBox_Nom.Value
    ComboBox_Prenom.Clear       'vide la liste prénom
    T = Sheets("EFFECTIF").Range("B2:C" & DL)
    For i = LBound(T) To UBound(T)
        If T(i, 1) = Nom Then
            ComboBox_Prenom.AddItem T(i, 2) ' Si nom correct ajouter prénom
        End If
    Next i
    On Error Resume Next
    ComboBox_Prenom.ListIndex = 0
End Sub

Pour tester, utilisez Nomtest1 qui a 8 homonymes.

 

[Xavier@61]

bonjour Xavier, Dranreb,
Un simple essai en PJ avec :

Private Sub ComboBox_Nom_Change()
    Dim DL%, i%, Nom$, T
    DL = Sheets("EFFECTIF").Range("B65500").End(xlUp).Row
    Nom = ComboBox_Nom.Value
    ComboBox_Prenom.Clear       'vide la liste prénom
    T = Sheets("EFFECTIF").Range("B2:C" & DL)
    For i = LBound(T) To UBound(T)
        If T(i, 1) = Nom Then
            ComboBox_Prenom.AddItem T(i, 2) ' Si nom correct ajouter prénom
        End If
    Next i
    On Error Resume Next
    ComboBox_Prenom.ListIndex = 0
End Sub

Pour tester, utilisez Nomtest1 qui a 8 homonymes.

Merci beaucoup ça fonctionne impeccable
Bonne soirée
Xavier

 

[ChTi160]

Bonjour
une autre approche
Bonne fin de Journée
Jean marie