Salam Alikoum a si Ali ! Choukran jazilen pour votre générosité. Saha ramdhankoum "inshaAllah"... Merci infiniment, je désespérais de chercher quelqu'un qui aurait fait un tuto sur plusieurs combobox en cascade dans un Userform (j'en avais besoin que de quatre) et c'est sur votre chaine que je le trouve et 5 combo s'il vous plait ! qui dit mieux... Vous ne méritez pas, seulement, un pouce haut, mais xlUp...Me concernant, présentement, c'est le pouce 64👍🏼👍🏼👍🏼👍🏼👍🏼👍🏼👍🏼 + un abonné. Excellente vie, je vous souhaite. Je vais appliquer votre procédure même s'il me manque quelques éléments. Bien cordialement,

Bonjour, Merci beaucoup pour cette vidéo très bien expliqué.

Bravo pour vos tutoriels ils sont super est m'aident beaucoup Merci et surtout... continuez!!!!

Merci beaucoup Mr ALI.

Bonsoir, Merci bcp , Si vous pouvez m'aider sur mon petit problème. J'ai deux combobox dans un userform Combobox 1 est alimenté par la ligne A2:G2 La combobox 2 reçoit la valeur de la combobox2 Jusqu'ici tout va bien J'ai Créé un Bouton d'ajout pour la combobox2 si la valeurs chercher n'est pas disponible dans le champ sélectionner par la combobox1 Ma question : comment ajouter des données via le bouton d'ajout en fonction de la sélection combobox1, C'est a dire la valeur ajoutée dans combobox 2 va directement s'ajouter au champs sélectionner par combobox 1 j'espère que j'ai pas trop mélangé

Bonjour M. Ali. Peut on aller jusqu'à 5 niveaux de liste déroulante?

Voici votre code que je n'arrive pas a duppliquer avec plusieurs feuillles et plusieures combobox dans le même formulaire Merci de votre réponse M.Ali Private Sub UserForm_Initialize() For i = 2 To Range("xfd1").End(xlToLeft).Column Me.Combobox1.AddItem Sheets(1).Cells(1, i) Next i For i = 2 To Range("xfd1").End(xlToLeft).Column Me.Combobox2.AddItem Sheets(1).Cells(1, i) Next i Me.Top = 100 Me.StartUpPosition = 0 Me.Left = 600 End Sub Private Sub Combobox1_Change() Me.Combobox2.Clear For i = 2 To Range("xfd1").End(xlToLeft).Column If Me.Combobox1 = Sheets(1).Cells(1, i) Then numcolone = Sheets(1).Cells(1, i).Column End If Next i k = 2 Do While Sheets(1).Cells(k, numcolone) "" Me.Combobox2.AddItem Sheets(1).Cells(k, numcolone) k = k + 1 Loop End Sub Private Sub Combobox2_Change() Me.Combobox3.Clear For i = 2 To Range("xfd1").End(xlToLeft).Column If Me.Combobox2 = Sheets(2).Cells(1, i) Then numcolone = Sheets(2).Cells(1, i).Column End If Next i k = 2 Do While Sheets(2).Cells(k, numcolone) "" Me.Combobox3.AddItem Sheets(2).Cells(k, numcolone) k = k + 1 Loop End Sub