Inserer une colonne VBA EXCEL

tobec -  
dct33 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   -
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 : 


    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.

A voir également:

2 réponses

Réponse 1 / 2
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
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.
6
tobec
 
J'ai essayé ton code, pas de plantage mais un probleme...la colonne est crée et rempli sur la feuille1.

L'erreur de mon code se situe sur la ligne "Columns("F:F").Select".

Merci de ton aide.
0
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
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 ?
0
tobec
 
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.

Merci encore
0
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
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 !
0
tobec
 
C'est bien sur la feuille2, mais pour une raison encore non explique ca ne fonctionne pas^^

j'ai trouvé une solution pour régler le probleme, ce n'est peu etre pas très "propre" mais ca fonctionne^^

Merci encore de ton aide, ca m'a bien aidé.

Merci encore et a bientot.
0

Discussions similaires

VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
macro excel: transposition colonne en ligne
magali87 -
eriiic -

2 réponses
[VBA/Excel] macro ordre alphabétique
styvea -
styvea -

2 réponses
vba copier coller une colonne et modifier
minidu56 -
minidu56 -

2 réponses
VBA Selection jusqu'a derniere cellule pleine
teamktm1307 -
Tobar4 -

4 réponses
Macro : ranger par ordre alphabétique
Lynkyn -
lynkyn -

16 réponses