Suppresion cellules

Je cherche un moyen de supprimer les cellules contenant la valeur 0 du fichier joint,

et faire remonter les cellules se trouvant dessous.

je bute chaque fois avec un message d'erreur "object integer".

le fichier joint contient peu de ligne mais en general il en comte 5000 sur 30 colonnes.

votre aide serait la bienvenue.

le fichier https://www.excel-pratique.com/~files/doc/KHZGEtest.xls

Bonjour sweetsmoke,

Voici le code :

    Dim lgLig As Long
    Dim lgCol As Long

    For lgCol = 2 To Range("IV2").End(xlToLeft).Column
        For lgLig = Range("C2500").End(xlUp).Row To 2 Step -1
            If Cells(lgLig, lgCol).Value = 0 And Cells(lgLig, lgCol).Value <> vbNullString Then
                Cells(lgLig, lgCol).Select
                Selection.Delete Shift:=xlUp
            End If
        Next lgLig
    Next lgCol

nickel, ça à l'air de fonctionner, mais peux tu m'expliquer (n00b)

la valeur For lgCol = 2 To Range("IV2") dans la fonction ?

Bonsoir sweetsmoke,

L'instruction qu'il faut prendre en considération est la suivante :

Range("IV2").End(xlToLeft).Column

A partir de la colonne IV et la ligne 2, récupération de la première cellule non vide à gauche de la cellule IV2.

Dans ton fichier, la première colonne non vide sur la ligne 2 est "AA".

Bonne soirée.

ok, merci, donc tu peux l'adapter à tout type de fichier.