Supprimer colonnes vides avec en tête

Fermé
Aussie44 - 27 juil. 2013 à 23:00
f894009 Messages postés 17239 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 février 2025 - 28 juil. 2013 à 09:27
Bonjour,
J'ai plusieurs fichiers avec un nombre de lignes et de colonnes qui diffèrent. Chaque colonne a une entête.
Pour chaque fichier, je souhaite supprimer toutes les colonnes ayant toutes leurs cellules vides.
j'ai trouvé cette macro en farfouillant sur le net mais elle ne fonctionne pas sur mes fichiers :

SupprCol()
Dim i As Long
For i = Range("C1").CurrentRegion.Columns.Count To 1 Step -1
If Application.CountA(Range("C1").CurrentRegion.Cells(1, i).EntireColumn) = 1 Then
Range("C1").CurrentRegion.Cells(1, i).EntireColumn.Delete
End If
Next i
End Sub


Est-ce quelqu'un aurait une idée ?
Merci par avance,

1 réponse

f894009 Messages postés 17239 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 février 2025 1 713
28 juil. 2013 à 09:27
Bonjour,

Avec Sub devant SupprCol() ira mieux ,sauf si c'est un oubli du copier/coller.

Vous devez preciser sur quel onglet vous voulez quelle s'applique.

Pour vous: plusieurs fichiers c'est x classeurs ou ?????


A+
0