Erreurs d'execution 1004
lwd
Messages postés
3
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour
je viens de commencer à programmer en vba sous excel 2003. je veux créer une macro sous Excel qui permet de copier des cellules de la feuille2 qu'elle copie dans la feuille 1. quand j'execute la macro ça m'affiche "erreurs d'execution 1004. erreurs définies par l'application ou par l'objet"
voici mon code:
Sub identifier()
ActiveCell.FormulaR1C1 = "1" ' elle met cette valeur dans la cellule active de la feuille 1
Sheets("Feuil2").Select
Range("B2").Select
Selection.Copy
Sheets("Feuil1").Select
Range("D4").Select
ActiveSheets.Paste
Application.CutCopyMode = False
Sheets("Feuil2").Select
Range("C2").Select
Selection.Copy
Sheets("Feuil1").Select
Range("D5").Select
ActiveSheets.Paste
Application.CutCopyMode = False
end sub
Merci de ton aide!
je viens de commencer à programmer en vba sous excel 2003. je veux créer une macro sous Excel qui permet de copier des cellules de la feuille2 qu'elle copie dans la feuille 1. quand j'execute la macro ça m'affiche "erreurs d'execution 1004. erreurs définies par l'application ou par l'objet"
voici mon code:
Sub identifier()
ActiveCell.FormulaR1C1 = "1" ' elle met cette valeur dans la cellule active de la feuille 1
Sheets("Feuil2").Select
Range("B2").Select
Selection.Copy
Sheets("Feuil1").Select
Range("D4").Select
ActiveSheets.Paste
Application.CutCopyMode = False
Sheets("Feuil2").Select
Range("C2").Select
Selection.Copy
Sheets("Feuil1").Select
Range("D5").Select
ActiveSheets.Paste
Application.CutCopyMode = False
end sub
Merci de ton aide!
A voir également:
- Erreurs d'execution 1004
- Le service spouleur d'impression local n'est pas en cours d'exécution - Guide
- Redémarrer pour réparer les erreurs de lecteur ✓ - Forum Windows 10
- Il permet l’exécution des logiciels applicatifs et gère l’utilisation des ressources matérielles (mémoire, processeur, périphériques). - Forum Pilotes (drivers)
- Excel attend la fin de l'exécution d'une action ole ✓ - Forum Word
- Erreur d'exécution 13 incompatibilité de type ✓ - Forum VB / VBA
1 réponse
Bonjour,
La procédure pour copier/coller est beaucoup plus simple. Regarde cet exemple adapté de ton cas :
Ensuite, pour inscrire 1 dans une cellule, pas besoin de formule :
Maintenant vérifie juste que tes feuilles s'appellent bien Feuil1 et Feuil2
La procédure pour copier/coller est beaucoup plus simple. Regarde cet exemple adapté de ton cas :
Sheets("Feuil2").Range("B2").Copy Sheets("Feuil1").Range("D4")
Sheets("Feuil2").Range("C2").Copy Sheets("Feuil1").Range("D5")
Ensuite, pour inscrire 1 dans une cellule, pas besoin de formule :
ActiveCell = 1
Maintenant vérifie juste que tes feuilles s'appellent bien Feuil1 et Feuil2
