[RESOLU] Collage format spécial

C

CHALET53

XLDnaute Barbatruc

• 12 Janvier 2016

• #2

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+

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 12 Janvier 2016

• #3

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 !

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 12 Janvier 2016

• #4

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

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 12 Janvier 2016

• #5

Re : Collage format spécial

Re

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

Désolé du dérangement

 

Vote positif 0 Vote négatif