Problème de référence
Anonyme
-
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Problème de référence
- Indice de référence des loyers - Guide
- Excel la référence n'est pas valide - Forum Excel
- Excel a rencontré un problème au niveau d'une ou de plusieurs références de formules - Forum Bureautique
- Excel a rencontré un problème au niveau d'une ou de plusieurs références - Forum Excel
- EXCEL : trouver une reference externe ✓ - Forum Excel
1 réponse
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 :
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
