En tête selon une valeur, Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
A
Ambroise
Membre habitué
Membre habitué
Messages : 130
Inscrit le : 17 juillet 2012
Version d'Excel : 2010 FR OOo

Message par Ambroise » 4 mars 2015, 13:05

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
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'832
Appréciations reçues : 362
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 4 mars 2015, 13:51

Bonjour

Peut-être avec une macro événementielle ''BeforePrint'' ?
Bye !
A
Ambroise
Membre habitué
Membre habitué
Messages : 130
Inscrit le : 17 juillet 2012
Version d'Excel : 2010 FR OOo

Message par Ambroise » 5 mars 2015, 19:09

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.
Exemple.xlsm
(17.53 Kio) Téléchargé 11 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'832
Appréciations reçues : 362
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 6 mars 2015, 10:24

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 !
A
Ambroise
Membre habitué
Membre habitué
Messages : 130
Inscrit le : 17 juillet 2012
Version d'Excel : 2010 FR OOo

Message par Ambroise » 6 mars 2015, 11:46

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message