Inserer une colonne VBA EXCEL

Fermé

Vba
Colonne

tobec - 14 avril 2010 à 15:49
dct33 Messages postés 41 Date d'inscription jeudi 8 avril 2010 Statut Membre Dernière intervention 20 avril 2010 - 14 avril 2010 à 18:14

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:

Ajouter une colonne vba
Déplacer une colonne excel - Guide
Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
Vba dernière colonne non vide ✓ - Forum VB / VBA
Ajouter une adresse mail - Guide
Ajouter un profil netflix payant - Guide

2 réponses

Réponse 1 / 2

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
14 avril 2010 à 15:55

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.

tobec
14 avril 2010 à 16:08

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.

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
14 avril 2010 à 16:32

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 avril 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.

Merci encore

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
14 avril 2010 à 16:56

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 !

tobec
14 avril 2010 à 17:09

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.

Discussions similaires

VBA : Range avec références variables..

macro excel: transposition colonne en ligne

[VBA/Excel] macro ordre alphabétique

vba copier coller une colonne et modifier

VBA Selection jusqu'a derniere cellule pleine

Macro : ranger par ordre alphabétique

Discussions similaires

Newsletters