Supprimer colonnes sur excel

timot50 Messages postés 13 Statut Membre -  
Mike-31 Messages postés 18405 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

  1.
    Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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