En tête selon une valeur

Bonjours a tous,

Y a t'il possibilité de mettre un en tête ou non selon une valeur avant l'impression.

merci de votre aide

Bonjour

Peut-être avec une macro événementielle ''BeforePrint'' ?

Bye !

Bonjour GMD,

Merci de votre réponse et désolé d'avoir tardé à répondre, j'étais en déplacement.

Ok pour une macro,mais je suis pas très fort, (Voir nul)

j'ai essayer ceci mais j'ai un bug, La taille du texte ne change pas mais il se met dans le texte comment modifier? (voir exemple)

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Sh As Worksheet
Dim Police As String
Dim Taille As String
Dim Texte As String

Police = "Algerian"
Taille = 20
Texte = Worksheets("Feuil1").Range("A1")

For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.CenterHeader = "&""" & Police & ",Gras""" & Taille & Texte

End With
End With
Next
End Sub

De plus sur la gauche je voudrais insérer un logo qui aussi doit changer selon le chemin d'accès de la cell A4 sur l'exemple et j'ai vraiment aucune idée comment faire.

Merci d'avance de votre généreuse aide.

Bonjour

Essaie ce code

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim Sh As Worksheet
    Dim Police As String
    Dim Taille As String
    Dim Style As String
    Dim Texte As String

    Police = "Algerian" 'ou autre ex "Tahoma"
    Taille = 25
    Style = "Gras" ' ou "Normal" ou "Italique" ou "Gras italique"
    Texte = Worksheets("Feuil1").Range("A1")

    For Each Sh In ActiveWindow.SelectedSheets
        With Sh
            With .PageSetup
                .CenterHeader = "&""" & Police & "," & Style & """&" & Taille & "&K000000" & Texte
            End With
        End With
    Next
End Sub

Quant à l'insertion de l'image, c'est une autre affaire ...

Bye !

Bye !

Super, Merci beaucoup, ça marche, pour l'image, je verrais plus tard, mais je pense avoir trouver une solution plus simple que la macro. faudra que j'y pense.

Encore merci