Suppression colonnes

Bonjour,

J'aimerai supprimer les colonnes vides des zones X à AE par macro VB si elles sont vides (sauf titre). est-ce possible, je ne trouve rien de fonctionnel. merci

Cordialement

Bonjour,

Sub suppCol()
    Dim col As Long
    For col = 24 To 31
        If Application.Count(Columns(col)) = 0 Then Columns(col).EntireColumn.Delete
    Next col
End Sub

Mais ton fichier est bizarre. Tes cellules vides sont vides sans l'être (???).

=NBVAL(X:X) =>24 (?) Et revalider une cellule vide la vide vraiment

eric

Bonjour Eriiic,

C'est parfait le code fonctionne à merveille. Est-ce que je peux abuser en te demandant comment faire pour ajouter un total en fin de ligne sur les valeurs numériques ou bien est-ce que je dois ouvrir un autre sujet. De toute façon, je suis dépanné, lerci beaucoup.

Bien à toi

Bonjour,

Sub suppCol()
    Dim col As Long, derlig As Long
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    For col = 31 To 24 Step -1
        If Application.Count(Columns(col)) = 0 Then
            Columns(col).EntireColumn.Delete
        Else
            Cells(derlig + 1, col).Formula = "=sum(" & Cells(2, col).Address & ":" & Cells(derlig, col).Address & ")"
        End If
    Next col
End Sub

N'oublie pas de mettre en résolu si ok.

eric

Eriiic,

Admirable et efficace, cette opération est récurrente car mensuelle et qui s'applique à un grand nombre de cas. Merci de ton aide

Cordialement