Combobox en cascade dans un Userform (1) (Création avec une macro)

[@jeannoelaction]

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

[@hamitenath6325]

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,

[@gaellhr4777]

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

[@ferhatallel6822]

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é

[@souinidaali]

Merci de me contacter web.facebook.com/groups/1332449140431960

[@cedricrene723]

Merci beaucoup Mr ALI.

[@monsesamme]

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

[@souinidaali]

OUI

[@philippejourdin6234]

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

[@souinidaali]

SALAM ALIKOUM
Merci d 'essayer ce code
Private Sub UserForm_Initialize()
For i = 2 To ActiveSheet.Range("xfd1").End(xlToLeft).Column
Me.ComboBox1.AddItem ActiveSheet.Cells(1, i)
Next i
Me.Top = 100
Me.StartUpPosition = 0
Me.Left = 600
End Sub
Private Sub ComboBox1_Change()
Me.ComboBox2.Clear
If Application.WorksheetFunction.CountIf(ActiveSheet.Rows(1), Me.ComboBox1) = 0 Then
MsgBox "VEUILLEZ CHOISIR PARMIS LA LISTE"
Exit Sub
End If
For i = 2 To ActiveSheet.Range("xfd1").End(xlToLeft).Column
If Me.ComboBox1 = ActiveSheet.Cells(1, i) Then
numcolone = ActiveSheet.Cells(1, i).Column
End If
Next i
k = 2
Do While ActiveSheet.Cells(k, numcolone) ""
Me.ComboBox2.AddItem ActiveSheet.Cells(k, numcolone)
k = k + 1
Loop
End Sub