Macro - exécution longue

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
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,

Avec mes petites connaissances ... et votre aide, j'ai fait cette macro :

Code: 
Sub Saisie()
'
' Saisie Macro
' Macro enregistrée le 12/03/2002 par Jean-Pierre ROTH
'

'
    Application.ScreenUpdating = False
    Sheets("Saisie").Select
    ActiveSheet.Unprotect
    
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With
    Application.WindowState = xlMinimized
    '******************************************************************
    'ActiveSheet.ShowDataForm  ' grille aux formats US
    Application.CommandBars.FindControl(ID:=860).Execute ' grille aux formats locaux : FR
    '********************************************************************
    
    ActiveWindow.ScrollRow = 1
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
    End With
    
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    
    Application.Goto Reference:="R1C1"
    
    Range("AG1:BT1").Select
    Selection.Copy
    Range("AG2:BT1000").Select
    ActiveSheet.Paste
    
    Columns("A:A").Select
    Selection.Copy
    Columns("B:B").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Infos               agenda              client - NE RIEN ECRIRE "
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    Columns("B:B").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    
    On Error Resume Next
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
    Range("B2").Select
    
    ActiveWindow.ScrollColumn = 5
    Application.WindowState = xlMaximized
    Sheets("Clients").Select
    Sheets("Saisie").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
End Sub

Elle fonctionne bien mais elle est très longue à l'exécution.

Je ne sais pas la rendre plus rapide ....

Peut-être pourriez-vous m'aider ?

Je sais que je vous pose beaucoup de questions .....
Je vous suis très reconnaissant de votre écoute et de toutes les solutions que vous m'apportez,

Dans un tas de domaines, tant professionnels ... et aussi dans la passion des oiseaux, je peux aider si vous avez besoin.

Encore merci,
Amicalement,
Lionel,
 
Trier par date Trier par votes
Re : Macro - exécution longue

Bonjour à tous,

Peut-être ceci ( à tester)

Code: 
Sub Saisie()
'
' Saisie Macro
' Macro enregistrée le 12/03/2002 par Jean-Pierre ROTH
'

'
    Application.ScreenUpdating = False
    Sheets("Saisie").Select
    ActiveSheet.Unprotect
   
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With
    Application.WindowState = xlMinimized
    '******************************************************************
    'ActiveSheet.ShowDataForm  ' grille aux formats US
    Application.CommandBars.FindControl(ID:=860).Execute ' grille aux formats locaux : FR
    '********************************************************************
   
    ActiveWindow.ScrollRow = 1
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
    End With
   
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
   
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
   
    Application.Goto Reference:="R1C1"
   
    Range("AG1:BT1").Copy Range("AG2:BT1000")
   
    Columns("A:A").Select
    Selection.Copy
    Columns("B:B").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Infos               agenda              client - NE RIEN ECRIRE "
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
   
    Columns("B:B").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
   
    On Error Resume Next
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
    Range("B2").Select
   
    ActiveWindow.ScrollColumn = 5
    Application.WindowState = xlMaximized
    Sheets("Clients").Select
    Sheets("Saisie").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
End Sub

Quelques petites modif seulement, mais je pense qu'il n'y a pas grand chose à supprimer dans cette macro !
 
Vote positif 0 Vote négatif
Re : Macro - exécution longue

Bonjour JBARBE
Bonjour à tous,

Merci pour votre gentillesse,
J'ai testé la nouvelle macro mais c'est toujours aussi long.

Je me demande si ça ne provient pas de mon classeur qui serait "pas normal" LOL
je vais tout copier dans un autre et je vous donnerai le résultat,

Amicalement,
Lionel,
 
Vote positif 0 Vote négatif
Re : Macro - exécution longue

Bonjour à tous,

en fait j'ai séparé ma macro et j'en ai fait deux pour voir où pouvait se trouver mon soucis.
Mon soucis est là :

Sub CopieFormules()
'
' CopieFormules Macro
'

'
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("AE1:BN1").Select
Selection.Copy
Range("AE2:BN1000").Select
ActiveSheet.Paste

Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("B1").Select
ActiveCell.FormulaR1C1 = "Infos agenda client - NE RIEN ECRIRE "
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Columns("B:B").Select
Selection.Locked = False
Selection.FormulaHidden = False

On Error Resume Next
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Range("B2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub

Amicalement,
Lionel,
 
Vote positif 0 Vote négatif
Re : Macro - exécution longue

Bonjour,

arthour973

Tu pourrais faire un essai en bloquant le calcul pendant la copie des formules avec un Application.Calculation = xlCalculationManual en tête et un Application.Calculation = xlCalculationAutomatic à la fin avant le Application.ScreenUpdating = True.

Cordialement
Robert
 
Vote positif 0 Vote négatif
Re : Macro - exécution longue

Bonjour
En complément de l'indispensable xlcalculationmanual, surtout quand on supprime des lignes, comme indiqué par Herdet que je salue,
1) il est inutile de sélectionner pour copier coller
Ce lien n'existe plus
A peu près tous les select de ton code peuvent et doivent être supprimés pour gagner en efficacité.
2) il faut toujours éviter, surtout avec excel 2007 et + de travailler sur des colonnes entières. Définir des plages et travailler dessus. L'utilisation de tableaux excel (onglet accueil/style/mettre sous forme de tableau) est un outil puissant pour cela
Ce lien n'existe plus
3) sans voir le moindre exemple de ce que tu fais il est impossible de tester quoi que ce soit (relis bien la charte et les conseils qui y sont donnés)
 
Vote positif 0 Vote négatif
Re : Macro - exécution longue

Bonjour Misange,
Bonjour à tous,

Merci d'avoir pris le temps de me répondre.
je vais mettre en application ce que tu m'indiques et je reviendrai pour te tenir informé du résultat.

Bonne journée à tous,
Amicalement,
Lionel,
 
Vote positif 0 Vote négatif
Re : Macro - exécution longue

Encore une ou deux choses
ActiveCell.FormulaR1C1 = "Infos agenda client - NE RIEN ECRIRE "
ce n'est pas une formule 🙂 donc
ActiveCell = "Infos agenda client - NE RIEN ECRIRE " suffit (mais ce n'est pas cela qui ralentit)

With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Ceci suffit :
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
 
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

T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
613
AtTheOne
AtTheOne
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
169
cathodique
cathodique
arck
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
426
AtTheOne
AtTheOne
M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
314
MOLY_
M
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
496
Dranreb
Dranreb
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
507
un internaute
U
richardlion
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
422
sylvanu
sylvanu
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
165
vazvaz
V
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
291
patricktoulon
patricktoulon
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
340
sylvanu
sylvanu
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
348
patricktoulon
patricktoulon
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
407
xavieralvaro
X
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
653
ph.vanne
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
686
Nounours4173
N
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
336
un internaute
U
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
743
candido57
C
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
567
un internaute
U
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
780
Phil69970
Phil69970
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
182
un internaute
U
Retour