Inserer une colonne VBA EXCEL
tobec
-
dct33 Messages postés 42 Statut Membre -
dct33 Messages postés 42 Statut Membre -
Bonjour a tous,
Je cherche a inserer une colonne dans une feuille, une fois la colonne insérée je voudrai remplir chaque cellule avec le chiffre "1" jusqu'a la 267ème cellule.
Le tout doit etre lancé en cliquant sur un bouton.
Le bouton se trouve sur la premiere feuille (feuil1) et je dois insérer cette nouvelle colonne dans la deuxieme feuille (Feuil2).
Voila le code que g écrit :
Si je suis ici, c'est évidement parce que ca ne fonctionne pas^^
voici l'erreur retournée :
"Erreur d'execution '1004'
La méthode Select de la classe Range a échoué."
Quelqu'un aurai t'il une solution?
Merci d'avance a tout ceux qui m'aideront ou essayeront de m'aider.
Je cherche a inserer une colonne dans une feuille, une fois la colonne insérée je voudrai remplir chaque cellule avec le chiffre "1" jusqu'a la 267ème cellule.
Le tout doit etre lancé en cliquant sur un bouton.
Le bouton se trouve sur la premiere feuille (feuil1) et je dois insérer cette nouvelle colonne dans la deuxieme feuille (Feuil2).
Voila le code que g écrit :
Sheets("Feuil2").Select
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Range("F2").Select
ActiveCell.FormulaR1C1 = "1"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F267")
Range("F2:F267").Select
Si je suis ici, c'est évidement parce que ca ne fonctionne pas^^
voici l'erreur retournée :
"Erreur d'execution '1004'
La méthode Select de la classe Range a échoué."
Quelqu'un aurai t'il une solution?
Merci d'avance a tout ceux qui m'aideront ou essayeront de m'aider.
2 réponses
-
Bonjour,
le mieux aurait été que tu nous dise sur quelle ligne tu avais cette erreur d'exécution !
J'ai un modifié ton code (bien qu'il n'y avait aucun problème d'exécution chez moi), car les Select alourdissent le code et l'exécution de la macro :
Sheets("Feuil2").Activate Columns("F:F").Insert Shift:=xlToRight Range("F2").FormulaR1C1 = "1" Range("F2").AutoFill Destination:=Range("F2:F267") Range("F2:F267").Select
Cordialement.-
-
Ah ? je viens de re-tester chez moi le bout de code que je t'ai fourni, ça marche niquel, la colonne se remplit bien sur la feuille 2.
Quelle version d'Excel as-tu en ta possession ?
Logiquement, l'erreur sur la sélection de la colonne a disparu avec mon code, non ? -
-
tobec - 14 avr 2010 à 16:08
J'ai essayé ton code, pas de plantage mais un probleme...la colonne est crée et rempli sur la feuille1.
tobec - 14 avr 2010 à 16:52
Je me sers d'office 2003.
Oui l'erreur a bien disparu avec ton code, plus aucun bug, mais la nouvelle colonne se créé et s'alimente sur la feuille2.
Sur quelle feuille ta colonne doit-elle être insérée ? Si c'est sur la feuille 2, le code est bon ! -
-
