erreur 438 et paste [Résolu]

[grodep]

Bonjour, parfois, quand on revient vers excel et le vba, on s'énerve facilement pour des p'tites choses :
typiquement, je tente un truc aussi con que copier/coller une plage de cellules vers plusieurs autres feuilles, et ça plante:
voici le code :

Sheets(39).select
RAnge("D39:T54).copy
For i=40 to 109
With Sheets(i)
Range("D39:T54").select
ActiveSheet.Paste
End with
NExt

et j'ai droit à une erreur 438 sur la ligne ActiveSheet.Paste
J'ai tenté de remplacer par ActiveCell, par Selection, mais rien n'y fait, et je ne trouve pas de solution par google.
Désolé de déranger pour un problème aussi trivial.

Merci d'avance aux excelnautes.

Nb: une stratégie de restriction logicielle m'interdisant d'ouvrir mon document sur ce pc, je ne peux que recopier à la main le code, il y a peut-être des erreurs "d'orthographe" dans celui ci.

 

[youky(BJ)]

Re : erreur 438 et paste

Bonjour grodep,
Voici mais non testé, nul besoin de select

Sheets(39).Range("D39:T54").Copy
For i = 40 To 109
Sheets(i).[D39].PasteSpecial
Next



Bruno

 

[grodep]

Re : erreur 438 et paste

Merci, en fait il y avait deux problèmes :
le premier que vous ne pouviez pas trouver sans une feuille jointe en exemple est que la plage sélectionnée "accrochait" en partie des cellules fusionnées.
Le deuxième est effectivement qu'il semble que l'objet range n'accepte pas Paste, mais accepte bien PasteSpecial.

Merci pour la réponse si rapide.