[VBA] problème erreur 1004
Résolu
ori05
Messages postés
56
Date d'inscription
Statut
Membre
Dernière intervention
-
ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
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 0x80070643 - Accueil - Windows
- Iptv erreur de lecture - Forum TV & Vidéo
- J'aime par erreur facebook notification - Forum Facebook
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues