Probleme macro long a charger

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion momo93240
  • 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
M

momo93240

Guest
Bonjour,

J'ai effectué une macro sur excel mais lorque la lance ça prend pas mal de temps voir quelque fois j'ai des probleme de debogage.

Pouvez vous m'aider?

D'avance merci.

Mona

Ci-joint le text du vba
 

Pièces jointes

Trier par date Trier par votes
Re : Probleme macro long a charger

Bonsoir momo93240 le forum
et si tu mettais ton fichier plutôt qu'une copie de ta macro si on peut appeler cela comme ça!!!
avec ce que tu as au départ et ce que tu souhaites à la fin on pourrait certainement t'aider mieux
a+
papou 🙂
 
Vote positif 0 Vote négatif
Re : Probleme macro long a charger

Bonjour à tous,
J'ai effectué une macro sur excel mais ...............
Cliquez pour agrandir...
tu as enregistré une macro et usé et abusé des déplacements sur la feuille (avec la molette de la souris) pendant l'enregistrement

après nettoyage des quelques 1500 lignes inutiles, ta macro reste cependant incompréhensible

à+
Philippe
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Probleme macro long a charger

Bonjour tout le monde

j'ai essayé d'épurer cette c...
Code: 
Sub debut()
'
' debut Macro
' Macro enregistrée le 23/09/2010 par MXA3129
'

'
    Range("L2:Q2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("OD").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    
    Range("A2").Select
    Sheets("Data").Select
    Selection.Copy
    Sheets("OD").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.End(xlDown).Select
    Range("A754").Select
    Sheets("Data").Select
    Range("R2:W2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OD").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.End(xlDown).Select
    Range("A1506").Select
    Sheets("Data").Select
    Range("X2:AC2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OD").Select
    ActiveWindow.SmallScroll Down:=6
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.End(xlDown).Select
    Range("A2258").Select
    Sheets("Data").Select
    Range("AD2:AI2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OD").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.End(xlDown).Select
    Range("A3010").Select
    ActiveWindow.SmallScroll Down:=9
    Sheets("Data").Select
    Range("AJ2:AO2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OD").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("G2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IF(OR(RC[-5]=0,ISERROR(RC[-6])),""a supp"","""")"
    Range("G2").Select
    Selection.AutoFill Destination:=Range("G2:G26"), Type:=xlFillDefault
    Range("G2:G26").Select
    Selection.AutoFill Destination:=Range("G2:G3761")
    Range("G2:G3761").Select
    ActiveWindow.SmallScroll Down:=132
    ActiveWindow.LargeScroll Down:=6
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter
    Selection.AutoFilter Field:=7, Criteria1:="a supp"
    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    Range("A12:L12").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter Field:=7
    ActiveWindow.SmallScroll Down:=-12
    ActiveWindow.LargeScroll Down:=-6
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
      Sheets("fichier jde").Select
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A1380"), Type:=xlFillDefault
    Range("A1:A1380").Select
    Selection.AutoFilter Field:=1, Criteria1:="na"
    Range("A48").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Selection.AutoFilter Field:=1
    ActiveWorkbook.SaveAs Filename:="D:\Documents and Settings\MXA3129\Bureau\fichier jde.txt", FileFormat:=xlText, CreateBackup:=False
    Range("I26").Select
  
End Sub

Bon, a par faire des copier/coller(s) et deux ou trois trucs bizarre...

Serait il possible d'avoir un fichier avec des données bidons et cette macro?

Note: enregistrer une macro quand on ne sait pas comment faire c'est bien.mais ça fait pas tout. La preuve ton enregistrememt est pleins d'instructions qui ne servent à rien. J'en ai supprimé un tas. Mais je suis sur qu'il y en reste

bon courage
 
Vote positif 0 Vote négatif
Re : Probleme macro long a charger

Bonsoit Philippe🙂 tbft momo93240,
Oui Philippe tu arrives à la même conclusion que moi si on savait ce que Momo veut cela serait facile de lui faire.
Momo pour le fichier trop gros tu en crée un avec moins de lignes et avec la même finalité les reste se fera tout seul
a+
papou 🙂
 
Vote positif 0 Vote négatif
Re : Probleme macro long a charger

Bonsoir a tous
WOUAHHHHHHHHHHHH.............
je n'avais jamais vu une macro aussi torride,meme a la faire tu dois te perdre dans tes manipulations de souris
mais bon j'ai tenter de dégrossir quand même 1599 lignes a rien si je ne me trompe c'est quand même pas mal, j'espère n'avoir rien supprimer de trop car a la fin on s'y perd. voici pour ce qui veulent tenter l'aventure
Code: 
Sub debut()
'
' debut Macro
' Macro enregistrée le 23/09/2010 par MXA3129
'

'

    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("OD").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A2").Select
    Sheets("Data").Select
    Selection.Copy
    Sheets("OD").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data").Select
    Range("R2:W2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OD").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data").Select
    Range("X2:AC2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OD").Select
    ActiveWindow.SmallScroll Down:=6
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data").Select
    Range("AD2:AI2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OD").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A3010").Select
    Sheets("Data").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OD").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IF(OR(RC[-5]=0,ISERROR(RC[-6])),""a supp"","""")"
    Range("G2").Select
    Selection.AutoFill Destination:=Range("G2:G26"), Type:=xlFillDefault
    Range("G2:G26").Select
    Selection.AutoFill Destination:=Range("G2:G3761")
    Range("G2:G3761").Select
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=7, Criteria1:="a supp"
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter Field:=7
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Sheets("fichier jde").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A1380"), Type:=xlFillDefault
    Range("A1:A1380").Select
    Selection.AutoFilter Field:=1, Criteria1:="na"
    Range("A48").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Selection.AutoFilter Field:=1
        ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\MXA3129\Bureau\fichier jde.txt", FileFormat:= _
        xlText, CreateBackup:=False
    Range("I26").Select
  
End Sub

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

Discussions similaires

B
  • Question Question
Microsoft 365 RESOLU Message d'erreur "La méthode 'range' de l'objet '_global ' a échoué "
2
Réponses
16
Affichages
760
job75
job75
DAVID-44-
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
426
DAVID-44-
DAVID-44-
nat54
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
824
nat54
nat54
S
  • Question Question
XL 2021 Pause dans VBA
Réponses
2
Affichages
170
stefb1968
S
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
503
caseras
C
W
  • Résolu(e)
XL 2019 Envoi de mails avec l'adresse secondaire et non l'adresse principale d'Outlook
2
Réponses
17
Affichages
644
TooFatBoy
TooFatBoy
reska
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
324
Phil69970
Phil69970
D
  • Question Question
XL 2021 Création d’un logiciel de livraison
Réponses
1
Affichages
332
Victor21
Victor21
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
484
Anthony_51
A
F
  • Résolu(e)
XL 2010 Macro : Remplissage de texte sous conditions
Réponses
11
Affichages
547
FLG
F
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
530
AtTheOne
AtTheOne
Nicolas JACQUIN
  • Question Question
XL 2021 Création calendrier ( Agenda ) en VBA
2
Réponses
15
Affichages
2 K
Nicolas JACQUIN
Nicolas JACQUIN
N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
2 K
crocrocro
C
Eric 888
  • Résolu(e)
Microsoft 365 comment "ralentir" une macro
Réponses
9
Affichages
626
Eric 888
Eric 888
C
  • Question Question
Microsoft 365 Liste critère détaillé lors d'une macro
Réponses
9
Affichages
544
Chounoé
C
jeff1494
  • Question Question
XL 2021 Création d'un Tableau croisé dynamique en évitant de charger certaines lignes.
Réponses
4
Affichages
723
jeff1494
jeff1494
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
J
  • Question Question
problème macro
Réponses
3
Affichages
714
JLB35
J
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
374
StéphaneDeLà
S
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
895
AtTheOne
AtTheOne
Retour