problème de référence Fermé

Question

Bonjour,
Mon problème est le suivant:

J'ai douze fois la même feuil au nom prés.

Je souhaiterai faire la chose suivante:

'RtoC = range to copy
'PtoP = Place to paste (les apostrophes ne sont pas la par erreur, c'est juste pour mémoire et info)

RtoC = range("J28:W28")
PtoP = range("J33:W33")

worksheets("Jan").RtoC.copy
Worksheets("Jan").PtoP.PasteSpecial xlpasteValue

worksheets("Feb").RtoC.copy
Worksheets("Feb").PtoP.PasteSpecial xlpasteValue

Sauf que ca marche pas... snif...

Help Please. 

MC's a Gk

gbinforme · Answer

bonjour

Sauf que ca marche pas... snif... 

Il ne sert à rien de pleurer, il suffit de respecter la syntaxe de VBA pour que cela fonctionne :

Dim RtoC As String, PtoP As String
RtoC = "J28:W28"
PtoP = "J33:W33"

Worksheets("Jan").Range(RtoC).Copy
Worksheets("Jan").Range(PtoP).PasteSpecial Paste:=xlPasteValues

Worksheets("Feb").Range(RtoC).Copy
Worksheets("Feb").Range(PtoP).PasteSpecial Paste:=xlPasteValues

Problème de référence

1 réponse

Discussions similaires