Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

combobox cascade

  • Initiateur de la discussion Initiateur de la discussion ccpapy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : combobox cascade

Bonjour,

Voir PJ

Code:
Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("effets")
  Me.ComboBox1.List = f.Cells(2, "a").Resize(Application.CountA(f.Columns(1)) - 1).Value
End Sub

Private Sub ComboBox1_click()
  ligne = Me.ComboBox1.ListIndex + 2
  Me.ComboBox2.List = Application.Transpose(f.Cells(ligne, "b").Resize(, Application.CountA(f.Rows(ligne)) - 1))
End Sub

ou en utilisant les noms de champ

Code:
Private Sub ComboBox4_Change()
  Me.ComboBox6.List = Application.Transpose(Range(Replace(Me.ComboBox4, " ", "_")))
End Sub

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVCascadeHoriz2.xls

JB
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
40
Affichages
2 K
Réponses
37
Affichages
1 K
  • Question Question
Microsoft 365 Liste de choix...
Réponses
8
Affichages
326
Réponses
15
Affichages
896
Réponses
9
Affichages
262
Réponses
5
Affichages
247
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…