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

macro trop lourde

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Jungle
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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
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.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
151
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
293
AtTheOne
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
326
sylvanu
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
558
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
368
Nounours4173
N
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
363
cdric78
C
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
288
MICHIS
M
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
101
eastwick
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
562
Phil69970
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
459
micie1509
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
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
662
robpellan52
R
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
648
Valter
V
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
752
gwenn49
G
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
402
Francky79
F
M
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
492
Marvin57
M
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
800
olivier388
O
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
1 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…