Coller des valeurs

Résolu
Ben -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Voici mon code lors de la compilation, j'obtient l'erreur d'execution 1004 à la derniere ligne.


 'Copier la date
        Feuil1.Activate
        Range("K3").Copy
        'Coller la date
        Feuil2.Activate
        Feuil2.Select
        Range("A4").Select
        ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

plus simple sans les activate et sélect

Sub test()
Feuil1.Range("K3").Copy Feuil2.Range("A4")

'ou

Worksheets("feuil1").Range("K3").Copy Worksheets("feuil2").Range("A4")

End Sub
0