VBA Copier-coller des champs definis par noms

Fermé
stf755 - 15 juil. 2010 à 20:57
Bonjour,

Je suis débutant en VBA, j'ai un problème avec une macro ou je voudrais faire une boucle avec des champs définis par des noms

(copier default_1_a dans default_1_b,
copier default_2_a dans default_2_b, etc... jusque
copier default_20_a dans default_20_b)

'<vba>
Sub Macro1()

Dim i as integer
For i = 1 To 20
Range("default_" & i & "_a").Copy
Range("default_" & i & "_b").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next
End Sub
'</vba>


en gros si je fais l'opération individuellement ça marche

Range("default_1_a").Copy
Range("default_1_b").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
mais ma boucle ne fonctionne pas.

Quelqu'un aurait une idée ?


A voir également: