vgendron
XLDnaute Barbatruc
Bonjour à toutes et tous..
à mon tour, j'ai un souci que je vous soumets ici
j'ai deux classeurs:
1 --> classeur MAIN qui représente mon application principale
2--> classeur Données qui contient les datas dont l'application a besoin
les DEUX sont ouverts
SUR le classeur MAIN, une macro qui ouvre un formulaire contenant 2 combobox
le combobox CBMAIN est alimenté par des datas qui se trouvent sur le classeur MAIN actif
ceci fonctionne bien puisque la feuille est celle du classeur actif
le combobox CBDonnée est alimenté par des datas qui se trouvent sur le classeur Données
dans ce code, SANS le .activate, impossible de définir le rowsource
pour éviter d'avoir à basculer d'un fichier à un autre, j'ai besoin de me passer du .activate..
j'imaginais qu'un truc du genre ferait l'affaire.. mais non....
ou alors un
Me.CBDonnées.RowSource = ClasseurDonnée.name &"'" &.Name & "!" & .Range("A1:A" & Fin).Address
y a t il une syntaxe particulière ???
Merci d'avance
à mon tour, j'ai un souci que je vous soumets ici
j'ai deux classeurs:
1 --> classeur MAIN qui représente mon application principale
2--> classeur Données qui contient les datas dont l'application a besoin
les DEUX sont ouverts
SUR le classeur MAIN, une macro qui ouvre un formulaire contenant 2 combobox
le combobox CBMAIN est alimenté par des datas qui se trouvent sur le classeur MAIN actif
VB:
With FeuilleDonnéeClasseurMain
Fin = .Range("A" & .Rows.Count).End(xlUp).Row
Me.CBMain.RowSource = .Name & "!" & .Range("A1:A" & Fin).Address
End Withle combobox CBDonnée est alimenté par des datas qui se trouvent sur le classeur Données
VB:
With FeuilleDonnéeClasseurDonnée
.Activate
Fin = .Range("A" & .Rows.Count).End(xlUp).Row
Me.CBDonnées.RowSource = .Name & "!" & .Range("A1:A" & Fin).Address
End Withpour éviter d'avoir à basculer d'un fichier à un autre, j'ai besoin de me passer du .activate..
j'imaginais qu'un truc du genre ferait l'affaire.. mais non....
VB:
With ClasseurDonnée.FeuilleDonnéeClasseurDonnée
' .Activate
Fin = .Range("A" & .Rows.Count).End(xlUp).Row
Me.CBDonnées.RowSource = .Name & "!" & .Range("A1:A" & Fin).Address
End WithMe.CBDonnées.RowSource = ClasseurDonnée.name &"'" &.Name & "!" & .Range("A1:A" & Fin).Address
y a t il une syntaxe particulière ???
Merci d'avance