Améliorer la rapidité d'exécution

Résolu/Fermé

reno421 Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention - 12 févr. 2015 à 08:50

Bonjour,

Je sollicite à nouveau votre aide. J'ai créé un marco qui fait automatiquement la mise en pages de mets feuille excel (cf. ci-dessous) . Le hic c'est qu'elle met beaucoup de trop de temps pour s'exécuter (1 minute 30 secconde) pour l'ensemble des onglets (32). Comment puis-je l'améliorer pour diminuer le temps d'exécution ?

D'avance merci pour votre réponse.

Sub paysage()
'
' Mise en page au format A4 en mode paysage avec en-tête et pied de page personalisé
'
     'Sheets(Array("","")).Select 'détermine les pagess ou sont appliqués les paramètres
   Dim Compteur As Integer, Nom As String
        Application.DisplayAlerts = False
        Application.ScreenUpdating = False
            For Compteur = Worksheets.Count To 1 Step -1
                Nom = Sheets(Compteur).Name
                Select Case Nom
                Case "INFO", "PAA-VLT", "site 61 63"
                
                Case Else
                        ' With ActiveSheet.PageSetup 'idem ligne ci-dessous
                        With Sheets(Nom).PageSetup
                            
                            .CenterHeader = "&""Arial,Gras""&20&UPLAN ANNUEL D'INTERVENTION"
                            .LeftFooter = "&8&F" & Chr(10) & "&A"
                            .RightFooter = "&8&D" & Chr(10) & "Page &P/&N"
                            .CenterHorizontally = True
                            .CenterVertically = True
                            .Orientation = xlLandscape
                            .PaperSize = xlPaperA4
                            .FirstPageNumber = xlAutomatic
                            .Order = xlDownThenOver
                            .BlackAndWhite = False
                            .Zoom = 75
                            .PrintErrors = xlPrintErrorsDisplayed
                            .ScaleWithDocHeaderFooter = True
                            .AlignMarginsHeaderFooter = True
                            End With
                End Select
            Next Compteur
            Application.DisplayAlerts = True
            Application.ScreenUpdating = True

End Sub

A voir également:

Améliorer la rapidité d'exécution
Test rapidité pc - Guide
Améliorer qualité audio mp3 en ligne ✓ - Forum Audio
Net user des erreurs ont affecté l'exécution de la commande - Forum Windows
Logiciel pour améliorer performance pc gratuit - Accueil - Utilitaires
Au démarrage de l’ordinateur, le d' se lance. il permet l’exécution des logiciels applicatifs et gère l’utilisation des ressources matérielles (mémoire, processeur, périphériques). - Forum Windows 10

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

avec la macro de selection onglets

Sub test_1()
    Dim TSh() As String
    Dim TSh_NoP, N As Byte
    
    Application.ScreenUpdating = False
    
    N = 0
    TSh_NoP = Array("PAA", "INFO", "site")
    For x = 1 To Worksheets.Count
        If IsError(Application.Match(Sheets(x).Name, TSh_NoP, 0)) Then
            ReDim Preserve TSh(N)
            TSh(N) = Sheets(x).Name
            N = N + 1
        End If
    Next x
    Worksheets(TSh).Select
    
    temps = Timer
    With ActiveSheet.PageSetup
        .CenterHeader = "&""Arial,Gras""&20&UPLAN ANNUEL D'INTERVENTION"
        .LeftFooter = "&8&F" & Chr(10) & "&A"
        .RightFooter = "&8&D" & Chr(10) & "Page &P/&N"
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 75
        .PrintErrors = xlPrintErrorsDisplayed
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
    End With
    
    Application.ScreenUpdating = True
    
    MsgBox "temps" & Timer - temps
    
End Sub

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour,

Il s'agit d'un doublon.
Merci de continuer sur le sujet initial :
https://forums.commentcamarche.net/forum/affich-31543273-ameliorer-la-rapidite-d-execution

Discussions similaires

améliorer la qualité d'un pdf

améliorer image en pdf...

Demande d'aide pour résoudre une action OLE

logiciel pour améliorer la qualité du son

Améliorer une image trop pixelisée