Supression colonnes

Bonjour à tout le forum,

J'ai besoin de votre aide.

Dans mon fichier ci-joint, qui aurait la solution par le biais d'une macro de retirer à partir de la colonne D, toutes celles qui ne contiennent que des 0 (celles représentées en jaune sur l'exemple). Tout en sachant que les colonnes qui ne comportent que des 0 peuvent changer de colonne selon mon importation de données.

Merci d'avance pour votre aide.

Bon week-end.

David

bonjour

supprimer des colonnes n'est qu'une étape dans ton processus de traitement des données

elles te sont fournies telles qu'on les voit ?

que vas-tu en faire ensuite ?

à te relire

amitiés

Bonjour,

Une proposition.

ALT F8, exécuter la procédure.

Cdlt.

Public Sub DeleteColumns()
Dim lastCol As Long, lastRow As Long, lCol As Long, N As Double
    Application.ScreenUpdating = False
    With ActiveSheet
        lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        For lCol = lastCol To 4 Step -1
            N = WorksheetFunction.Sum(.Cells(lCol).Resize(lastRow))
            If N = 0 Then .Columns(lCol).Delete
        Next lCol
    End With
End Sub

Bonsoir Jmd, Jean-Eric et tout le forum.

Désolé de répondre seulement maintenant.

C'est exactement ce que je voulais Jean-Eric.

Merci beaucoup.

Bonne soirée.

David.

Rechercher des sujets similaires à "supression colonnes"