Copier les valeurs uniquement

[Guy]

Bonjour à tous,

J'ai un problème avec cette partie de macro où je voudrais que seule la valeur des cellule soit copiée :



Dim L As Long 'Dimensionne et déclare la variable L

L = Sheets('Base').Range('A2').End(xlDown).Row + 1 'définit la variable L : Ligne de la dernière cellule utilisée en colonne B


With Sheets('Blanc')

Sheets('Base').Cells(L, 1) = .Range('L4').Value 'Exporter la 'référence du certificat' en colonne 1 (CORRESPOND A LA COLONNE A)
Sheets('Base').Cells(L, 2) = .Range('A4').Value 'Exporter la 'date du certificat' en colonne 2 (CORRESPOND A LA COLONNE B)
Sheets('Base').Cells(L, 3) = .Range('J4').Value 'Exporter le 'destinataire du sucre' (EC,MA,CCI) en colonne 3 (CORRESPOND A LA COLONNE C)

End With 'Fin de l'export



Merci

Guy

 

[CBernardT]

Bonjour Guy et le forum,

Ta macro paraît très bien pour reporter des valeurs !

Rajouter peut-être .Value à :

Sheets('Base').Cells(L, 1).Value

Quel est ton problème de transfert ?

Cordialement

Bernard

 

[guy]

Merci pour ta réponse CBernardT,

Je devais être fatigué,

Oui tout est OK

Guy