C/C boucleRésolu/Fermé

Question

Bonjour, 

Je cherche a faire une boucle en vba pour un simple copier coller

voici ce que j'ai fait (qui ne marche pas)

ThWbk.Activate
    For n = Range("AA65536").End(xlUp).Row To 1 Step -1
Range(Sheets("CLT DTX").Range("AA" & n), Sheets("CLT DTX").Range("AA" & n).End(xlToRight)).Copy
Windows(fich).Activate
Sheets("CLT DTX").Select
Range("L" & n).Paste
Next n

Merci par avance

Configuration: Windows XP / Internet Explorer 8.0

Lentz · Answer

Je viens d'apercevoir un détail supplémentaire,

Cela doit être un collage spécial !

michel_m · Answer

Bonjour

pas besoin de boucle...

codes -maquettes à adapter 
si uniquement copie des valeurs
With ThisWorkbook.Sheets(1)
     adr_fin = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Address
     With Range("a1:" & adr_fin)
          plage = .Value
          col = .Columns.Count
     End With
End With
'Windows(fich).Activate
Sheets(2).Range("L1").Resize(UBound(plage), col) = plage

si copie aussi les formats
With ThisWorkbook.Sheets(1)
     adr_fin = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Address
     Range("a1:" & adr_fin).Copy
End With
'Windows(fich).Activate
Sheets(2).Range("L1").Paste

si tu copies que des valeurs, il faut utiliser la première malgré qu'elle comporte + de lignes (le copy-paste "bouffe" énormément de mémoire et est très lent

C/C boucle

2 réponses

Newsletters