Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro trop lourde

J

Jungle

XLDnaute Nouveau
Bonjour à tous !!!

Voila mon problème aujourd'hui...
J'ai créée une macro mais elle est trop lourde, je m'explique: Quand je lance la macro mon écran se met à "vibrer"...

Je vous met la partie que j'aimerais si possible diminuer.

Sheets("Enregistrer_commande").Select
Range("I29").Select
Selection.Copy
Sheets("Listing").Select
Range("K3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G15").Select
Selection.Copy
Sheets("Listing").Select
Range("Q3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I15").Select
Selection.Copy
Sheets("Listing").Select
Range("S3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G16").Select
Selection.Copy
Sheets("Listing").Select
Range("AB3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G17").Select
Selection.Copy
Sheets("Listing").Select
Range("AI3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I17").Select
Selection.Copy
Sheets("Listing").Select
Range("AK3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G18").Select
Selection.Copy
Sheets("Listing").Select
Range("AR3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I18").Select
Selection.Copy
Sheets("Listing").Select
Range("AT3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G19").Select
Selection.Copy
Sheets("Listing").Select
Range("BA3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I19").Select
Selection.Copy
Sheets("Listing").Select
Range("BC3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G20").Select
Selection.Copy
Sheets("Listing").Select
Range("BJ3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I20").Select
Selection.Copy
Sheets("Listing").Select
Range("BL3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G21").Select
Selection.Copy
Sheets("Listing").Select
Range("BS3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I21").Select
Selection.Copy
Sheets("Listing").Select
Range("BU3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G22").Select
Selection.Copy
Sheets("Listing").Select
Range("CB3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I22").Select
Selection.Copy
Sheets("Listing").Select
Range("CD3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G23").Select
Selection.Copy
Sheets("Listing").Select
Range("CK3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I23").Select
Selection.Copy
Sheets("Listing").Select
Range("CM3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G24").Select
Selection.Copy
Sheets("Listing").Select
Range("CT3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I24").Select
Selection.Copy
Sheets("Listing").Select
Range("CV3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G25").Select
Selection.Copy
Sheets("Listing").Select
Range("DC3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I25").Select
Selection.Copy
Sheets("Listing").Select
Range("DE3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G26").Select
Selection.Copy
Sheets("Listing").Select
Range("DL3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I26").Select
Selection.Copy
Sheets("Listing").Select
Range("DN3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G27").Select
Selection.Copy
Sheets("Listing").Select
Range("DU3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I27").Select
Selection.Copy
Sheets("Listing").Select
Range("DW3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G28").Select
Selection.Copy
Sheets("Listing").Select
Range("ED3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I28").Select
Selection.Copy
Sheets("Listing").Select
Range("EF3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False


Je ne sais pas si c'est clair pour vous...
 
Trier par date Trier par votes
D

Denis

Guest
Re : macro trop lourde

Bonjour le fil et le forum
simplifie également comme ceci

Sheets("Enregistrer_commande").Range("I28").Copy
Sheets("Listing").Range("EF3").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

les select sont inutiles et la macro va beaucoup + vite
Bon courage et à +
Denis
 
Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc
Re : macro trop lourde

Bonjour à tous,
Un exemple pour le premier "Copier / Coller":
Code: 
Sheets("Listing").Range("K3").Value = Sheets("Enregistrer_commande").Range("I29").Value
Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
194
micie1509
M
  • Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
16
Affichages
608
Phil69970
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
468
robpellan52
R
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
1 K
job75
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
576
gwenn49
G
V
  • Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
469
Valter
V
O
  • Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
645
olivier388
O
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
286
Francky79
F
M
  • Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
331
Marvin57
M
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…