Discussion :

[Tydher]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LouiMz]

Bonjour Mathieu,

Une petite idée a essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[Tydher]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[LouiMz]

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

[Tydher]

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 !