Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Faire plus rapide que Copy - Paste ?

Faire plus rapide que Copy - Paste ?

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Youky
Bonsoir LANIMAL
Comme cela . . .
Range("C" & Lign & ":H" & Lign).value = _
Worksheets(toto).Range("B" & k & ":G" & k).value

Youky


"LANIMAL" a écrit dans le message de news:

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


Avatar
LANIMAL
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" a écrit dans le message de news:

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