[excel]comment supprimer une colonne vide...

J'ai un tableau excel qui est généré par une macro.
Cepmendant dans ce tableur j'ai de colonnes vides, je voudrais savoir comment scanner les cellules de la premiere ligne et supprimer les colonnes dont la premiere cellule est vide

Je sais que pour supprimer c'est un truc comme ca,

Code:

---

Selection.Delete Shift:=xlToLeft

---

Essaie un truc dans ce genre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() DerniereColonne = ActiveCell.SpecialCells(xlLastCell).Column   For i = 1 To DerniereColonne If Cells(1, i).Value = "" Then Cells(1, i).EntireColumn.Delete Shift:=xlToLeft   End If Next i   End Sub

---

Tu parcours les cellules de la ligne 1 jusqu'à la dernière cellule à droite, et si cette cellule est vide, la colonne complète est supprimée.

ouais ca marche presque il m'en oubli quelques une, je sais pas pourquoi...
merci

Je crois que je sais: c(est quand il y en a 2 consécutives.
Par exemple, les colonnes 7 et 8 sont vides: au moment où l'indice i vaut 7, il supprime la colonne 7. L'ancienne colonne 8, vide, devient alors la colonne 7, mais l'indice passe à 8, et c'est la nouvelle colonne 8 qui est vérifiée: bref, on en a raté une !!!
Je regarde comment on peut modifer ça...

Ok, j'ai un truc qui a l'air mieux:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() DerniereColonne = Range("Z1").End(xlToLeft).Column   For i = 1 To DerniereColonne If Cells(1, i).Value = "" Then Cells(1, i).EntireColumn.Delete Shift:=xlToLeft DerniereColonneEnCours = Range("Z1").End(xlToLeft).Column If i >= DerniereColonneEnCours Then Exit Sub i = i - 1 End If Next i   End Sub

---