Macro sans quadrillage

[choupi_nette]

Bonjour,

Dans la macro suivante, quand ca copie ce dont j'ai besoin ca me copie aussi le formatage de la cellule de départ
Comment utiliser ma macro mais sans le quadrillage des cellules

Merci

Set myrange = Sheets("1").Range("a2:x17")

last = 2

For Each cel In myrange
If Not IsEmpty(cel) Then
cel.Copy Sheets("33").Range("C" & last)
last = last + 1
End If

 

[Pierrot93]

Re : Macro sans quadrillage

Bonjour,

pour ne copier que la valeur des cellules :

If Not IsEmpty(cel) Then
Sheets("33").Range("C" & last).Value = cel.Value 
last = last + 1

bon après midi
@+

 

[choupi_nette]

Re : Macro sans quadrillage

merci pour ton aide bon week end