cascade de 2 combobox d'un autre classeur

[regnum]

bonsoir a tous

Un petit souci ,j'ai un classeur de base de donnée (BD.xls) et un classeur ou se trouve l'userform (formulaire.xls).

Je cherche à remplir mes 2 combobox qui sont dans userform du classeur formulaire avec les feuilles du classeur BD.
Remplir combobox1 ,ça pas de problème mais j'ai des soucies pour remplir la combobox2 là ça cloche.(combobox1 est remplie par les nom des feuilles du classeur BD et la combobox2 par la colonne (A5:A).

les 2 classeur seront ouvert.

merci pour le coup de main.

[Banzai64]

Bonsoir

Erreur de codage

Code: Tout sélectionner

Private Sub ComboBox1_Change()
Dim c As Range
ComboBox2.Clear
 

[regnum]

bonsoir banzai64

je ne vois pas quelle variable je dois prendre?
je comprends mon erreur du" .Range"

[Banzai64]

Bonsoir
J'ai juste modifié le code et pas de problème

Le code complet

Code: Tout sélectionner

Private Sub ComboBox1_Change()
Dim c As Range
ComboBox2.Clear
With Workbooks("BD.xls").Sheets(ComboBox1.Text)
        For Each c In .Range("A5:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
         ComboBox2.AddItem c
        Next
 End With
End Sub
 

[regnum]

Re,

j'ai vraiment de la M....... dans les yeux.....

merci banzai64 de me les avoir ouverts..

A+

[sidah.med]

Salut le forum

Regnum, tu es chanceux que BANZAI t'ai répondu.

Il ne devait pas savoir que tu étais un adepte du Crosspostage


regnum
Voir le profil
Voir ses messages
Message privé
Envoyer un email
XLDnaute Junior

--------------------------------------------------------------------------------
Date d'inscription mai 2011
Messages 58 Re : cascade de 2 combobox d'un autre classeur
re a tous

j'ai trouver mon problème,mon code comportait une erreur de code.

j'avais mis


Code :
Private Sub ComboBox1_Change()
Dim c As Ranges
ComboBox2.Clear

au lieu de

[regnum]

bonsoir sidah.med

je ne savais meme pas ce qu'était un crossportage....
Est ce interdit de demander à plusieur forum et de donner une réponce ?

En tous cas je me coucherais moins "C....." ce soir avec un crossportage.

A+

[sidah.med]

bonsoir sidah.med

je ne savais meme pas ce qu'était un crossportage....
Est ce interdit de demander à plusieur forum et de donner une réponce ?

En tous cas je me coucherais moins "C....." ce soir avec un crossportage.

A+

RBONSOIR REGNUM
moi aussi je le savais pas mais malheureusement je suis un victime crossportage....de la part Mytå ( je me demande ou est t-il ???????)
Boone nuit A+

[regnum]

re

je serais plus attentif et ne courrais qu'un seul lièvre à la fois

bonne nuit a tous