Problème macro pour mise en page
Résolu
gbdos
Messages postés
72
Statut
Membre
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis en train de finaliser une macro, et j'ai un problème.
Je pose 3 questions dans ma macro, et j'aimerai que les 3 réponses apparraîssent dans l'en-tête de chaque page à l'impression.
Mes 3 variables s'appellent PN, OF et sonde.
Exemple :
PN = abc123
OF = 987987
sonde = BE41
En-tête souhaitée : abc123 - N°OF : 987987 - N°sonde : BE41
Est-ce quelqu'un aurait une ligne de programmation que je pourrait mettre dans ma macro.
Je travaille en VisualBasic avec Excel 2003.
Merci
Je suis en train de finaliser une macro, et j'ai un problème.
Je pose 3 questions dans ma macro, et j'aimerai que les 3 réponses apparraîssent dans l'en-tête de chaque page à l'impression.
Mes 3 variables s'appellent PN, OF et sonde.
Exemple :
PN = abc123
OF = 987987
sonde = BE41
En-tête souhaitée : abc123 - N°OF : 987987 - N°sonde : BE41
Est-ce quelqu'un aurait une ligne de programmation que je pourrait mettre dans ma macro.
Je travaille en VisualBasic avec Excel 2003.
Merci
Configuration: Windows 2003 Internet Explorer 6.0
A voir également:
- Problème macro pour mise en page
- Mise en forme conditionnelle excel - Guide
- Supprimer page word - Guide
- Mise en page excel pour impression - Guide
- Mise en page colonne word - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
1 réponse
Salut,
Si j'ai bien tout compris, tu souhaites mettre le contenu de trois cellules exemple A1, B1, c1) en entête de page, ça pourrait être ce genre de code
Sub Macro2()
Dim PN As Range
Dim OF As Range
Dim sonde As Range
Set PN = Range("A1")
Set OF = Range("B1")
Set sonde = Range("C1")
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = PN & OF & sonde
End With
End Sub
A+
Si j'ai bien tout compris, tu souhaites mettre le contenu de trois cellules exemple A1, B1, c1) en entête de page, ça pourrait être ce genre de code
Sub Macro2()
Dim PN As Range
Dim OF As Range
Dim sonde As Range
Set PN = Range("A1")
Set OF = Range("B1")
Set sonde = Range("C1")
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = PN & OF & sonde
End With
End Sub
A+
