[VBA] problème erreur 1004

Résolu/Fermé
ori05 Messages postés 56 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 - 24 juil. 2009 à 15:09
ori05 Messages postés 56 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 - 27 juil. 2009 à 09:48
Bonjour,
J'ai un petit problème avec VBA.
Dans une première feuille (Feuil1) j'ai une cellule ou l'utilisateur rentre un nombre, suite à cela dans ma feuille Feuil2 j'ai une plage de cellule dans un tableau qui est copiée un certain nombre de fois (nombre rentré dans Feuil1) et insérée à la suite de la plage originale. Jusque la tout va bien ça fonctionne. Mais ça ne fonctionne uniquement si je lance ma macro depuis la Feuil2, si je la lance depuis la Feuil1 j'obtient l'erreur suivante :

" Erreur d'execution '1004'
La methode select de la classe Range a échoué "


Mon code est le suivant :

Sub Macro1()

Dim compteur As Long

Sheets("Feuil2").Range("A6:G12").Select

For compteur = 1 To ((Sheets("Feuil1").Range("B9").Formula) - 1) Step 1
Selection.Copy
Sheets("Feuil2").Rows("13:13").Select
Selection.Insert Shift:=xlDown
Next compteur

End Sub



Pouvez vous m'aider SVP !!!

2 réponses

ben13.51 Messages postés 112 Date d'inscription mercredi 18 mars 2009 Statut Membre Dernière intervention 11 janvier 2012 7
24 juil. 2009 à 17:18
Je crois qu'il suffit que tu insert

Sheets("Feuil2").select avant

Sheets("Feuil2").Range("A6:G12").Select
0
ori05 Messages postés 56 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 3
27 juil. 2009 à 09:48
Effectivement c'était ça !! Merci beaucoup !!!
0