Microsoft 365 Excel vba

Créer une discussion
Répondre

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
B

Boubie

XLDnaute Junior
Bonjour à tous,

Je m'initie tant bien que mal aux macros et je rencontre un problème de mémoire car mon code est trop simpliste!

Ma macro semble être très énergivore ce qui n'est pas étonnant car je lui demande de répéter la même action à de nombreuse reprise.

mais je ne connais le code pour comment alléger.

Je vous joins mon fichier Word avec le code; le fichier Excel étant trop long à ouvrir

L'idée est de reporter certaines colonnes issus de 2 feuilles différentes ("REALISE" et "BUDGET") et de reporter sur 2 autres feuilles à des endroits bien précis.

Quelqu'un peut il m'aider car mon fichier ne s'ouvre plus correctement et je sais plus quoi faire, svp

Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Bonjour à tous,
@Boubie,
D'abord évite le select

Ce bout de code :
Code: 
' 'Exercice comptable

Sheets("Sheet1").Select

Range("A2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Sheets("TabReal").Select

Range("A2").Select

Selection.PasteSpecialPaste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

à remplacer par celui là:

VB: 
'---
Sheets("Sheet1").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
Sheets("TabReal").Range("A2").PasteSpecial Paste:=xlPasteValues

à refaire avec la suite du code.
 
Vote positif 0 Vote négatif
Re,
Code: 
Sub MGExportPGI()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''DONNEES REALISE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Exercice comptable
Sheets("Sheet1").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
Sheets("TabReal").Range("A2").PasteSpecial Paste:=xlPasteValues
 'Domaine d'activité
Sheets("Sheet1").Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Copy
Sheets("TabReal").Range("C2").PasteSpecial Paste:=xlPasteValues
 'Définition Projet
Sheets("Sheet1").Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).Copy
Sheets("TabReal").Range("D2").PasteSpecial Paste:=xlPasteValues
'Elément d'OTP
Sheets("Sheet1").Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row).Copy
Sheets("TabReal").Range("G2").PasteSpecial Paste:=xlPasteValues
'Val/dev.état
Sheets("Sheet1").Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row).Copy
Sheets("TabReal").Range("J2").PasteSpecial Paste:=xlPasteValues
'Nature comptable
Sheets("Sheet1").Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row).Copy
Sheets("TabReal").Range("P2").PasteSpecial Paste:=xlPasteValues
'Document d'achat
Sheets("Sheet1").Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row).Copy
Sheets("TabReal").Range("R2").PasteSpecial Paste:=xlPasteValues
'Poste de Cde
Sheets("Sheet1").Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row).Copy
Sheets("TabReal").Range("W2").PasteSpecial Paste:=xlPasteValues
'Type de Pièce
Sheets("Sheet1").Range("I2:I" & Cells(Rows.Count, "I").End(xlUp).Row).Copy
Sheets("TabReal").Range("X2").PasteSpecial Paste:=xlPasteValues
'Date comptable
Sheets("Sheet1").Range("J2:J" & Cells(Rows.Count, "J").End(xlUp).Row).Copy
Sheets("TabReal").Range("Y2").PasteSpecial Paste:=xlPasteValues

''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'DONNEES BUDGET
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   'Exercice comptable
Sheets("Sheet2").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
Sheets("TabEng").Range("A2").PasteSpecial Paste:=xlPasteValues
'Domaine d'activité
Sheets("Sheet2").Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Copy
Sheets("TabEng").Range("C2").PasteSpecial Paste:=xlPasteValues
 'Dénition de projet
 Sheets("Sheet2").Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).Copy
Sheets("TabEng").Range("D2").PasteSpecial Paste:=xlPasteValues
'Elément d'OTP
Sheets("Sheet2").Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row).Copy
Sheets("TabEng").Range("G2").PasteSpecial Paste:=xlPasteValues
 'Val/dev.état
Sheets("Sheet2").Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row).Copy
Sheets("TabEng").Range("J2").PasteSpecial Paste:=xlPasteValues
'Catégorie de la pièce de référence
Sheets("Sheet2").Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row).Copy
Sheets("TabEng").Range("R2").PasteSpecial Paste:=xlPasteValues
'Nº pièce référence
Sheets("Sheet2").Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row).Copy
Sheets("TabEng").Range("S2").PasteSpecial Paste:=xlPasteValues
'Poste de réf.
Sheets("Sheet2").Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row).Copy
Sheets("TabEng").Range("T2").PasteSpecial Paste:=xlPasteValues
    'Désignation
Sheets("Sheet2").Range("I2:I" & Cells(Rows.Count, "I").End(xlUp).Row).Copy
Sheets("TabEng").Range("U2").PasteSpecial Paste:=xlPasteValues
    'Date de livraison
Sheets("Sheet2").Range("J2:J" & Cells(Rows.Count, "J").End(xlUp).Row).Copy
Sheets("TabEng").Range("V2").PasteSpecial Paste:=xlPasteValues
End Sub

Test pour une base de données de 350 lignes : 1 seconde.
 
Vote positif 0 Vote négatif
kingfadhel à dit:
Re,
Code: 
Sub MGExportPGI()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''DONNEES REALISE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Exercice comptable
Sheets("Sheet1").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
Sheets("TabReal").Range("A2").PasteSpecial Paste:=xlPasteValues
 'Domaine d'activité
Sheets("Sheet1").Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Copy
Sheets("TabReal").Range("C2").PasteSpecial Paste:=xlPasteValues
 'Définition Projet
Sheets("Sheet1").Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).Copy
Sheets("TabReal").Range("D2").PasteSpecial Paste:=xlPasteValues
'Elément d'OTP
Sheets("Sheet1").Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row).Copy
Sheets("TabReal").Range("G2").PasteSpecial Paste:=xlPasteValues
'Val/dev.état
Sheets("Sheet1").Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row).Copy
Sheets("TabReal").Range("J2").PasteSpecial Paste:=xlPasteValues
'Nature comptable
Sheets("Sheet1").Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row).Copy
Sheets("TabReal").Range("P2").PasteSpecial Paste:=xlPasteValues
'Document d'achat
Sheets("Sheet1").Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row).Copy
Sheets("TabReal").Range("R2").PasteSpecial Paste:=xlPasteValues
'Poste de Cde
Sheets("Sheet1").Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row).Copy
Sheets("TabReal").Range("W2").PasteSpecial Paste:=xlPasteValues
'Type de Pièce
Sheets("Sheet1").Range("I2:I" & Cells(Rows.Count, "I").End(xlUp).Row).Copy
Sheets("TabReal").Range("X2").PasteSpecial Paste:=xlPasteValues
'Date comptable
Sheets("Sheet1").Range("J2:J" & Cells(Rows.Count, "J").End(xlUp).Row).Copy
Sheets("TabReal").Range("Y2").PasteSpecial Paste:=xlPasteValues

''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'DONNEES BUDGET
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   'Exercice comptable
Sheets("Sheet2").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
Sheets("TabEng").Range("A2").PasteSpecial Paste:=xlPasteValues
'Domaine d'activité
Sheets("Sheet2").Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Copy
Sheets("TabEng").Range("C2").PasteSpecial Paste:=xlPasteValues
 'Dénition de projet
 Sheets("Sheet2").Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).Copy
Sheets("TabEng").Range("D2").PasteSpecial Paste:=xlPasteValues
'Elément d'OTP
Sheets("Sheet2").Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row).Copy
Sheets("TabEng").Range("G2").PasteSpecial Paste:=xlPasteValues
 'Val/dev.état
Sheets("Sheet2").Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row).Copy
Sheets("TabEng").Range("J2").PasteSpecial Paste:=xlPasteValues
'Catégorie de la pièce de référence
Sheets("Sheet2").Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row).Copy
Sheets("TabEng").Range("R2").PasteSpecial Paste:=xlPasteValues
'Nº pièce référence
Sheets("Sheet2").Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row).Copy
Sheets("TabEng").Range("S2").PasteSpecial Paste:=xlPasteValues
'Poste de réf.
Sheets("Sheet2").Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row).Copy
Sheets("TabEng").Range("T2").PasteSpecial Paste:=xlPasteValues
    'Désignation
Sheets("Sheet2").Range("I2:I" & Cells(Rows.Count, "I").End(xlUp).Row).Copy
Sheets("TabEng").Range("U2").PasteSpecial Paste:=xlPasteValues
    'Date de livraison
Sheets("Sheet2").Range("J2:J" & Cells(Rows.Count, "J").End(xlUp).Row).Copy
Sheets("TabEng").Range("V2").PasteSpecial Paste:=xlPasteValues
End Sub

Test pour une base de données de 350 lignes : 1 seconde.
Cliquez pour agrandir...
Tu est trop top.... Merci 🙂
 
Vote positif 0 Vote négatif
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

P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
90
vgendron
vgendron
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
93
Pierreavecunp
P
F
  • Résolu(e)
XL 2019 VBA : revenir à la feuille précédente ActiveSheet.Previous.Select
Réponses
14
Affichages
253
Fabien.Romo
F
A
  • Résolu(e)
Microsoft 365 Formule de copie a la suite VBA
Réponses
8
Affichages
389
Alexis84430
A
P
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
115
papychat1
P
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
517
steph_29120
S
N
  • Résolu(e)
Microsoft 365 Code erreur dans code Vba
Réponses
14
Affichages
414
TooFatBoy
TooFatBoy
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
795
jebibo
J
riton00
  • Résolu(e)
XL 2021 Modification d'un code VBA
Réponses
5
Affichages
413
kiki29
kiki29
T
  • Résolu(e)
Microsoft 365 Correction Code VBA
Réponses
10
Affichages
402
Thomi
T
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
591
Max
M
D
  • Résolu(e)
Microsoft 365 TRIER SUR FEUILLE PROTEGER
Réponses
8
Affichages
497
dd_76
D
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
359
ma6me
M
F
  • Question Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
253
fuioplde
F
B
  • Question Question
XL 2019 Exportation Feuille PDF VBA
Réponses
2
Affichages
610
kiki29
kiki29
chinel
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
233
chinel
chinel
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
728
fanfan38
fanfan38
BLACKHAYES
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
153
cathodique
cathodique
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
518
Max
M
E
  • Question Question
XL 2013 Code VBA
Réponses
12
Affichages
909
eutrophisation
E
Retour