Améliorer la rapidité d'exécution
Résolu/Fermé
reno421
Messages postés
41
Date d'inscription
vendredi 30 janvier 2015
Statut
Membre
Dernière intervention
16 septembre 2015
-
Modifié par pijaku le 12/02/2015 à 08:49
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 12 févr. 2015 à 08:50
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 12 févr. 2015 à 08:50
A voir également:
- Améliorer la rapidité d'exécution
- Test rapidité pc - Guide
- Erreur d'execution 1004 ✓ - Forum VB / VBA
- Erreur d'execution 13 ✓ - Forum Programmation
- Un administrateur vous a refusé l'execution de cette application - Forum Windows 10
- Améliorer la qualité d'un gif ✓ - Forum Graphisme
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
11 févr. 2015 à 17:34
11 févr. 2015 à 17:34
Re,
avec la macro de selection onglets
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
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
12 févr. 2015 à 08:50
12 févr. 2015 à 08:50
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
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