Rapport de message :*
 

Empêcher la copie des bordures

Titre du sujet : Empêcher la copie des bordures
par ascal44 le 28/05/2008 22:02:10

Bonsoir à tous,

Que faut -il changer dans ce code pour tout copier sauf les bordures ?


If flag Then Exit Sub
flag = True

If Target.Column = 3 Or Target.Column = 8 Or Target.Column = 13 Or Target.Column = 18 Then
If Target.Value <> "" And Target.Font.Color <> 8421504 Then
For Each Cell In Sheets("Poid").Range("C7:C300")
If Target.Value = Cell.Value Then

x = Target.Borders.LineStyle
y = Target.Borders.Value

Cell.Copy Destination:=Target

Target.Borders.LineStyle = x
Target.Borders.Value = y End If
Next Cell
End If
End If
flag = False

Merci pour vos solutions