Supprimer colonnes sur excel

Fermé
timot50 Messages postés 6 Date d'inscription jeudi 28 avril 2011 Statut Membre Dernière intervention 4 mai 2011 - 28 avril 2011 à 11:24
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 28 avril 2011 à 12:09
Bonjour,
Je voudrais savoir comment faire pour supprimer des colonnes lorsqu'elles sont vides.
En faite j'ai un tableau mais je vais pas toujours avoir le même nombre de colonnes et je voudrais qu'Excel gère le nombre de colonne automatiquement.
Merci d'avance.


1 réponse

Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 110
28 avril 2011 à 12:09
Salut,

Essayes ce code

Sub Supprime_colonnes_vides()
Dim i
'------------surveille de la colonne 25 à 1 (Y à A)
For i = 25 To 1 Step -1
If Cells(65536, i).End(xlUp).Row = 1 Then Cells(1, i).EntireColumn.Delete
Next i
End Sub

0