Bonjour,
J'ai un gros souci de rapidité pour copier et coller des valeurs ... :
J'ai un classeur, en Feuil "Eux", en K, j'ai des formules. Je souhaite copier/coller ces formules de L à HIF et les copier/coller valeurs (car les formules sont assez complexes et Excel plante....)
J'utilise ce code :
= je "garde" en K la formule d'origine, la copie en L et ensuite la copie/colle/valeur jusqu'à dernierecolonne (=5648 (HIF)) et je passe à la ligne suivante et ainsi de suite.....
Il y a 4000 lignes et cela met un sacré temps......
N'y aurait-il pas un moyen plus "rapide" ? (sachant qu'il faut toujours garder la formule d'"origine" en K....)
En vous remerciant pour votre aide,
J'ai un gros souci de rapidité pour copier et coller des valeurs ... :
J'ai un classeur, en Feuil "Eux", en K, j'ai des formules. Je souhaite copier/coller ces formules de L à HIF et les copier/coller valeurs (car les formules sont assez complexes et Excel plante....)
J'utilise ce code :
Code:
For i = 2 To Feuil5.Range("A65536").End(xlUp).Row
Sheets("Eux").Select
With Range("K" & i)
.AutoFill Destination:=Range("K" & i & ":L" & i), Type:=xlFillDefault
End With
Range("L2:L" & i).Copy
With Range(Cells(2, 12), Cells(i, dernierecolonne + 3))
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
next
Il y a 4000 lignes et cela met un sacré temps......
N'y aurait-il pas un moyen plus "rapide" ? (sachant qu'il faut toujours garder la formule d'"origine" en K....)
En vous remerciant pour votre aide,