[RESOLU] Collage format spécial

[Ternoise]

Bonjour le Forum

Je copie la largeur de colonne avec ce code

Selection.PasteSpecial Paste:=xlPasteColumnWidths, SkipBlanks:=False, Transpose:=False

Comment "compiler ces deux codes pour avoir également les bordures?

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

Merci de votre aide
David

 

[CHALET53]

Re : Collage format spécial

bonjour,

En mettant les deux instructions à se suivre (peut-être)

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

a+

 

[Ternoise]

Re : Collage format spécial

Bonjour Chalet53

C'est ce que j'avais fait mais cela prend bien la largeur des colonnes mais pas les bordures !

 

[CHALET53]

Re : Collage format spécial

J'ai encadré la cellule D2
ça fonctionne pour la largeur et l'encadrement chez moi

Sub essai()
Range("D2").Select
Selection.Copy
Range("I4").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

End Sub

 

[Ternoise]

Re : Collage format spécial

Re

Oui c'est bon Chalet53, c'est moi qui c'est planté !!!

Désolé du dérangement