Problème macro pour mise en page
Résolu
gbdos
Messages postés
72
Statut
Membre
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 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
A voir également:
- Problème macro pour mise en page
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Mise en forme conditionnelle excel - Guide
- Supprimer page word - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
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+
