combobox cascade

[ccpapy]

bonsoir
il me reste plus qu'un souci de combobox en cascade pour finaliser mon projet
j'ai essayé de m'aider du travail de Menus en cascade
mais je suis perdu.
petit fichier joint

merci d'avance

 

[BOISGONTIER]

Re : combobox cascade

Bonjour,

Voir PJ

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

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

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

JB

 

[ccpapy]

Re : combobox cascade

bonjour et merci
j'ai vu que tu avais répondu sur un autre sujet également
je regarde ça, j'essaye de comprendre et d'appliquer et si tout va bien, je ne vous embête plus
(pour l'instant.... 🙂 )
bon week-end
edit:
suite et fin ici
https://www.excel-downloads.com/threads/onglet-mois-textbox.182124/

encore merci