Discussion :

[andre260]

bonjour
dans cette procedure (this workbook)

Code :

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

1
2
3
4
5
With Sh.PageSetup
        .CenterHeader = "&""Calibri,gras""&14 xxxxx" & Chr(10) & Chr(10) & "Bordereau  N°  " & Sheets("Bordereau").Range("A3").Value & "    " _
                        & " Récapitulatif " & " (" & Application.WorksheetFunction.CountA("Bordereau!F4:F18") & ")"
        
        End With

excel me retourne toujours 1 comme valeur dans l'en tete
je ne comprends plus
merci

[mercatog]

Code :

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

1
2
.CenterHeader = "&""Calibri,gras""&14 xxxxx" & Chr(10) & Chr(10) & "Bordereau N° " & Sheets("Bordereau").Range("A3").Value & " " _
& " Récapitulatif " & " (" & Application.WorksheetFunction.CountA(Range("Bordereau!F4:F18")) & ")"

[andre260]

merci bonne journée