Combobox en cascade

Bonjour tout le monde,

Sur un user form j'ai placé deux combo box : le premier (nom_ent) affichant les noms d'entreprises en colonnes A, et le deuxième (nom_client) affichant pour chacune des entreprise les différents référents. Mais voilà, les valeurs du deuxième combobox restent les mêmes quelque soit la valeur du premier combobox.

Private Sub UserForm_Initialize()

Dim j As Integer

fin_ligne = Range("A1").End(xlDown).Row
'Combobox nom_ent => Récupère les données de la colonne A
For j = 2 To fin_ligne
nom_ent = Range("A" & j)
'filtre les doublons
If nom_ent.ListIndex = -1 Then
nom_ent.AddItem Range("A" & j)
End If
Next j

End Sub

Private Sub nom_client_Change()

'valeurs combobox nom_client
With Sheets("Clients")
For a = 2 To fin_ligne
If nom_ent.Text = Range("A" & a).Text Then
nom_client.AddItem Range("B" & a)
End If
Next a
End With

Je vous joins également mon fichier excel, et je paie mon tacos à celui qui me résoudra ce casse tête

Merci !

Bonjour

Voila le principe des combobox multiple

A toi de voir

A+

Maurice

Merci beaucoup pour ta réponse Maurice ! En fait j'aurais aimé que les valeurs affichées dans la combobox 2 dépendent du choix du la première car la base de données sera amenée à être complétée. Mais je vais tout de même réflechir à ta proposition. Merci encore et bonne journée

Hugues

Bonjour

j'ais fais un userform avec une listview a tester

A+

Maurice

Merci beaucoup Maurice c'est exactement ce qu'il me fallait tu es génial , tu me sauves !! merci encore!!!!!

Bonjour

voila encore une autre solution a toi de voir

bien sur il est pas fini

A+

Maurice

Bonsoir Archer ,

Bonjour à Tous,

j'ai le même tableau que balou5lettres (ton post du 4/2/2018) et j'aurai une question concernant le prolongement de ces 2 Combobox.

Après avoir sélectionner la socièté, puis le Client , est il possible d''afficher automatiquement dans le formulaire les adresses et coordonnées de la personne sélectionnée .

Colonne D dans la TextBox (ou autre) l' "Adresse 1", Puis

la colonne E dans la TextBox "adresse2" et

la colonne F dans la textBox "N° de Téléphone" (voir le classeur ci joint)

Si oui, pouvez vous m'aider ?

j'ai cherché dans tous les forums et Tutos et je n'ai pas trouvé mon bonheur.

je remet le tableau avec les exemples supplémentaires

En vous remerciant pour votre aide

Cordialement

Francis

Bonjour fmas

a changer

Private Sub ComboBox1_Change()
   With Feuil1
      Col = .Rows(1).Cells.Find(ComboBox1.Value, LookAt:=xlWhole).Column
      ComboBox2.Clear
      ComboBox2.List = .Range(.Cells(2, Col), .Cells(.Cells(Rows.Count, Col).End(xlUp).Row, Col + 3)).Value
   End With
End Sub

Private Sub ComboBox2_Change()
    ad1.Value = ComboBox2.Column(1)
    ad2.Value = ComboBox2.Column(2)
    num.Value = ComboBox2.Column(3)
End Sub

A+

Maurice

Merci Maurice pour ta réponse rapide.

c'est bien ce que je souhaité.

par contre, après avoir sélectionné le "nom du client", si je veux changer le "nom de l'entreprise", j'ai l'erreur suivante :

"erreur d'exécution 381, impossible de lire la propriété Column. index de table de propriétés non valide".

que me faut il modifier?

En te remerciant encore pour ton aide.

Francis

Bonjour

fmas il faut chercher un peux

voila une modif a voir

Private Sub ComboBox1_Change()
    ad1.Value = ""
    ad2.Value = ""
    num.Value = ""
   With Feuil1
      Col = .Rows(1).Cells.Find(ComboBox1.Value, LookAt:=xlWhole).Column
      ComboBox2.Clear
      ComboBox2.List = .Range(.Cells(2, Col), .Cells(.Cells(Rows.Count, Col).End(xlUp).Row, Col + 3)).Value
   End With
End Sub

Private Sub ComboBox2_Change()
If ComboBox2.ListIndex = -1 Then Exit Sub
    ad1.Value = ComboBox2.Column(1)
    ad2.Value = ComboBox2.Column(2)
    num.Value = ComboBox2.Column(3)
End Sub

A+

Maurice

MERCI beaucoup Maurice,

vaut mieux un qui sait que 10 qui cherche!!! même si on essai de trouver par nous même.

IMPECCABLE, c'est nickel.

Francis