copie format et valeur

[joss]

Bonsoir

j'ai fait une marcro du type:

Range("B8:J8").Select
Application.CutCopyMode = False
Selection.Copy
Range("L12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False
End Sub

mais je voudrais aussi copier le format : donc

Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _ False, Transpose:=False

mais comment faire les deux en meme temps (xlValues ET xlFormats) car j'ai des formules et je ne veut les recopier

Merci

Joss

 

[Lord Nelson]

Salut Joss,

Rien ne t'interdit d'enchaîner 2 collages spéciaux, comme ceci :

Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

A+
Horatio