Microsoft 365 Deux ComboBox en Cascade

Xavier@61 · 27 Décembre 2021

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 · 27 Décembre 2021

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

Xavier@61 · 27 Décembre 2021

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 · 27 Décembre 2021

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

VB:

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 · 27 Décembre 2021

sylvanu à dit:

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

VB:

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 · 27 Décembre 2021

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

Microsoft 365 Deux ComboBox en Cascade

Xavier@61

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

Xavier@61

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Xavier@61

XLDnaute Nouveau

ChTi160

XLDnaute Barbatruc

Pièces jointes

Discussions similaires