Copier format police sans le format cellule

[ascal44]

Bonsoir, voici le code VBA suivant que je voudrais modifier afin de recopier uniquement le format de police sans celui de la cellule :


x = Application.Index(Sheets("Remisage").Range("B6:B109"), _
Application.Match(CDbl(TextBox9.Value), Sheets("Remisage").Range("A6:A109"), 0)).Address
Sheets("Remisage").Range(x).Copy .Range("G" & DerLigne)
Application.CutCopyMode = False

Celà est-il possible ???

 

[Excel-lent]

Re : Copier format police sans le format cellule

Bjr Ascal44

Voici le code pour recopier uniquement le format de police de la cellule [G12]

    Range("G12").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

A adapter à ton cas de figure

 

[ascal44]

Re : Copier format police sans le format cellule

Merci, mais je ne sais pas comment et où l'intégrer dans mon code !!!

Je débute dans le déchiffrage du VBA.