Mettre en gras un en tête de page Résolu

[jacky49]

Bonsoir le forum,
j'ai ce code ci dessous ou je voudrais mettre en gras l'en tete de page du centre mais il est lié à une cellule et avec tous les essais que j'ai fait , je n'y parviens pas
est ce que quelqu'un à une idée
merci
jacky

Sub Imprimer_Provisoire()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
    Set Ws = Worksheets("VH")
    Derlig = Ws.Range("X" & Ws.Rows.Count).End(xlUp).Row
    Set MaPlage = Ws.Range("T1:AE" & Derlig)
With Ws.PageSetup
.PrintArea = MaPlage.Address
       '.LeftFooter = ""
       .CenterFooter = [B107] & Chr(10) & [D107] & "  " & [E107] & " , " & [F107] & " , " & [G107] & "  " & [H107] & "  " & [I107]
       '.RightFooter = ""
End With
With Ws.PageSetup
.PrintArea = MaPlage.Address
       '.LeftHeader = ""
       .CenterHeader = "&""Times New Roman,Gras italique""&14[T3] & Chr(10) & [AA1] & Chr(10) & [H3] & " " [I107]
        '.RightHeader = ""
End With
    Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage2
End Sub

 

[Gareth]

Re : Mettre en gras un en tête de page

Bonsoir,

A tester :

.CenterFooter = "&""-,Gras""" & [B107] & Chr(10) & [D107] & "  " & [E107] & " , " & [F107] & " , " & [G107] & "  " & [H107] & "  " & [I107]

 

[jacky49]

Re : Mettre en gras un en tête de page

Bonsoir Gareth,

cela fonctionne,mais comment ajouter quelques critères par ex: italique et comme police times new roman et grosseur 14
merci d'avance
jacky

 

[Gareth]

Re : Mettre en gras un en tête de page

Bonsoir,

La codification est un peu tordue.
Le principe (dans le menu Mise en page) : les codes de controles sont précédés par des "&"
Par exemple : .CenterFooter = &"Arial,Gras"&20Toto
Ecrit : Toto en Arial Gras taille 20 dans le pied de page
La police doit etre entre guillemets car il y a des noms de polices avec espaces (je presume)
Le Gras ou l'italique sont séparés de la police par une virgule (Gras et italique s'écrit Gras italique. Avec un espace.
Les autres codes spéciaux &U texte souligné etc ... (l'enregistreur de macro donne les codes).

La syntaxe macro.
Il faut doubler les guillemets dans le code.
Notre &"Arial,Gras"&20Toto devient :
"&""Arial,Gras""&20Toto"

.CenterFooter = "&""Times New Roman,Gras italique""&24&U&KFF0000" & [A1]
Met en Pied de page central le contenu de la cellule A1 en Times New Roman Gras Ialique taille 24 soulignement simple (&U) et couleur rouge (&KFF0000)

NB - Dans l'exemple du Post précédent, il y avait 3 guillemets apres Gras car Gras doit etre entre guillemets.
En revanche, apres &KFF0000, il n'y a qu'un guillemet car là ce code n'est pas entre guillemets.

 

[jacky49]

Re : Mettre en gras un en tête de page

RE Bonsoir le forum, Gareth,

un grand merci pour ta réponse et tes explications très clair et cela fonctionne impeccable
jacky

 

[jacky49]

Re : Mettre en gras un en tête de page

Bonsoir le forum,

Plutot que d'ouvrir une nouvelle discussion, je reprends ce fil même si c'est pour une autre chose mais dans le même code
je m'explique, j'ai ce code

Sub Imprimer_Vitesse() '(le bon)
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
    Set Ws = Worksheets("VeteransHommes")
    Derlig = Ws.Range("E" & Ws.Rows.Count).End(xlUp).Row
    Set MaPlage = Ws.Range("B1:I" & Derlig)
 With Ws.PageSetup
    .PrintArea = MaPlage.Address
       '.LeftFooter = ""
       .CenterFooter = "&""Times New Roman,italique""&18" & [CN8] & Chr(10) & [CP8] & "  " & [CQ8] & " , " & [CR8] & " , " & [CS8] & "  " & [CT8] & "  " & [CU8]
      ' .RightFooter = ""
End With
With Ws.PageSetup
.PrintArea = MaPlage.Address
       '.LeftHeader = ""
       .CenterHeader = "&""Times New Roman,italique""&20" & [G1] & Chr(10) & [H3] & "  " & [CU8] & Chr(10) & [B1] & Chr(10) & Chr(10) & [C3] & Chr(10) & [C1] & "  " & [D1] & "  " & [B3]
        '.RightHeader = ""
End With
    Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage2
End Sub

qui fonctionne très bien mais auquel je voudrais intégrer ce code pour masquer les lignes 1 à 4 au moment de l'impression

Sub Masquer_Lignes()

    Rows("1:4").Select
    Range("B1").Activate
    Selection.EntireRow.Hidden = True
    Range("B8").Select
End Sub

et je cherche ensuite ce qu'il faut que j'ajoute dans ce code

Sub Afficher_Lignes()

    Cells.Select
    Range("B5").Activate
    Selection.EntireRow.Hidden = False
    Range("B8").Select
End Sub

pour que les lignes s'affichent quand on clique dans une cellulles de la plage B7:CL105

merci beaucoup de votre aide
jacky


merci beaucoup

 

[Gareth]

Re : Mettre en gras un en tête de page

Bonsoir,

Ici le code pour masquer :

Sub Masquer_Lignes()
Rows("1:4").Hidden = True
End Sub

Ici le code pour afficher à mettre dans la Feuil1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B7:CL105")) Is Nothing Then Rows("1:4").Hidden = False
End Sub

Voir le fichier joint

 

[jacky49]

Re : Mettre en gras un en tête de page

Bonsoir le forum, Gareth,

Merci beaucoup, je venais juste d'arriver à intégrer le code pour masquer les lignes dans mon code mais par contre je n'avais pas celui pour réafficher automatiquement les lignes dans la selection
merci beaucoup
jacky