XL 2010 RowSource Combobox - Classeur ouvert mais non actif

  • Initiateur de la discussion Initiateur de la discussion vgendron
  • 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 !

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
VB:
With FeuilleDonnéeClasseurMain
    Fin = .Range("A" & .Rows.Count).End(xlUp).Row
    Me.CBMain.RowSource = .Name & "!" & .Range("A1:A" & Fin).Address
End With
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
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 With
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....
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 With
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
 

Pièces jointes

- 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
8
Affichages
444
Réponses
4
Affichages
362
Réponses
3
Affichages
537
Retour