[VBA Excel] Supprimer les colonnes vides Résolu

Question

Bonjour,J'ai une feuille excel avec des colonnes vides. Je souhaiterai automatiser leur suppression en VBA. Ces colonnes peuvent être n'importe ou et le nombre de ligne est variable.Merci

gbinforme · Accepted Answer

bonjour ben7777Faut des boucles For... C'est vrai mais si je te donne la macro suivante, c'est plus efficace :Sub sup_col_vides()Dim cFor c = 256 To 1 Step -1If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1,c).EntireColumn.DeleteNext cEnd SubMerci de me dire si cela fonctionne...

WhiteFang · Answer

;-)Faut des boucles For...;-)

ben7777 · Answer

nickel merci ;-)

lederic15 · Answer

Sub sup_col_vides()
Dim c
For c = 256 To 1 Step -1
If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1,c).EntireColumn.Delete
Next c
End Sub 

Bonjour,

une question quant à ce code qui fonctionne;
dans la condition, que veut dire =1 ?
Apparemment, il sous-entend que chaque cellule dans la colonne est vide en les lisant du bas vers le haut, mais je ne comprends pas cette notion;
pourquoi ne pas mettre isempty(cells65536,c).end(xlup).row) ?
merci

lederic15 · Answer

Bsr

Merci pour ta réponse Gbinfo, mais qu'est-ce qu'une valeur de résultat et aurait-on pu remplacer le 1 par true ?
Merci

lederic15 · Answer

Bsr

Donc si je comprends bien, le code demande la lecture des colonnes du classeur en "scrutant" chaque cellule de la colonne en remontant vers la première cellule de cette colonne;à partir du moment où il arrive à cette première cellule donc au "=1", il efface la colonne entière;et pour arriver à cette première cellule, il faut que toute les cellules soient vides et c'est là que je ne comprends pas(je ne vois pas cette instruction dans le code);de même, le fait d'arriver à cette première cellule, donc le résultat de 1 lui est retourné et il efface la colonne entièrement sans avoir "contrôlé" si cette dernière était vide ou pas ?

lederic15 · Answer

Bjr

ça y est, par ta dernière réponse, j'ai compris;c'est le end(xlup) qui remonte jusqu'à la dernière cellule non vide;s'il remonte jusqu'à la 1ère ligne, il renvoie 1 et donc toute la colonne est vide et bonne à être supprimée.

Ok merci

padbollevrai · Answer

Bonjour,

J'essaie de faire la même chose, pourtant simple, mais rien à faire. Je dois supprimer les colonnes remplies de 0 ou de vides, cependant il y a des "titres" en haut des colonnes mais ça n'a pas d'importance.

Que je fasse :

Sub delete()

Dim j as Integer

For j = 20 to 1 step -1
               If Cells (4, j).Value = 0 Then ActiveCell.EntiereColumn.Delete
Next j

End Sub


Ou bien :

Sub delete()

Dim j As Integer
 
For j = 20 To 1 Step -1 
              If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1,c).EntireColumn.Delete 
Next j

End Sub 


soit ca ne fait rien, soit ca me dit "propriété ou méthode non gérée par cet objet"...


Ou es-ce que j'ai faux ?


Merci

[VBA Excel] Supprimer les colonnes vides

8 réponses

Votre réponse

Discussions similaires