OVH Cloud OVH Cloud

Remplacer RC par Range

4 réponses
Avatar
Didier Novarin
Bonjour
Afin de rendre cette macro lisible, je voudrais transformer R2C1:R10C4 par
[A2:D11]
Je n'y arrive pas et ne sais pas si c'est possible !
Je vous remercie
Didier

"'C:\Documents and
Settings\Didier\Bureau\Questions\[*.xls]Feuil1'!R2C1:R10C4" _

4 réponses

Avatar
Jacquouille
Bonjour Didier
Loin de moi l'idée de me substituer au Capitaine Crochet, Président de la
SPA, mais il me semble que les crochets veulent dire"valeur de la cel".
Dans le cas que tu exposes, j'essaierais du tout terrain avec un beau Range.
Range("A2:D11")
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Didier Novarin" a écrit dans le message de
news: Of$
Bonjour
Afin de rendre cette macro lisible, je voudrais transformer R2C1:R10C4 par
[A2:D11]
Je n'y arrive pas et ne sais pas si c'est possible !
Je vous remercie
Didier

"'C:Documents and
SettingsDidierBureauQuestions[*.xls]Feuil1'!R2C1:R10C4" _





Avatar
Didier Novarin
Bonjour
En fait dans ma syntaxe à l'origine j'ai : Feuil1'!R2C1:R10C4
je mets ma syntaxe complète, je souhaite la remplacer par Range("A2:D10")
Mais cela plante
Merci
Didier

Sub Macro2()
Range("A2:D10").Select
Selection.ClearContents
[A2].Select
Selection.Consolidate Sources:= _
"'C:Documents and
SettingsDidierBureauQuestions[*.xls]Feuil1'!R2C1:R10C4" _
, Function:=xlSum, TopRow:úlse, LeftColumn:úlse,
CreateLinks:úlse
End Sub


Range("A2:D11")
"Jacquouille" a écrit dans le message de
news:
Bonjour Didier
Loin de moi l'idée de me substituer au Capitaine Crochet, Président de la
SPA, mais il me semble que les crochets veulent dire"valeur de la cel".
Dans le cas que tu exposes, j'essaierais du tout terrain avec un beau
Range. Range("A2:D11")
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Didier Novarin" a écrit dans le message de
news: Of$
Bonjour
Afin de rendre cette macro lisible, je voudrais transformer R2C1:R10C4
par [A2:D11]
Je n'y arrive pas et ne sais pas si c'est possible !
Je vous remercie
Didier

"'C:Documents and
SettingsDidierBureauQuestions[*.xls]Feuil1'!R2C1:R10C4" _









Avatar
Daniel
Bonjour.
Extrait de l'aide VBA :

Sources Argument de type Variant facultatif. Sources de la
consolidation sous forme d'un tableau de chaînes de références de texte en
notation de style R1C1. Les références doivent inclure le chemin complet des
feuilles à consolider.

Cordialement.
Daniel
"Didier Novarin" a écrit dans le message de
news: %
Bonjour
En fait dans ma syntaxe à l'origine j'ai : Feuil1'!R2C1:R10C4
je mets ma syntaxe complète, je souhaite la remplacer par Range("A2:D10")
Mais cela plante
Merci
Didier

Sub Macro2()
Range("A2:D10").Select
Selection.ClearContents
[A2].Select
Selection.Consolidate Sources:= _
"'C:Documents and
SettingsDidierBureauQuestions[*.xls]Feuil1'!R2C1:R10C4" _
, Function:=xlSum, TopRow:úlse, LeftColumn:úlse,
CreateLinks:úlse
End Sub


Range("A2:D11")
"Jacquouille" a écrit dans le message de
news:
Bonjour Didier
Loin de moi l'idée de me substituer au Capitaine Crochet, Président de la
SPA, mais il me semble que les crochets veulent dire"valeur de la cel".
Dans le cas que tu exposes, j'essaierais du tout terrain avec un beau
Range. Range("A2:D11")
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Didier Novarin" a écrit dans le message de
news: Of$
Bonjour
Afin de rendre cette macro lisible, je voudrais transformer R2C1:R10C4
par [A2:D11]
Je n'y arrive pas et ne sais pas si c'est possible !
Je vous remercie
Didier

"'C:Documents and
SettingsDidierBureauQuestions[*.xls]Feuil1'!R2C1:R10C4" _













Avatar
Didier Novarin
Je te remercie Daniel effectivement, c'est clair ;-)
Didier

"Daniel" a écrit dans le message de news:

Bonjour.
Extrait de l'aide VBA :

Sources Argument de type Variant facultatif. Sources de la
consolidation sous forme d'un tableau de chaînes de références de texte en
notation de style R1C1. Les références doivent inclure le chemin complet
des feuilles à consolider.

Cordialement.
Daniel
"Didier Novarin" a écrit dans le message de
news: %
Bonjour
En fait dans ma syntaxe à l'origine j'ai : Feuil1'!R2C1:R10C4
je mets ma syntaxe complète, je souhaite la remplacer par Range("A2:D10")
Mais cela plante
Merci
Didier

Sub Macro2()
Range("A2:D10").Select
Selection.ClearContents
[A2].Select
Selection.Consolidate Sources:= _
"'C:Documents and
SettingsDidierBureauQuestions[*.xls]Feuil1'!R2C1:R10C4" _
, Function:=xlSum, TopRow:úlse, LeftColumn:úlse,
CreateLinks:úlse
End Sub


Range("A2:D11")
"Jacquouille" a écrit dans le message de
news:
Bonjour Didier
Loin de moi l'idée de me substituer au Capitaine Crochet, Président de
la SPA, mais il me semble que les crochets veulent dire"valeur de la
cel".
Dans le cas que tu exposes, j'essaierais du tout terrain avec un beau
Range. Range("A2:D11")
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Didier Novarin" a écrit dans le message de
news: Of$
Bonjour
Afin de rendre cette macro lisible, je voudrais transformer R2C1:R10C4
par [A2:D11]
Je n'y arrive pas et ne sais pas si c'est possible !
Je vous remercie
Didier

"'C:Documents and
SettingsDidierBureauQuestions[*.xls]Feuil1'!R2C1:R10C4" _