[VBA] problème erreur 1004
Résolu
ori05
Messages postés
57
Statut
Membre
-
ori05 Messages postés 57 Statut Membre -
ori05 Messages postés 57 Statut Membre -
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 !!!
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 !!!
A voir également:
- [VBA] problème erreur 1004
- Erreur t32 ✓ - Forum Livebox
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Erreur upes 1025 - Forum Téléviseurs
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues