Choix en cascade des combobox sur formulaire Excel
HTML-код
- Опубликовано: 14 ноя 2022
- Ajouter des choix en cascade entre combobox sur un formulaire Excel.
Téléchargez le fichier d'origine sur mon site internet : www.kevinbrundu.fr/
-------------------------------
MERCI
-------------------------------
De regarder mes vidéos,
Pour vos partages
Et vos commentaires !
-------------------------------
RENDEZ-VOUS SUR MON SITE INTERNET
-------------------------------
www.kevinbrundu.fr/
Retrouvez y :
- Des fichiers Excel à télécharger gratuitement
- Mes formules clés en main sur Excel avec des fichiers prêts à l'emploi
- Mes services de Consultant Optimisation, Performance et Génération d'idées
-------------------------------
AUTRES RESSOURCES EN LIGNE
-------------------------------
- Livres publiés : www.amazon.fr/Kévin-Brundu/e/...
- Cours en ligne sur Udemy :
VBA Macro Excel - Formulaire simplifié sur une feuille Excel www.udemy.com/course/macro-ex...
VBA Macro Excel - Compiler des fichiers dans un seul tableau www.udemy.com/course/macro-ex...
Suivez toutes les actualités sur mon site internet directement.
-------------------------------
DES QUESTIONS ?
-------------------------------
Laissez vos questions en commentaires ou contactez-moi directement via mes réseaux sociaux.
-------------------------------
RESEAUX SOCIAUX
-------------------------------
Pour en savoir plus sur moi et me contacter :
Site internet : www.kevinbrundu.fr/
LinkedIn : / k%c3%a9vin-brundu-9a91...
Super, le code fonctionne parfaitement. Néanmoins, j'ai quand même un problème, je n'arrive pas à trier les données par ordre alphabétique dans les combobox, sauriez-vous nous expliquer le code Vba pour trier les données par ordre alphabétique dans la combobox
Salut, généralement, si j'ai ce besoin, je fais mon tri alphabétique avant d'intégrer les choix dans ma combobox. Par exemple en créant un onglet Paramètres où je vais faire ma liste de choix de combobox puis trier alphabétiquement pour ensuite les intégrer dans la combobox. Voir ici ruclips.net/video/UiKD1iV8TMw/видео.html
Voici mon problème
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