Recopier la mise en page d'une feuille à une autre
2 réponses
Emmanuel
Bonjour,
Je cherche à savoir comment recopier la mise en page d'une feuille Excel à
une autre feuille Excel sans avoir à retaper toutes les marges, les éléments
d'en-tête et pied de page, ...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
patrick
Bonjour, tu selectionnes la plage de la feuille 1 et cliques sur le pinceau de la barre d'outils tu passes sur la feuille 2 et tu cliques sur la cellule en haut et à gauche de ta nouvelle plage
@+ patrick
"Emmanuel" a écrit dans le message news:
Bonjour,
Je cherche à savoir comment recopier la mise en page d'une feuille Excel à une autre feuille Excel sans avoir à retaper toutes les marges, les éléments
d'en-tête et pied de page, ...
Merci d'avance à tous ceux qui m'aideront.
Bonjour,
tu selectionnes la plage de la feuille 1 et cliques
sur le pinceau de la barre d'outils
tu passes sur la feuille 2 et tu cliques sur la cellule
en haut et à gauche de ta nouvelle plage
@+
patrick
"Emmanuel" <e.gonnord@cgiar.org> a écrit dans le message news:
eWhiHvZPEHA.3748@TK2MSFTNGP09.phx.gbl...
Bonjour,
Je cherche à savoir comment recopier la mise en page d'une feuille Excel à
une autre feuille Excel sans avoir à retaper toutes les marges, les
éléments
Bonjour, tu selectionnes la plage de la feuille 1 et cliques sur le pinceau de la barre d'outils tu passes sur la feuille 2 et tu cliques sur la cellule en haut et à gauche de ta nouvelle plage
@+ patrick
"Emmanuel" a écrit dans le message news:
Bonjour,
Je cherche à savoir comment recopier la mise en page d'une feuille Excel à une autre feuille Excel sans avoir à retaper toutes les marges, les éléments
d'en-tête et pied de page, ...
Merci d'avance à tous ceux qui m'aideront.
michdenis
Bonjour Emmanuel,
Tu utilises l'enregistreur de macro pendant que tu fais une mise en page type telle que tu le désires. Tu nettoie un peu ton code pour les lignes de code qui seraient redondantes
Dans le ThisWorkbook de ton projet :
'------------------------------ Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindowSelectedSheets Imprimer Sh Next
End Sub '------------------------------
Dans un module Standard : Ta Procédure "Imprimer"
'------------------------------------ Private Sub Imprimer(Sh As Worksheet)
'Dans la procédure tu remplace 'Activesheet par sh
With Sh
'le reste de la procédure que 'tu auras élaboré
End With
End Sub '------------------------------------
Salutations!
"Emmanuel" a écrit dans le message de news: Bonjour,
Je cherche à savoir comment recopier la mise en page d'une feuille Excel à une autre feuille Excel sans avoir à retaper toutes les marges, les éléments d'en-tête et pied de page, ...
Merci d'avance à tous ceux qui m'aideront.
Bonjour Emmanuel,
Tu utilises l'enregistreur de macro pendant que tu fais une mise en page type telle que tu le désires.
Tu nettoie un peu ton code pour les lignes de code qui seraient redondantes
Dans le ThisWorkbook de ton projet :
'------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindowSelectedSheets
Imprimer Sh
Next
End Sub
'------------------------------
Dans un module Standard : Ta Procédure "Imprimer"
'------------------------------------
Private Sub Imprimer(Sh As Worksheet)
'Dans la procédure tu remplace
'Activesheet par sh
With Sh
'le reste de la procédure que
'tu auras élaboré
End With
End Sub
'------------------------------------
Salutations!
"Emmanuel" <e.gonnord@cgiar.org> a écrit dans le message de news:eWhiHvZPEHA.3748@TK2MSFTNGP09.phx.gbl...
Bonjour,
Je cherche à savoir comment recopier la mise en page d'une feuille Excel à
une autre feuille Excel sans avoir à retaper toutes les marges, les éléments
d'en-tête et pied de page, ...
Tu utilises l'enregistreur de macro pendant que tu fais une mise en page type telle que tu le désires. Tu nettoie un peu ton code pour les lignes de code qui seraient redondantes
Dans le ThisWorkbook de ton projet :
'------------------------------ Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindowSelectedSheets Imprimer Sh Next
End Sub '------------------------------
Dans un module Standard : Ta Procédure "Imprimer"
'------------------------------------ Private Sub Imprimer(Sh As Worksheet)
'Dans la procédure tu remplace 'Activesheet par sh
With Sh
'le reste de la procédure que 'tu auras élaboré
End With
End Sub '------------------------------------
Salutations!
"Emmanuel" a écrit dans le message de news: Bonjour,
Je cherche à savoir comment recopier la mise en page d'une feuille Excel à une autre feuille Excel sans avoir à retaper toutes les marges, les éléments d'en-tête et pied de page, ...
