Coller des valeurs

Résolu
Ben -  
f894009 Messages postés 17417 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

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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

Discussions similaires

Problème de restrictions
SuperAmbi -
Pat -

5 réponses
dessin avec symbole clavier
JSS -
Adraen -

79 réponses
Copier coller impossible
coulondou -
jeanmarc -

43 réponses
Copier coller une image de Google sur Macbook
orianepark -
dede74000 -

1 réponse