Question : exceler - si la cellule est blanche, colonne entière de suppression

Bonjour, le
I font exceler un bilan dedans. cellule du

le cas échéant dans la rangée 2 = 0 que je veux supprimer ce columnn.

Is ceci possible ?
Sm17ch class= de

Réponse : exceler - si la cellule est blanche, colonne entière de suppression

hth

Dave

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 :

KillTwo secondaire () Faible rng1 comme gamme Faible lngRow en tant que longtemps Application.ScreenUpdating = faux Placer rng1 = intersectent (ActiveSheet.UsedRange, les rangées (2)) Pour le lngRow = le rng1.Columns.Count à 1 étape -1 Si rng1.Cells (lngRow). Valeur = « 0 » puis rng1.Cells (lngRow) .EntireColumn.Delete Prochain lngRow Application.ScreenUpdating = rectifient Sous-marin d'extrémité