Syntaxe rowsource autre classeur

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

---