Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

erreur 438 et paste [Résolu]

grodep

XLDnaute Occasionnel
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 :
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.
 
Dernière édition:

youky(BJ)

XLDnaute Barbatruc
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
 
Dernière édition:

grodep

XLDnaute Occasionnel
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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…