[résolu]Erreur 438 sur la copie de cellules

[Al capone]

Bonsoir a tous,

Je rencontre sur un copier-coller de cellules une erreur 438 :

Propriété ou méthode non gérée par cet objet

Dans une boucle si le résultat est positif, je souhaite copier une plage de cellules vers une autre feuille de classeur .

Worksheets("feuill1").Range("A5:H5").Select
Selection.Copy
Worksheets("feuill2").Range("A5").Paste

L'erreur vient sur la troisième ligne .....
Merci

 

[cbea]

Re : Erreur 438 sur la copie de cellules

Bonsoir,

voici une solution :

    Worksheets("feuill1").Range("A5:H5").Copy Destination:=Worksheets("feuill2").Range("A5")
    Application.CutCopyMode = False

PS : s'assurer que les noms des feuilles soient bien écrits (feuill1 et feuill2).

 

[Gorfael]

Re : Erreur 438 sur la copie de cellules

Salut Al capone et le forum
Pour compléter la réponse précédente, la méthode Paste n'appartient pas à range, mais à Sheet
Et comme je me refuse à dénaturer le travail de cbea, tu n'auras pas d'exemple, na ! ^^
A+

 

[Staple1600]

Re : Erreur 438 sur la copie de cellules

Bonjour à tous


Une autre façon (qui évite le copier/coller)

Sub simili_copiecolle()
Feuil2.[A5:H5].Value = Feuil1.[A5:H5].Value
End Sub

A utiliser si tu ne veux copier que les valeurs seules (et pas le format des cellules)

Ps: Ci-dessous la version orthodoxe

Sub simili_copiecolle_standard()
Worksheets("Feuil2").Range("A5:H5").Value = _
Worksheets("Feuil1").Range("A5:H5").Value
End Sub

 

[Al capone]

Re : [résolu]Erreur 438 sur la copie de cellules

Merci beaucoup pour vos suggestions.
Problème résolu . Je réédite mon premier message