lenteur pour redéfinir les entetes de page

**onejock** · 02/10/2008, 10h28

bonjour,

afin d'être sûr que les impressions de mon docs indiquent explicitement la version de celui ci, j'ai une macro déclenchée à l'impression. à partir d'une recherche sur le forum, j'ai pu ajouter quelques lignes d'optimisation mais au final, c'est pas mieux...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_BeforePrint(cancel As Boolean)
    Application.EnableCancelKey = xlDisabled
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Interactive = False
    Application.Calculation = xlCalculationManual
 
    For Each feuille In Sheets
        feuille.PageSetup.RightHeader = "v12"
    Next feuille
 
    Application.ScreenUpdating = true
    Application.DisplayAlerts = true
    Application.Interactive = true
    Application.Calculation = xlCalculationAutomatic
End Sub

mon soucis est que c'est TROP LENT. bien évidemment, j'ai du code sur les onglets (activate/desactivate par exemple) qui mettent à jour des TCD, des graphs, etc. --> l'idée est de pouvoir les désactiver le temps de l'invite d'impression.

Merci d'avance.

**Godzestla** · 02/10/2008, 13h21

Bonjour,

une solution d'aménagement possible est de toujours mentionner la version de ton document dans son nom et alors d'utiliser le code de formattage &F dans ton RightHeader.

Alors plus de problème. mais je ne sais pas si c'est acceptable pour toi.

**onejock** · 02/10/2008, 14h23

Merci Godzestla,

mais c'est un fichier de pilotage dont le nom indique la date de derniere saisie, alors qu'en entete, on souhaite indiquer le dernier mois contenant les données prises en compte... (par exemple le fichier peut avoir un nom du style "pilotage-20081002" et avoir une version en 2008-09 mais cela pourrait être 2008-10, 2008-08, etc.).

mais ça m'enerve de ne pas arriver à lui dire : "ne calcul plus rien, colle juste 7 caracteres en entete !!!"

**Godzestla** · 02/10/2008, 14h30

Pourquoi ne mets tu pas alors la version dans une cellule et lorsque cette cellule change tu effectues ta moulinette d'entete.

cela n'ira pas plus vite mais au moins cela ne tournera que lorsque la version change.

Qu'en penses-tu ?

**onejock** · 02/10/2008, 14h38

Envoyé par Godzestla

Pourquoi ne mets tu pas alors la version dans une cellule et lorsque cette cellule change tu effectues ta moulinette d'entete.

cela n'ira pas plus vite mais au moins cela ne tournera que lorsque la version change.

Qu'en penses-tu ?

ben ouais mais le onchange manque cruellement sous excel.... je crosi savoir que ce qui s'en rapproche est le selectionChange mais c'est pas top,
je me trompe ?

**ouskel'n'or** · 02/10/2008, 14h43

Tu as une autre solution consistant à n'inscrire qu'une fois l'entête sur toutes les feuilles à la fois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    With ActiveSheet.PageSetup
        .RightHeader = "v12"
    End With

N'oublie pas de dissocier les feuilles en ajoutant par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Sheets("Feuil1").Select

**Godzestla** · 02/10/2008, 14h44

Tu as tout juste, mais il y a un autre moyen.

Tu stockes cette version dans une feuille cachée et tu effectues l'update de ce parametre via un bouton de commande + msgbox, ou un userform... ou que sais-je.

Tu gères donc toi-même la modif de ta cellule et l'appel de ta moulinette juste derrière.

Non ?

**ouskel'n'or** · 02/10/2008, 14h45

Pas de moulinette Godzestla, regarde ma proposition

**Godzestla** · 02/10/2008, 15h02

Envoyé par ouskel'n'or

Pas de moulinette Godzestla, regarde ma proposition

J'ai vu.

Je ne connaissais pas. Cela évite donc son ralentissement.

**onejock** · 02/10/2008, 15h14

Envoyé par ouskel'n'or

Tu as une autre solution consistant à n'inscrire qu'une fois l'entête sur toutes les feuilles à la fois :

Merci...

euh... ya moyens de tous les selectionner sans les connaitre (il se peut ques des onglets se rajoutent ou disparaissent... je ne veux pas avoir à modifier du code à ce moment la ...)

**ouskel'n'or** · 02/10/2008, 15h29

Et en sélectionnant toutes les feuilles ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWorkbook.Sheets.Select
With ActiveSheet.PageSetup
    ...

Edit
Non, ça ne fonctionne pas.

Peut-être en créant un tableau des noms de feuilles. Je regarde.

**onejock** · 02/10/2008, 15h55

Merci ouskel'n'or,

je regardes également.... au premier qui trouve...

**onejock** · 02/10/2008, 15h59

Envoyé par ouskel'n'or

Et en sélectionnant toutes les feuilles ?
Edit
Non, ça ne fonctionne pas.

Peut-être en créant un tableau des noms de feuilles. Je regarde.

ouais mais pour remplir le tableau, t'es obligé de faire un for each f in sheets.... donc au final niveau temps ça rapportera rien, non ?!?

**ouskel'n'or** · 02/10/2008, 16h09

Non, le temps de création d'un tableau de noms de feuilles est quasi nul. Là n'est pas le pb. Mon idée était d'utiliser une syntaxe du style "Sheets(array(Join(tablo))).select"
Le pb est que ça ne fonctionne pas. Et je n'ai pas trouvé de solution de rechange.

**Godzestla** · 02/10/2008, 16h22

Ceci fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim tabl() As Variant
Dim i As Integer
For i = 1 To Sheets.Count
ReDim Preserve tabl(1 To i)
tabl(i) = Sheets(i).Name
Next
Sheets(tabl).Select
With ActiveSheet.PageSetup
 .RightHeader = "v12"
End With

J'avais essayé avec le numéro de la feuille en table plutot que le nom. Ca m'a craché excel. !

**onejock** · 02/10/2008, 16h26

Envoyé par Godzestla

Ceci fonctionne.

J'avais essayé avec le numéro de la feuille en table plutot que le nom. Ca m'a craché excel. !

c'est exactement à ce que je pensais... mais le remplissage du tableau ne me fait-il pas défiler sur toutes mes pages, ralentissant ainsi l'execution ?

**Godzestla** · 02/10/2008, 16h27

Envoyé par onejock

c'est exactement à ce que je pensais... mais le remplissage du tableau ne me fait-il pas défiler sur toutes mes pages, ralentissant ainsi l'execution ?

Je n'ai rien remarqué de ce genre. j'ai testé avec un bete fichier de 3 feuilles depuis la fenetre VBA, et il reste dans VBA.

Essaie.

**ouskel'n'or** · 02/10/2008, 16h29

Godzestla, j'avais d'abord testé ce que tu as fait. Remplace V12 par V14 et relance ta procédure. Puis vérifie sur toutes les feuilles. Chez moi elle ne fonctionne pas non plus.

**onejock** · 02/10/2008, 16h37

bon ben ça ne marche pas en fait chez moi :

j'ai une erreur sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(tabl).Select

(le methode select de la classe sheet a échoué...).

j'ai des onglets en veryhidden, je sens que c'est ça...

**Godzestla** · 02/10/2008, 16h44

Envoyé par ouskel'n'or

Godzestla, j'avais d'abord testé ce que tu as fait. Remplace V12 par V14 et relance ta procédure. Puis vérifie sur toutes les feuilles. Chez moi elle ne fonctionne pas non plus.

Bien vu,

le pire c'est que j'avais vérifié mais pas juqu'à la fin.

P..

de VBA.

Envoyé par onejock

j'ai des onglets en veryhidden, je sens que c'est ça...

Ouai. mais ça ne marche pas même sans cela. Il ne fait pas toutes les feuilles.

Edit

le problème ne vient pas de Sheets(tabl).select car la sélection manuelle du type
Sheets(Array("Sheet1", "Sheet2",...).select donne le même résultat. Seule la page 1 est bonne à 100%.

Je pense que le problème est sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part