C/C boucle
Résolu
Lentz
-
Lentz -
Lentz -
Bonjour,
Je cherche a faire une boucle en vba pour un simple copier coller
voici ce que j'ai fait (qui ne marche pas)
Merci par avance
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
2 réponses
Bonjour
pas besoin de boucle...
codes -maquettes à adapter
si uniquement copie des valeurs
si copie aussi les formats
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
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
Lentz
Mercii :)
michel_m
Messages postés
16602
Date d'inscription
Statut
Contributeur
Dernière intervention
3 314
quand tu annonces ensuite "collage spécial", pourrais tu avoir la grande mansuétude de nous indiquer de quel cillage spécial il s'agit.... :-(
Lentz
En valeur, mais le problème est résolu, merci bien ;)