Inserer une colonne VBA EXCEL Fermé

Question

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.

Configuration: Windows XP / Firefox 3.5.9

chossette9 · Accepted Answer

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.

dct33 · Answer

Bonsoir, 
 'exemple insertion en colonne 4 ou D selon l'affichage  

'sélection de la page 
sheets(2).select 

' insertion de la colonne 
    Range("D1").Select 
    Selection.EntireColumn.Insert 

'remplissage avec une boucle for 

for x = 1 to 267 
     
        ' cells( ligne , colonne ) la ligne évolue en fonction de x 

   cells(X ,4)= "1"     
 
next X 

sheets(1).select


Bonne programmation

Inserer une colonne VBA EXCEL

2 réponses

Discussions similaires