Supprimer des lignes si la valeur d'une cellule égale 0

Bonjour,

J'ai une feuille excel où j'obtiens le résultat suivant (sur plusieurs lignes) :

Colonne A = matricule

Colonne B = code d'une rubrique

Colonne C = montant qui peut être égal à zéro.

Existe-t-il une macro pour éliminer toutes les lignes dont le montant de la colonne C est égale à zéro ?

Merci d'avance de votre aide.

Bonjour,

Un exemple à adapter :

Option Explicit
Public Sub Suppression_lignes_C()
Dim ws As Worksheet
Dim lastRow As Long
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    With ws
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Rows
        For i = lastRow To 2 Step -1
            If .Cells(i, "C") = 0 Then Rows(i).Delete
        Next
    End With
    Set ws = Nothing
End Sub

Je te remercie jean-Eric mais je narrive pas à l'intégrer dans mon fichier excel. Comment faire ?

J'ai essayé, mais visual basic me met en sur-brillance le i et la ligne Public Sub : qu'est-ce que je dois mettre à la place du i et la ligne Public Sub ?

Re,

Peux-être en envoyant un fichier anonymisé?

Cdlt.

Ok ! Tu attends un fichier ou tu m'en envoies un ?

Re,

Ton fichier

Cdlt.

Chose faite ! Il faut prendre la feuille Cible. Merci.

Re,

ALT F11 pour ouvrir l'éditeur VBA.

Voir procédure dans le module de Feuil3 (Cible(2).

Cdlt.

Option Explicit
Private Sub cmdSupprimerLignesC_Click()
Dim ws As Worksheet
Dim lastRow As Long, i As Long
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    With ws
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = lastRow To 1 Step -1
            If .Cells(i, "C") = 0 Then Rows(i).Delete
        Next
    End With
    Set ws = Nothing
End Sub

Bonjour,

Merci pour ton aide. Cela fonctionne parfaitement.

Bonne journée !

Rechercher des sujets similaires à "supprimer lignes valeur egale"