Supprimer uniquement les colonnes vides dans Excel

Résolu/Fermé
petus - Modifié le 11 janv. 2022 à 17:32
 petus - 11 janv. 2022 à 20:26
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.
A voir également:

1 réponse

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
11 janv. 2022 à 20:07
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
1
Impec, ça fonctionne !
Un grand merci à toi !
0