Supprimer uniquement les colonnes vides dans Excel Résolu

Question

Bonjour, j'ai un tableau Excel qui compte plus de 200 lignes et pas loin de 400 colonnes. Certaines colonnes sont complètement vides, d'autres ne contiennent que des -1, et je veux supprimer toutes ces colonnes, mais uniquement les colonnes entièrement vides et celles avec des -1 ! J'ai trouvé des astuces qui consistent à supprimer les cellules vides, mais cela décale toutes mes colonnes, car par endroit j'ai des cases vides.
J'ai essayé pas mal de choses sans succès. Pouvez-vous m'aider ? Merci
Ah oui, j'ai Office 2021.

eriiic · Answer

Bonjour,
en supposant que tu as une ligne de titre en 1, à mettre dans le module de la feuille :
Sub suppColVide()
    Dim col As Long
    For col = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
        If Application.CountA(Columns(col)) = 1 Then Columns(col).Delete
    Next col
End Sub 
eric

Supprimer uniquement les colonnes vides dans Excel

1 réponse

Votre réponse