Reproduire mise en forme en VBA sous excel

Messages postés
11
Date d'inscription
mardi 14 mars 2006
Statut
Membre
Dernière intervention
11 juin 2008
- - Dernière réponse : mortalino
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
- 22 mars 2007 à 16:25
salut,

je suis sous VBA sous excel.
je voudrais cree une macro qui reproduit la mise en forme, je m'explique.
j'ai une feuille modele que l'on rempli en barrant et en mettant en gras certaine cellule.
ensuite l'utilisateur peut choisir d'imprimer plusieurs fois des feuilles decoulant de celle qu'il a remplit.
et je voulais savoir s'il existait une fonction qui pourrait reproduire la mise en forme de la feuille de base sur toutes les autres feuilles decoulant de la feuille de base.
en esperant avoir ete assez clair.
merci d'avance a tous
boboz2

<!-- / message -->
Afficher la suite 

5 réponses

Messages postés
2247
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
5
0
Merci
Salut, j'ai enregistrer un macro qui copie la mise en forme de la feuil1 sur la feuil2 et voilà le résultat, un collage spéciale suffit:

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/03/2007 par
'


    Sheets("Feuil2").Select
    Cells.Select
    Selection.Copy
    Sheets("Feuil2").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
Messages postés
2247
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
5
0
Merci
Pardon

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/03/2007 par
'
    Sheets("Feuil1").Select
    Cells.Select
    Selection.Copy
    Sheets("Feuil2").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
Messages postés
11
Date d'inscription
mardi 14 mars 2006
Statut
Membre
Dernière intervention
11 juin 2008
0
Merci
Merci bien .

je voulais juste modifier quelque cellules et non toutes, j'ai donc modifier un peu ton code de cette maniere :

Sub Macro2()


    Range("G3:I13").Select
    Selection.Copy
    Range("G31:I41").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
   
End Sub

et cela marche perfectement, merci bien de ta rapidite

boboz2
Commenter la réponse de cs_boboz2
Messages postés
2247
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
5
0
Merci
De rien, c'était juste un exemple!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
0
Merci
Salut boboz,

pense à t'enregistrer via l'enregistreur de macro.
Pratiquement tout ce que tu fais est généré en code, seul qques améliorations seront à faire.

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
Commenter la réponse de mortalino