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

Guest
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
208
Magic_Doctor
F
Fdaga
Réponses
2
Affichages
123
dysorthographie
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
428
juju91
J
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
329
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
625
AtTheOne
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
551
sylvanu
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
780
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
723
Nounours4173
N
F
Fdaga
Réponses
0
Affichages
184
Fdaga
F
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
528
cdric78
C
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
393
MICHIS
M
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
186
eastwick
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
986
Phil69970
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
674
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
3 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
793
robpellan52
R
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
738
Valter
V
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
978
gwenn49
G
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
478
Francky79
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…