Insertion de colonne impossible en VBA

Bonjour à tous,

Voila, j'ai une feuille sous Excel contenant diverses informations.
Dans ma macro VBA, je récupere l'en-tete de ma colonne (la valeur qui se trouve dans la premiere ligne) et j'insere une colonne

Voila le code

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To nbColonne entete = Cells(1, i).Value If (entete = "Ach") Then indexG = i End If Next i Cells(1, indexG).Select Selection.EntireColumn.Insert Cells(1, indexG) = "PP File"

---

Cependant, j'ai aléatoirement un message d'erreur

Erreur d'execution 1004
Pour eviter la perte de données, Excel ne peut pas déplacer de cellules non vides en dehors de la feuille.
Essayer de supprimer ou d'effacer les cellules situées à doite et sous vos données. Puis selectionner A1 et enregister votre classeur pour redefinir la derniere cellule utilisée

Je ne vois pas d'où cela peux venir.

Merci d'avance

Bonjour Mathieu,

Une petite idée a essayé:

Code:

---

1 2 3 4 5 6 7

For i = 1 To nbColonne entete = Cells(1, i).Value If (entete = "Ach") Then Columns(i).Insert Cells(1, i) = "PP File" End If Next i

---

EDIT: Ne pas oublier de sortir de la boucle si il n'y a pas plusieurs colonnes "Ach"

Voila une proposition à laquelle je n'avais pas pensé !

Je te tient au courant, je teste ton code dés que mon erreur revient ! (c a d d'ici peu de temps ^^)

J'ai quand meme essayé de suite ton code dans une partie de ma macro comme je suis amené a inserer des colonnes à plusieurs endroits.
J'ai juste modifier :

Code:

---

1 2 3 4 5 6 7 8

For i = 1 To nbColonne entete = Cells(1, i).Value If (entete = "Ach") Then Columns(i).Insert Cells(i, i) = "PP File" i = i + 1 End If Next i

---

car sinon il retrouve a chaque fois Ach dans l'en-tete et m'ajoute donc à l'infini une colonne avec "PP file"

Bonjour,
Une autre méthode consiste à partir de la dernière colonne remplie

Code:

---

1 2 3 4 5 6 7

Dim c As Integer For c = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1 If Cells(1, c) = "Ach" Then Columns(c).Insert Cells(1, c) = "PP File" End If Next

---

Commentaire : Si tu commence la boucle de la 1ère à la dernière colonne et que tu insères une colonne, la dernière colonne ne sera pas lue et ainsi de suite à chaque colonne insérée. C'est vrai pour les lignes également.

Vi exact vu qu'il décale la colonne vers la droite ^^ J'avais oublié ce détail :)

Merci Phillipe de ta proposition.

J'ai inserer ton code dans ma macro en adaptant le nom de l'en-tete recherché à mon cas.
Ton code marche niquel et je n'ai pas eu besoin d'ajouter i = i + 1

Je repost dés que j'ai un probleme pour voir si cela est dû à mon code, le tient ou celui de LouiMZ

EDIT : Je mets le post en résolu, l'erreur est apparu sur le code que j'avais élaboré. Cela restera étrange.
Merci à vous deux pour vos solutions ! :ccool: