Supprimer colonnes sur excel

timot50 Messages postés 13 Statut Membre -  
Mike-31 Messages postés 19572 Date d'inscription   Statut Contributeur Dernière intervention   -
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 19572 Date d'inscription   Statut Contributeur Dernière intervention   5 139
 
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