Faire plus rapide que Copy - Paste ?

Le
LANIMAL
Bonsoir,
Ces 2 lignes sont dans une boucle (variable k) qui tourne 60 fois
(avec Lign variable aussi)

Worksheets(toto).Range("B" & k & ":G" & k).Copy
Range("C" & Lign).PasteSpecial Paste:=xlValues

Afin d'accélérer, j'ai essayé d'éviter le Copy - Paste:=xlValues
en le remplaçant par la ligne suivante :

Range("C" & Lign & ":H" & Lign) = _
Worksheets(toto).Range("B" & k & ":G" & k)

Aucune alerte-erreur n'apparait, mais
Range("C" & Lign & ":H" & Lign) reste vide.
Je ne vois pas ce qui cloche !
Quelqu'un pourrait-il me dire quoi faire ?
Merci
LANIMAL
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Youky
Le #17920191
Bonsoir LANIMAL
Comme cela . . .
Range("C" & Lign & ":H" & Lign).value = _
Worksheets(toto).Range("B" & k & ":G" & k).value

Youky


"LANIMAL"
Bonsoir,
Ces 2 lignes sont dans une boucle (variable k) qui tourne 60 fois
(avec Lign variable aussi)

Worksheets(toto).Range("B" & k & ":G" & k).Copy
Range("C" & Lign).PasteSpecial Paste:=xlValues

Afin d'accélérer, j'ai essayé d'éviter le Copy - Paste:=xlValues
en le remplaçant par la ligne suivante :

Range("C" & Lign & ":H" & Lign) = _
Worksheets(toto).Range("B" & k & ":G" & k)

Aucune alerte-erreur n'apparait, mais
Range("C" & Lign & ":H" & Lign) reste vide.
Je ne vois pas ce qui cloche !
Quelqu'un pourrait-il me dire quoi faire ?
Merci
LANIMAL


LANIMAL
Le #17920311
Merci Youky, les 60 boucles s'exécutent en 15 sec (contre 23 avant)
Bonne soirée
LANIMAL

Youky a écrit :
Bonsoir LANIMAL
Comme cela . . .
Range("C" & Lign & ":H" & Lign).value = _
Worksheets(toto).Range("B" & k & ":G" & k).value

Youky


"LANIMAL"
Bonsoir,
Ces 2 lignes sont dans une boucle (variable k) qui tourne 60 fois
(avec Lign variable aussi)

Worksheets(toto).Range("B" & k & ":G" & k).Copy
Range("C" & Lign).PasteSpecial Paste:=xlValues

Afin d'accélérer, j'ai essayé d'éviter le Copy - Paste:=xlValues
en le remplaçant par la ligne suivante :

Range("C" & Lign & ":H" & Lign) = _
Worksheets(toto).Range("B" & k & ":G" & k)

Aucune alerte-erreur n'apparait, mais
Range("C" & Lign & ":H" & Lign) reste vide.
Je ne vois pas ce qui cloche !
Quelqu'un pourrait-il me dire quoi faire ?
Merci
LANIMAL






Publicité
Poster une réponse
Anonyme