Une petite aide en vba
Ritch45-78
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
dandypunk Messages postés 832 Date d'inscription Statut Membre Dernière intervention -
dandypunk Messages postés 832 Date d'inscription Statut Membre Dernière intervention -
Bonjour, je suis en train de faire un programme en vba excel et je voudrais afficher en entête ceci
"N° du Client : " à gauche et puis, "Nom du client : " à droite donc, je sais que pour afficher ceci on utilise .LeftHeader et .RightHeader mais le problème c'est que je veux afficher ceci sur 12 feuilles excel ! J'attends toutes vos réponses et pendant ce temps et j'essaie de trouver par moi-même ! Merci à vous par avance
"N° du Client : " à gauche et puis, "Nom du client : " à droite donc, je sais que pour afficher ceci on utilise .LeftHeader et .RightHeader mais le problème c'est que je veux afficher ceci sur 12 feuilles excel ! J'attends toutes vos réponses et pendant ce temps et j'essaie de trouver par moi-même ! Merci à vous par avance
A voir également:
- Une petite aide en vba
- Petite amie virtuelle en français gratuit - Accueil - Intelligence artificielle
- Petite croix snap - Forum Snapchat
- Savoir si je suis bloqué par une personne sur snap chat ✓ - Forum Snapchat
- Excel compter cellule couleur sans vba - Guide
- Petite cle en haut a droite samsung ✓ - Forum Samsung
4 réponses
Dans ThisWorbook, utilise
Le procédures et fonctions utilisées dans ThisWorkbook sont valables pour toutes les feuilles, présentes et à venir.
Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Insère ton code ici End Sub
Le procédures et fonctions utilisées dans ThisWorkbook sont valables pour toutes les feuilles, présentes et à venir.
Voici mon programme de mis en page avec en-tête et pied-de-page :
Sub entetepieddepage()
'Définition des différentes variables
'------------------------------------
Dim texte As String
Dim sh As Worksheet
' Définition des caractéristiques de présentation de la page :
' --------------------------------------------------------
Set sh = Worksheets("Description")
With sh
With .PageSetup
.RightHeader = ""
.LeftHeader = ""
End With
End With
'Ecriture sur une page de la mise en page définie précédemment :
'--------------------------------------------------------
Set sh = Worksheets("IE HTTP Report Format")
With sh
With .PageSetup
.LeftHeader = ""
.RightHeader = Sheets("Description").Range("B1")
.RightHeader = Sheets("Description").Range("B1") & Chr(13) & Sheets("Description").Range("B2")
.RightHeader = Sheets("Description").Range("B1") & Chr(13) & Sheets("Description").Range("B2") & Chr(13) & Sheets("Description").Range("B3")
.CenterFooter = Sheets("Description").Range("A4")
.RightFooter = ""
End With
End With
'Message d'alerte de fin de la maccro-cellule
'--------------------------------------------
MsgBox ("Mise en page accomplie!")
End Sub
Donc, c'est bien ceci que je veux afficher dans chaque onglet, que j'ai crée au préalable ! J'ai essayé ta fonction mais, je ne vois pas trop ce qu'elle fait du moins, je veux dire j'ai pas le résultat attendu !
Sub entetepieddepage()
'Définition des différentes variables
'------------------------------------
Dim texte As String
Dim sh As Worksheet
' Définition des caractéristiques de présentation de la page :
' --------------------------------------------------------
Set sh = Worksheets("Description")
With sh
With .PageSetup
.RightHeader = ""
.LeftHeader = ""
End With
End With
'Ecriture sur une page de la mise en page définie précédemment :
'--------------------------------------------------------
Set sh = Worksheets("IE HTTP Report Format")
With sh
With .PageSetup
.LeftHeader = ""
.RightHeader = Sheets("Description").Range("B1")
.RightHeader = Sheets("Description").Range("B1") & Chr(13) & Sheets("Description").Range("B2")
.RightHeader = Sheets("Description").Range("B1") & Chr(13) & Sheets("Description").Range("B2") & Chr(13) & Sheets("Description").Range("B3")
.CenterFooter = Sheets("Description").Range("A4")
.RightFooter = ""
End With
End With
'Message d'alerte de fin de la maccro-cellule
'--------------------------------------------
MsgBox ("Mise en page accomplie!")
End Sub
Donc, c'est bien ceci que je veux afficher dans chaque onglet, que j'ai crée au préalable ! J'ai essayé ta fonction mais, je ne vois pas trop ce qu'elle fait du moins, je veux dire j'ai pas le résultat attendu !