reproduire mise en forme en VBA sous excel

Question

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

drikce06 · Answer

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:

drikce06 · Answer

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:

cs_boboz2 · Answer

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

drikce06 · Answer

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:

mortalino · Answer

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>

Reproduire mise en forme en VBA sous excel

5 réponses

Votre réponse

Discussions similaires