Iif pied de page / page au singulier ou pluriel

[cibleo]

Bonjour le forum,

J'aimerais régler un petit détail.
Dans le ThisWorkbook, j'ai cette macro :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
.../...
With Ws.PageSetup
         .CenterFooter = "&""Verdana,Normal""&10Imprimé le " & DateJour
         .RightFooter = "&""Verdana,Normal""&10Page &P sur &N pages"
End With
.../...

Dans le pied de page à droite, à l'impression cette instruction va me retranscrire ceci par exemple :
pour 1 page ----> Page 1 sur 1 pages
pour 2 pages ---> Page 1 sur 2 pages

.RightFooter = "&""Verdana,Normal""&10Page &P sur &N pages"

A l'aperçu avant impression, lorsqu'il n'y a qu'1 seule page j'aimerais voir apparaitre :
Page 1 sur 1 page sans (s)
Au niveau de la dernière esperluette, ne peut-on pas intégrer un Iif qui me corrigerait cette faute d'orthographe.

Bonne soirée Cibleo

 

[Zon]

Re : Iif pied de page / page au singulier ou pluriel

Salut,

Je n'arrive pas à récupérer la valeur de N afin de faire un test , je m'y perds dans les guillemets...

Par contre avec une antiquité XL4 est-ce que cela fait ton affaire ?

   .RightFooter = "&""Verdana,Normal""&10Page &P sur " & IIf(ExecuteExcel4Macro("GET.DOCUMENT(50)") > 1, " &N &" & " pages", "1 page")

A+++

 

[Pierrot93]

Re : Iif pied de page / page au singulier ou pluriel

Bonjour Cibleo, Zon

peut être une autre solution ainsi :

    With ActiveSheet
        .PageSetup.RightFooter = "&""Verdana,Normal""&10Page &P sur &N" & _
            IIf(.HPageBreaks.Count + .VPageBreaks.Count > 0, " pages", " page")
    End With

bonne journée
@+

 

[cibleo]

Bonjour Zon, Pierrot93🙂

Pierrot93 : tu joues ave le nombre de sauts de page, c'est ça qui me manquait 🙄
J'ai remplacé 0 par 2, puisqu' 1 seule page affiche 2 sauts de page (horizontal +vertical)

&N" & IIf(ActiveSheet.HPageBreaks.Count + ActiveSheet.VPageBreaks.Count > 2, " pages", " page")

Zon : Ça fonctionne aussi, mais je ne comprend pas l'expression à évaluer : ExecuteExcel4Macro("GET.DOCUMENT(50)") > 1

Merci à tous les 2.

Cibleo

 

[Pierrot93]

Re : Iif pied de page / page au singulier ou pluriel

Re,

dans mes tests, s'il y avait au moins un saut de page cela donnait 2 pages à l'impression.... A voir...

 

[cibleo]

Re Pierrot,

J'ai été un peu vite, après test ta solution passant par évaluer le nbre de sauts de page n'est pas convaincante 🙁 ou alors il y a un erreur dans la syntaxe.
Le résultat souhaité n'est pas le bon.

Par contre celle de Zon fonctionne à merveille

cibleo

 

[Zon]

Re : Iif pied de page / page au singulier ou pluriel

Salut et bonne année,

c'est une macro XL4 (avant XL95 on n'utilisait pas de VBA), traduite de lire.document qu'on mettait dans une feuille XL4 à l'époque, c'est la seule que j'utilise grâce à Jean Marie, elle est la plus efficace dans le cas présent...

On l'appelle un peu comme une fonction de calcul application.sum ...

A+++