Problème macro pour mise en page
Résolu/Fermé
gbdos
Messages postés
49
Date d'inscription
mercredi 10 septembre 2008
Statut
Membre
Dernière intervention
17 août 2021
-
22 déc. 2008 à 09:12
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 22 déc. 2008 à 14:47
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 22 déc. 2008 à 14:47
A voir également:
- Problème macro pour mise en page
- Supprimer une page word - Guide
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Macro logiciel - Télécharger - Organisation
- Mise en forme conditionnelle excel - Guide
- Traduire une page web - Guide
1 réponse
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 041
22 déc. 2008 à 14:47
22 déc. 2008 à 14:47
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+