Tout copier sauf les bordures

[isa44]

Bonjour à tous ,
comment tous copier sauf les bordures avec ce code VBA ?

Private Sub Worksheet_Change(ByVal Target As Range)
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("Numero").Range("A2:A300")
If Target.Value = cell.Value Then
cell.Copy Destination:=Target
End If
Next cell
End If
End If
flag = False
End Sub


Merci pour votre aide et bon week end

 

[skoobi]

Re : Tout copier sauf les bordures

Bonjour,

les modifications en bleu:

Private Sub Worksheet_Change(ByVal Target As Range)
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("Numero").Range("A2:A300")
If Target.Value = cell.Value Then
cell.Copy
Target.PasteSpecial Paste:=xlPasteAllExceptBorders
End If
Next cell
End If
End If
flag = False
End Sub

Pense à utiliser l'enregistreur de macro...

 

[michel_m]

Re : Tout copier sauf les bordures

bonjour isa,skoobi

la m^me chose mais en évitant le "paste" toujours très lent
Target.PasteSpecial (xlPasteAllExceptBorders)
c'est du détail si il n'y a pas nécessité d'aller comme un TGV

 

[isa44]

Re : Tout copier sauf les bordures

Bonsoir à tous,
merci pour vos modifications.

Encore un petite question : serait il possible d'appliquer ce code aux cellules C6:C26,H6:H32,M6:M39,R6:R41 en même temps à chaque changement des cellules concernées ?

Merci pour vos aides précieuses