titre différent.

[pat12]

Bonjour.
Je souhaiterai savoir s’il ya une astuce pour afficher plusieurs titre différent sur l’impression d’une feuille.
Je m’explique j’ai une feuille avec 4 boutons de recherche (la recherche effectue sur 4 couleurs différentes).
J’ai un bouton pour imprimer et choisir d’imprimante avec la commande.

Application.Dialogs(xlDialogPrint).Show

Je voudrai imprimer avec 4 titres différant suivant la couleur de recherche demandé .

Sub FindCol(MaCoul As Long)
Dim Coul As Range, Lig As Long, Faddress As String
With Sheets("inventaire").Columns("B")
Application.FindFormat.Interior.ColorIndex = MaCoul
Set Coul = .Find(What:="", LookIn:=xlValues, lookat:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True)
If Not Coul Is Nothing Then
Faddress = Coul.Address
Do
Lig = [A3000].End(xlUp).Offset(1).Row
Range("A" & Lig & ":L" & Lig).Value = Coul.Resize(1, 13).Value
Set Coul = .Find(What:="", after:=Coul, LookIn:=xlValues, lookat:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True)
Loop While Coul.Address <> Faddress
End If
End With
End Sub

Merci

 

[Excel-lent]

Re : titre différent.

Bonjour Pat12,

Ceci devrait convenir à ton cas :

[COLOR="Blue"][B]If[/B][/COLOR] MaCouleurDeRecherche = 12 [COLOR="Blue"][B]Then[/B][/COLOR]
       With ActiveSheet.PageSetup
          .LeftHeader = "Le &D à &T" [COLOR="Green"]'Titre en haut à gauche (dans le cas présent la macro écrira la date et l'heure d'impression)[/COLOR]
          .CenterHeader = "Titre principal" [COLOR="Green"]'Titre en haut au milieu[/COLOR]
          .RightHeader = "P : &P / &N" [COLOR="Green"]'Titre en haut à droite (dans le cas présent la macro écrira le nombre de pages total et le numéro de la page)[/COLOR]
      End With
[COLOR="Blue"][B]ElseIf[/B][/COLOR] MaCouleurDeRecherche = 14 Then
       With ActiveSheet.PageSetup
          .LeftHeader = "Le &D à &T" [COLOR="Green"]'Titre en haut à gauche (dans le cas présent la macro écrira la date et l'heure d'impression)[/COLOR]
          .CenterHeader = "Titre secondaire" [COLOR="Green"]'Titre en haut au milieu[/COLOR]
          .RightHeader = "P : &P / &N" [COLOR="Green"]'Titre en haut à droite (dans le cas présent la macro écrira le nombre de pages total et le numéro de la page)[/COLOR]
      End With
[COLOR="Blue"][B]ElseIf[/B][/COLOR] MaCouleurDeRecherche = 17 Then
       With ActiveSheet.PageSetup
          .LeftHeader = "Le &D à &T" [COLOR="Green"]'Titre en haut à gauche (dans le cas présent la macro écrira la date et l'heure d'impression)[/COLOR]
          .CenterHeader = "Titre par défaut" [COLOR="Green"]'Titre en haut au milieu[/COLOR]
          .RightHeader = "P : &P / &N" [COLOR="Green"]'Titre en haut à droite (dans le cas présent la macro écrira le nombre de pages total et le numéro de la page)[/COLOR]
      End With
[COLOR="Blue"][B]End If[/B][/COLOR]

PS. : faute d'avoir le fichier et une imprimante connecté à mon PC, je n'ai pu tester le code, mais l'idée est là!

Bon Dimanche

 

[pat12]

Re : titre différent.

Bonjour "Excel-lent"
Et merci de me répondre, mais je remplace ton code par le mien ou je le place dans le bouton qui ouvre le fichier pour choisir une imprimante?
Merci

 

[Excel-lent]

Re : titre différent.

Bonsoir Pat12,

Mon code s'occupe juste de gérer l'en-tête de tes feuilles! Il n'imprime rien et ne gère les couleurs que partiellement!

Il ne faut pas remplacer ton code par le mien, mais plutôt l'insérer dans le tiens.

Mais où? Je ne saurais te dire, car je ne comprend pas tous les codes que tu as utilisé!

Bonne soirée

 

[pat12]

Re : titre différent.

A ok Excel-lent je vais voir si je peux l'utiliser
Encore Merci.

 

[Excel-lent]

Re : titre différent.

Bonsoir Pat12,

Sinon met ton fichier en ligne, il y a aura surement quelqu'un qui pourras t'aider!

Bonne fin de WE

 

[pat12]

Re : titre différent.

J'ai intégrer ton code il fonctionne bien, juste une chose je souhaiterai agrandir la police du tire à tu une idée.