Supprimer colonnes vides avec en tête
Aussie44
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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,
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,
A voir également:
- Excel supprimer colonnes vides
- Supprimer rond bleu whatsapp - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Déplacer colonne excel - Guide
- Liste déroulante excel - Guide
