Discussion :

[Mel33]

Bonjour,

J'ai un problème de syntaxe pour copier coller en valeurs une plage de cellules.
Mon premier code fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Sheets("Calculs").Range("G10:G1000").Copy
Sheets("A masquer").Range("F2").PasteSpecial Paste:=xlValues

Mais je suis en réalité dans une boucle et j'aimerais copier toujours la même colonne G10:G1000 de ma colonne Calculs dans une colonne qui varie en fonction de X, soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
For X = 6 To variable
Sheets("Calculs").Range("G10:G1000").Copy
Sheets("A masquer").Range(Sheets("A masquer").Cells(2, X)).PasteSpecial Paste:=xlValues
Next X

Mais ce code ne fonctionne pas..

Merci d'avance de votre précieuse aide

[unparia]

Bonjour,
la notation Range n'a pas à être utilisée en conjugaison avec la notation cells. Ce serait un non sens. -->

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("A masquer").Cells(2, X).PasteSpecial Paste:=xlValues

PS je n'aime par ailleurs pas les procédés du genre Copy puis paste, qui impliquent l'intervention du presse-papiers
Il est plus normal (et agile) de travailler directement sur les objets Excel en utilisant la méthode Range.copy et son paramètre destination.