VBA / Excel : consolidation et array problème

Bonsoir,

je souhaite faire une macro toute bête pour consolider un tableau.

Je suis parti de l'enregistreur de macro pour obtenir le code suivant :

Selection.Consolidate Sources:=Array("[Workbook2]Sheet1!R1C1:R4C4", _
"[Workbook2]Sheet2!R1C1:R4C4"), Function:=xlSum, TopRow:=True, LeftColumn _
:=True, CreateLinks:=False

Je veux améliorer le code

J'ai remplacé le code ci-dessus par quelque chose du genre :

F1 = "Sheet1" ' nom FEUILLE 1
F2 = "Sheet2" ' nom FEUILLE 2

test2 = F1 & "!R1C1:R4C4"
test2 = F2 & "!R1C1:R4C4"

Selection.Consolidate Sources:=Array(test, test2), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False

Ce bout de code marche, mais je n'ai pas encore réussi à faire ce que je voulais. Enfait, je veux juste améliorer mon code pour rajouter une variable plage :

plage = "A1:D4"

pour l'utiliser dans test

test = F1 & plage

Le problème c'est que c'est des référence du style R1C1 qu'il faut et non du style A1.

Comment faire en sorte que ma plage = "A1:D4" ressorte en R1C4 ??

merci

Salut le forum

Essaye avec la function Address

Set mc = Range("A1:D4")
MsgBox mc.Address()                              ' $A$1:$D$4
MsgBox mc.Address(RowAbsolute:=False)            ' $A1:$D4
MsgBox mc.Address(ReferenceStyle:=xlR1C1)        ' R1C1:R4C4

Mytå

merci, c'est exactement ce que je cherchais.