Syntaxe rowsource autre classeur

Bonjour,
Dans un classeur, j'ai une combo alimentée par RowSource=plage nommée de 4 colonnes. Lorsque je valide le choix par le bouton OK du userform (code ci-dessous), la macro recherche la valeur sélectionnée puis se décale de 2 ou 3 colonnes pour trouver les valeurs nécessaires à un replace. çà fonctionne tant qu'on reste dans le classeur. Mais le problème est que je vais avoir beaucoup de fichiers à traiter et je ne veux pas avoir à recopier les données à chaque fois dans le fichier contenant la macro

Quelle est la syntaxe à utiliser dans rowsource lorsqu'on active le userform depuis un autre classeur par un raccourci clavier, faut-il aussi préciser le classeur source dans le code suivant?

D'avance merci,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

With Sheets("Liste MMM").Range("Marque") Set sel = .Find(CboMark.Value) End With   AlY = sel.Offset(0, 2).Value AlX = sel.Offset(0, 3).Value   ActiveWorkbook.Sheets(1).Select LastRow = ActiveSheet.Range("B65000").End(xlUp).Row LastRow = CInt(LastRow) Range("G10:G" & LastRow).Select Selection.Replace What:="X", Replacement:=AlX, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="Y", Replacement:=AlY, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

---

Dommage que tu utilises les sélections sans quoi tu n'avais qu'une chose à changer.
Déjà, dans ton code, on ne sait pas si Sheets("Liste MMM") est la même feuille que Sheets(1)

Mais je suppose que tu te proposes de commence par ouvrir tes classeurs

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim CL1 as workbook Dim FL1 as worksheet Dim FL2 as worksheet Set CL1 = Workbooks.open (Chemin & NomFich) Set FL1 = CL1.Worksheets("Liste MMM") Set FL2 = CL1.Sheets(1) 'tu devrais utiliser le nom ici aussi With FL1.Range("Marque") Set sel = .Find(CboMark.Value) End With   AlY = sel.Offset(0, 2).Value AlX = sel.Offset(0, 3).Value   LastRow = FL2.Range("B65000").End(xlUp).Row 'si FL2 <> FL1 'LastRow = CInt(LastRow) 'inutile ! FL2.Range("G10:G" & LastRow).Replace What:="X", Replacement:=AlX, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False FL2.Range("G10:G" & LastRow).Replace What:="Y", Replacement:=AlY, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

---

Merci Ousk,
Je n'ai pas d'avantages à ouvrir les classeurs par macro dans cette appli. le classeur CL1 contenant la macro, inclut aussi la feuille FL1 "listeMM" qui contient la plage nommée.

En revanche la feuille FL2 du CL2, ne contient qu'une feuille (qui n'a pas encore de nom) avec les données à traiter; j'ai modifié mon code en suivant tes conseils, mais quand j'active le userform contenant la combo depuis CL2 par un raccourci clavier, la combo ne retrouve pas le chemin de la plage nommée qui est dans un autre classeur: quelle syntaxe mettre dans rowsource pour que la combo retrouve ses petits?
merci et bon WE, Serge

Tu peux mettre le code de la combo, serait plus facile ;)
Précise aussi le classeur et la feuille qui te servent à le charger.
A+

??Je n'ai pas de code dans la combo, elle est simplement en relation avec la plage nommée par Rowsource, et on clique sur un des éléments de la liste qui apparaît pour le sélectionner.

ensuite en cliquant sur un bouton OK du même userform, on active le code inclus ci-dessus.

Quand on est dans le classeur extérieur qui ne contient qu'une feuille de données, la combo n'affiche plus cette liste. En résumé:

Classeur 1: les macros, le usf avec la combo, et la plage nommée de référence
Classeur 2: une feuille de données à traiter.
On charge le userfrm avec un raccourci depuis le classeur2, c'est juste le lien (rowsource?) entre la combo et sa liste de référence qui ne fonctionne plus quand on est positionné dans le classeur 2

Ou faut-il déclarer la plage nommée autrement pour qu'elle puisse être reconnue depuis un autre classeur? (le code actuel permettant une réactualisation de la plage en cas d'addition)

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   Dim derlig As Long derlig = Range("b2").End(xlDown).Row Range("A2:D" & derlig).Name = "Marqueur" End Sub

---

Tout ça me paraît normal.
Pour renseigner une autre feuille dans un autre classeur, il est nécessaire que tu raffraichisses ton combo, et donc que tu redéfinisses ta source. Mais je ne saisie pas bien la chronologie de ce que tu fais....
Tu as bien un code pour renseigner ton combo. Rowsource = gnagnagna
Je demande simplement les références de feuille et de plage que tu as à renseigner. Je m'arrangerai avec mais fais ça ;)

Pour le principe et si reprend ça

Code:

---

1 2 3 4 5 6

Dim CL1 as workbook Dim FL1 as worksheet Dim FL2 as worksheet Set CL1 = Workbooks.open (Chemin & NomFich) Set FL1 = CL1.Worksheets("Liste MMM") Set FL2 = CL1.Sheets(1) 'tu devrais utiliser le nom ici aussi

---

Si ComboBox.Rowsource fait référence à FL2, tu dois changer l'instance de ta feuille et réinitialiser le combo
Si tu changes de classeur, il y a bien un moment où tu le changes... C'est là qu'il faut indiquer la nouvelle référence.
Pour faire ça, tu dois mettre ComboBox.Rowsource = ........ dans une procédure indépendante que tu appelles pour le premier classeur si ça t'intéresse, puis après chaque changement de classeur.

En fait, je veux modifier des données dans CL2 Fl2 des données, à partir d'une macro et d'une liste de référence placées dans CL1

L'idée est que CL1 reste ouvert en toile de fond, et que je traite divers fichiers de données (CL2 ...et +) déchargés d'une machine, en appelant ce userform depuis ce simple fichier de données par un raccourci.

Comme j'ai la sensation de ne pas utiliser cette combobox d'une manière orthodoxe ( et ce n'est pas la première fois que les combo se vengent) je te joins les deux fichiers exemples (allégés)
d'avance merci, Serge

Bonjour,

J'ai supprimé la plage nommée de la propriété rowsource de la combo pour la définir dans l'initialisation du userform; çà fonctionne toujours tant qu'on reste dans le même classeur.

Code:

---

1 2 3

Private Sub UserForm_Initialize() CboMarker.RowSource = "Marqueur" End Sub

---

Si Je rajoute une instruction visant à vérifier qu'on est bien dans le classeur macro (et en supprimant les espaces dans le nom du classeur), l'instruction true s'exécute normalement mais je ne parviens pas à rédiger l'instruction dans le "else" pour ne plus avoir de message d'erreur (ou faut-il être à l'extérieur du userform pour se référer au classeur actif?).
d'avance merci pour votre aide,

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() If ThisWorkbook.Name = "MacroGenoSNP.xls" Then CboMarker.RowSource = "Marqueur" Else CboMarker.RowSource = range("[MacroGenoSNP.xls].worksheets("Liste Marqueurs")!"Marqueur") End If End Sub

---

Bonjour ..

pour le classeur actif (celui qui as le focus, pas forcément celui qui contient la macro ) tu fais :

Code:

---

1 2	ActiveWorkBook.sheets("Feuil1").Range(...

---

pour le classeur qui héberge la macro :

Code:

---

1 2	Thisworkbook.sheets("Feuil1").range(...

---

Jacques.

Merci Jacques, çà buggue toujours, je pense que j'ai des erreurs de syntaxe dans le else mais je ne comprends pas où, j'ai essayé plusieurs choses mais je me retrouve avec le message invalid property pour rowsource ou erreur 380.

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() If ActiveWorkbook.Name = "MacroGenoSNP.xls" Then CboMarker.RowSource = "Marqueur" Else CboMarker.RowSource = Range("Thisworkbook.Sheets(""Liste Marqueurs"")!Marqueur") 'CboMarker.RowSource = Range("[MacroGenoSNP.xls].Sheets(""Liste Marqueurs"")!Marqueur") End If End Sub

---

Oui ... faut pas mettre le ThisWorkBook .. au milieu des "


une chose, la combo box elle doit toujours afficher les mêmes données quelque-soit la feuille/classeur actif ..?

si oui modifie son rowsource par :

Code:

---

1 2	'MacroGenoSNP.xls'!Marqueur

---

Trouvé une première erreur

Code:

---

Set CL1 = Workbooks("Macro GenoSNP 20_06_08")

---

Et si en outre il s'agit bien d'un classeur, il n'a pas d'extension genre ".xls" ? :mouarf:
A+

j'ai trouvé la seconde ! (j'ai pas dit la dernière !)
Tu as créé un raccourci clavier sur ton appli Ce raccourci, tant que le bon fichier qui contient la bonne macro est ouvert, il va fonctionner.
Ferme le fichier pour voir... Le raccourci t'enverra une erreur à moins qu'il te demande d'ouvrir le bon fichier (je n'ai pas vérifié). Toujours est-il que VBA ne sait pas que tu l'appelles depuis le second fichier (sans macro) et si tu lui dis "ThisWorkbook", c'est toujours celui contenant les macros que tu sollicites.
D'où les questions qui ne vont pas tarder :
- Le fichier que tu ouvres (celui sans macro) a-t-il toujours le même nom ?
- Au lancement de la macro, ne peux-tu pas l'instancier ?
Sinon, pour connaître son nom, tu peux faire une boucle sur les classeurs ouvert et celui qui ne possède pas le nom du classeur principal (contenant les macros) c'est l'autre que tu peux alors instancier CL2, de même que sa feuille
CL2.worksheets("Results")
A partir de ce moment là tu pourras faire ce que tu voudras avec ton userform.
Une autre solution : Créer un xla qui gère ça, le raccourci clavier lançant la macro contenue dans le xla, macro qui, je pense devrait être MontreUSF.
J'en suis là. Avant de continuer, il serait bien que tu traites ce problème qui conditionne tous les autres... s'il y en a ;)
Bonne soirée
A+

Merci à tous pour votre aide, mais je continue à collectionner les messages d'erreur et à tourner en rond en cherchant à ce que la combo se branche sur la plage nommée
1.La syntaxe suivante n'est pas reconnue, çà m'affiche "attendu:expression": se pourrait-il qu'avec une version anglaise d'excel 2003 la syntaxe soit un peu différente?

Code:

---

1 2 3

Private Sub UserForm_Initialize() CboMarker.RowSource='MacroGenoSNP.xls'!Marqueur End Sub

---

2.Comment doit-on précisément formuler le code après "CboMarker.RowSource=" pour préciser le fichier où se trouve la plage nommée pour qu'il soit accepté? (entre les guillemets, les ! , les points et les range, je peux recombiner longtemps au hasard avant de trouver la solution. J'obtiens une erreur 13 avec un code tel que celui-ci (visant à éviter un bug éventuellement lié au nom). RowSource attend pourtant bien un range??

Code:

---

CboMarker.RowSource = Workbooks("MacroGenoSNP.xls").Sheets("Liste Marqueurs").Range("A1:D60")

---

3. Apparemment, le raccourci ne génére pas d'erreur quand le fichier est fermé (doit-on s'en réjouir?). La conversion en xla serait possible mais dans ce cas je me méfie des raccourcis claviers
4. Les fichiers de données sont ouverts au coup par coup au sortir de la machine, les données y sont nettoyées et triées, puis collées dans d'autres fichiers résultats de destination; vu la variété de ce que nous manipulons, je souhaite rester avec le fichier macro qu'on ouvre en début de travail et les fichiers bruts qu'on ouvre au fur et mesure du traitement des résultats
5. Quel est l'intérêt d'instancier les fichiers bruts? il me semble que le principal pb est la liaison entre la combo et la plage nommée?
Merci pour votre compréhension et votre patience,
Serge

Je vais d'abord déblayer tes questions qui ne pose pas de pb.

Citation:

---

Envoyé par Taillise

3. Apparemment, le raccourci ne génére pas d'erreur quand le fichier est fermé (doit-on s'en réjouir?). La conversion en xla serait possible mais dans ce cas je me méfie des raccourcis claviers

---

C'est normal. Un raccourci sans macro derrière n'est qu'un raccourci qui mène nulle part. Le fichier étant fermé, la macro n'est pas trouvée. On n'en parle plus.
Par contre, ton raccourci demeure lié à ThisWorkbook, c'est à dire au classeur contenant les macros.

Citation:

---

Envoyé par Taillise

1.La syntaxe suivante n'est pas reconnue, çà m'affiche "attendu:expression": se pourrait-il qu'avec une version anglaise d'excel 2003 la syntaxe soit un peu différente?

---

Normal, la syntaxe n'est pas la bonne. Contrairement à ce que tu dis plus loin, RowSource n'attend pas un range mais une adresse, pas un "truc" tel que tu l'écris. En outre, soit il manque le nom de la feuille, soit il manque la plage de données.

Citation:

---

2.Comment doit-on précisément formuler le code après "CboMarker.RowSource=" ... J'obtiens une erreur 13 avec un code tel que celui-ci (visant à éviter un bug éventuellement lié au nom). RowSource attend pourtant bien un range??

Citation:

---

CboMarker.RowSource = Workbooks("MacroGenoSNP.xls").Sheets("Liste Marqueurs").Range("A1:D60")

---

---

Normal, RowSource attend une adresse, pas un range.
Exemple de ce que tu peux écrire :

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate() dim Plage As Range set Plage = Workbooks("LeClasseur.xls").Worksheets("feuil1").range("B1:B4") ListBox1.rowSource = Plage.address End Sub

---

Commence par corriger ça dans ton code, on verra pour les questions 4 à 25 ;)

Promis, j'abandonnerai avant la 25 ème question!

Effectivement c'est plus clair et je comprends mon erreur: j'aurais pu chercher longtemps à faire avaler un range à rowsource:

• Maintenant la macro cible le classeur de référence CL1 puis la bonne feuille et récupère l'adresse correcte de la plage ("A2:D52") nommée de reférence ; jusque là c'est gagné...sauf que
• Seule l'adresse ("A2:D52") est gardée par Cbo....rowsource, pas le chemin d'accès. La combo se retrouve alimentée par les données brutes de la plage (A2:D52) de la feuille active de CL2, et non par la plage nommée de référence: comment et où doit-on dire à la combo où chercher la source?

Montre ton code sans changer une ligne au dernier moment. Je veux comprendre ! :evil:
Ce n'est pas un petit code de rien du tout qui va nous embêter plus longtemps ! Non mais ! :evil:
A+ ;)

Voici le code, c'est un petit bout de code tellement simple qu'on se demande si le problème est bien à ce niveau

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub UserForm_activate() Dim Plage As Range Dim Cl1 As Workbook   'Ceci était la syntaxe indiquée dans ta précédente réponse et que j'avais d'abord testée 'Set Plage = Workbooks("MacroGenoSNP.xls").Worksheets("Liste Marqueurs").Range("Marqueur")   If ActiveWorkbook.Name = "MacroGenoSNP.xls" Then CboMarker.RowSource = "Marqueur" ' cà fonctionne Else CboMarker.RowSource = ThisWorkbook.Worksheets("Liste Marqueurs").Range("Marqueur").Address 'remarque: j'ai aussi essayé avec Workbooks("MacroGenoSNP.xls")à la place de ThisWorkbook 'dans les 2 cas on ne récupère pas les infos de la plage nommée, seulement une adresse ("A2:D52") 'appliquée à la feuille active End If End Sub

---

Quel est le classeur contenant les macros ?
Quel est le classeur ne contenant pas tes macros ni ton userform ?
Ta remarque "contradictoire" ne me permet pas de le deviner

Citation:

---

CboMarker.RowSource = ThisWorkbook.Worksheets("Liste Marqueurs").Range("Marqueur").Address
'remarque: j'ai aussi essayé avec Workbooks("MacroGenoSNP.xls")à la place de ThisWorkbook
'dans les 2 cas on ne récupère pas les infos de la plage nommée, seulement une adresse ("A2:D52")
'appliquée à la feuille active

---

Bonsoir Taillise

Comme voir plus si les données sont toujours dans la même feuille.
tu n'as pas besoin de macro, mais bon si tu y tiens il faut mettre des " :

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() CboMarker.RowSource="'MacroGenoSNP.xls'!Marqueur" End Su

---

Jacques.

Bonsoir,
Le classeur MacroGenoSNP contient les macros, le userform et la plage nommée de référence.

Les classeurs à traiter et contenant des données brutes peuvent avoir des titres très variables mais pour travailler sur ces données on se positionne sur ces classeurs alors désignés comme ActiveWorkbook dans le code.

Si des données sont placées dans le classeur MacroGenoSNP, une simple référence au nom suffit pour renseigner la combobox, celà fonctionne mais ne correspond pas à la manière dont nous voulons travailler.

l'instruction placée derrière le Else cherche à fournir le chemin et l'adresse de la plage nommée pour le cas général où on ne travaille pas dans le fichier MacroGenoSNP; d'où l'intérêt aussi du raccourci pour activer le userform. Le problème est qu'à ce stade seule l'adresse est récupérée, mais la combobox ne va pas chercher l'info dans la plage nommée du classeur MacroGenoSNP.

J'espère avoir levé l'ambiguité, merci pour ton aide,
Serge,

Je ne suis toujours pas certain d'avoir compris. Est-ce l'adresse de la plage nommée que tu veux récupérer pour afficher cette même plage mais dans le document "activeWorkbook" ?
Parce que dans ce cas-là, récupère cette adresse sous forme de string, non de range et utilise-la pour renseigner ta liste.
Si j'ai bien compris...
Ce qui donnerait

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_activate() Dim Plage As string   'Ceci était la syntaxe indiquée... CORRIGE-LA Plage = Workbooks("MacroGenoSNP.xls").Worksheets("Liste Marqueurs").Range("Marqueur").address   If ActiveWorkbook.Name = "MacroGenoSNP.xls" Then CboMarker.RowSource = "Marqueur" ' cà fonctionne Else CboMarker.RowSource = ActiveWorkbook.Worksheets("Liste Marqueurs").Range(Plage).Address End If End Sub

---

Tu dis

Mon problème est résolu, un grand merci à vous deux pour l'avoir examiné à des heures parfois tardives. :lol: d'autant plus que je réalise que j'ai semé la confusion par mes explications progressives. Quoiqu'il en soit, vos contributions sont précieuses. Pour que cet échange puisse profiter à d'autres utilisateurs, les données (et leur traitement) sont indépendantes du fichier macro qui contient aussi la plage de référence. La plage nommée permet de transformer les mesures brutes données par la machine en conclusions intelligibles par l'utilisateur. La formule donnée par Jackouya permet de solutionner le problème. Les explications de ousk m'avaient mis sur la voie d'une autre solution, moins rationnelle (présente dans le code comme commentaire) qui consiste à importer la plage de référence dans le fichier de données pour que la combo ne soit pas dépaysée...
voici le code et encore merci, Serge,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub UserForm_activate() Dim Plage As String   Plage = Workbooks("MacroGenoSNP.xls").Worksheets("Liste Marqueurs").Range("Marqueur").Address   If ActiveWorkbook.Name = "MacroGenoSNP.xls" Then CboMarker.RowSource = "Marqueur" Else CboMarker.RowSource = "'MacroGenoSNP.xls'!Marqueur" 'solution de jackouya   'solution N°2 on recopie carrément la liste nommée de référence dans chaque fichier de données à traiter 'Workbooks("MacroGenoSNP.xls").Sheets("Liste Marqueurs").Copy After:=ActiveWorkbook.Sheets(1) 'CboMarker.RowSource = "Marqueur" End If End Sub

---