Problème macro pour mise en page
Résolu/Fermé
gbdos
Messages postés
59
Date d'inscription
mercredi 10 septembre 2008
Statut
Membre
Dernière intervention
15 janvier 2024
-
22 déc. 2008 à 09:12
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 22 déc. 2008 à 14:47
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 22 déc. 2008 à 14:47
A voir également:
- Problème macro pour mise en page
- Supprimer une page word - Guide
- Mise en forme conditionnelle excel - Guide
- Page d'accueil iphone - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
1 réponse
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
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+
