Discussion :

[ToFind]

Bonjour,
Je souhaite effectuer la somme de la colonne F (à partir de F9) pour chaque page et afficher le résultat dans le pied de page (côté droit).
J'ai repris le code ci-après (trouvé ailleurs) dans ThisWorkBook du classeur mais rien n'apparaît en pied de page.
Avez-vous une idée? Merci.

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)
 
Dim Sh As Worksheet, Rg As Range
 
For Each Sh In ActiveWindow.SelectedSheets
 If UCase(Sh.Name) = UCase("EP BATIMENT Print") Then
 With Sh
 Set Rg = .Range("F9:F" & .Range("F65536").End(xlUp).Row)
 With .PageSetup
 .RightFooter = Application.Sum(Rg)
 End With
 End With
 End If
 Next
 
End Sub

[Daniel.C]

Bonjour,

Est-ce que la feuille "EP BATIMENT PRINT" fait bien partie des feuilles sélectionnées dans le classeur actif ?

[ToFind]

Oui, la feuille EP BATIMENT Print fait partie du classeur actif.

[Daniel.C]

Je viens de faire un test; le code fonctionne. La feuille n'est peut-être pas sélectionnée. Dans le cas contraire, peux-tu mettre le classeur en PJ en effaçant les données confidentielles ?

[ToFind]

Voici une feuille test créée pour le cas. Chez moi rien ne s'affiche en pied de page droit.
Merci de ton intérêt.

[Daniel.C]

J'ai bien "102" en aperçu avant impression.

[SfJ5Rpw8]

Bonjour,

c'est jamais bon de travailler sur la feuille active ou le classeur sélectionné... je comprends pas ce qui t'empêche de mettre à jour ton pied de page quelque soit la fenêtre sélectionnée...


tu pourrai faire un truc du genre (non-testé..)

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
  With ThisWorkbook.sheets("EP BATIMENT Print") 
      Set Rg = .Range("F9:F" & .Range("F65536").End(xlUp).Row)
      .PageSetup.RightFooter = Application.Sum(Rg)
  End With
 
End Sub

[ToFind]

Merci Daniel et bbil.
Je ne comprends pas ce qui se passe.
Que je mette un code ou l'autre, rien n'apparaît dans le pied de page droit. Faut-il faire autre chose que de mettre le code dans ThisWorkBook?

[SfJ5Rpw8]

Ben il faut que tu lance l'impression ... et que tes macros soit activées..

[ToFind]

Oui, évidemment.
Mais rien ne s'affiche à droite. Seul le pied de page classique que j'ai placé à gauche de la feuille s'imprime.

Je tourne en rond...
Les macros sont activées, je place le code dans le ThisWorkBook du classeur actif. Je lance le preview. Et la somme n'apparaît tjrs pas en pied de page. Pas moyen de comprendre ce que je ne fais pas correctement!!! C'est pourtant simple.

Daniel, peux-tu me dire si tu as simplement placé le code dans le ThisWorkBook et lancer le preview pour obtenir le bon résultat?
Bien merci.

[SfJ5Rpw8]

Tu dis le 'classeur actif'.. il y as donc plusieurs classeurs ?

[ToFind]

Non, un seul classeur est ouvert. Pour le test, j'ai créer un classeur avec 3 feuilles. J'ai nommé une feuille EP BATIMENT PRINT et j'ai mis le code ds ThisWorkBook. J'ai aussi mis un pied de page classique à gauche pour vérifier qu'il s'affiche bien. C'est comme si le code de ThisWorkBook ne s'exécutait pas...

[SfJ5Rpw8]

Pour verifier que ton code est bien exécuté rajoute une instruction

Code :

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

stop

au début de ta fonction...puis tu lance l'impression

[ToFind]

Avec ou sans stop, le print preview s'exécute. Il semble donc bien que le code ne soit pas éxécuté. Mais pourquoi donc?

[ToFind]

J'ai lu sur le net qu'il arrive qu'excell n'exécute pas le code inscrit dans ThisWorkBook.
Quelqu'un a-t-il déjà rencontré ce problème et trouvé une solution?

J'ajoute que le code s'est mis à fonctionner sans que je le modifie. J'ai ensuite enlevé le code de ThisWorkBook, j'ai enregistré le fichier et je l'ai relancé. Le code fonctionne toujours alors qu'il n'existe plus... Qu'en pensez-vous?

Merci.