Copier tout sauf les bordures

[isa44]

Bonjour , j'ai le code suivant:

 Référence = Target
    With Sheets("PARC")
        For i = 7 To .Range("C65000").End(xlUp).Row
            If .Cells(i, 3) = Référence Then
                GoTo Etiquette
            End If
        Next
Etiquette:
    Intérieur = .Cells(i, 3).Interior.Pattern
    Couleur = .Cells(i, 3).Interior.Color    
    End With
    Target.Interior.Pattern = Intérieur
    Target.Interior.Color = Couleur
    
End If

Je voudrais tout copier sauf les bordures , que faut il rajouter ?

 

[Fo_rum]

Re : Copier tout sauf les bordures

Bonjour,

bout de code à insérer dans ton évènementielle (copie tout puis supprime les bordures)

  Dim R As Range, n As Byte
  With Sheets("PARC")
    Set R = .Range("C7:C" & .Range("C65000").End(xlUp).Row).Find(Target,LookIn:=xlValues, LookAt:=xlWhole)
    If Not R Is Nothing Then
      R.Copy Target
      For n = 7 To 12: Target.Borders(n).LineStyle = xlNone: Next
    End If
  End With

 

[isa44]

Re : Copier tout sauf les bordures

Merci pour le code , le problème c'est qu'il est long à s'exécuter et qu'il ne conserve pas les bordures de la cellule de destination.

Pourriez vous me mettre un peu de commentaires dans le code afin que je comprenne un peu ?

 

[Fo_rum]

Re : Copier tout sauf les bordures

re,

que signifie "Copier tout sauf les bordures" ?

Quant à la lenteur 😕, je ne vois pas. Tout dépend de ce que tu as à côté et cela je ne le vois pas non plus😉.

Tu trouveras peut-être des explications ici ?