VBA - Suppression lignes

[Nicole05]

Bonjour à tous,

Dans le fichier en annexe, j'aimerais, lorsque les valeurs en colonne C sont égales à 0, supprimer les lignes respectives.

J'avais essayé le code suivant, mais le problème et qu'il supprime également les lignes lorsque la colonne C contient #N/A, alors que je souhaite conserver ces lignes. Ce code est aussi très lent car il y a beaucoup de données dans le fichier que j'utilise...

'Sheets("Feuil1").Range("C4").Select
'Do While ActiveCell <> ""
' If (IsError(ActiveCell) = False) And (ActiveCell = 0) Then
' ActiveCell.EntireRow.Delete
' Else
' ActiveCell.Offset(1, 0).Select
' End If
'Loop

Voici donc le lien :
Cijoint.fr - Service gratuit de dépôt de fichiers


Merci d'avance pour votre aide!
Nicole 05

 

[kjin]

Re : VBA - Suppression lignes

Bonjour,
Fichier "xlsx", donc 2007 !
En attendant un "xls"...
A+
kjin

 

[Nicole05]

Re : VBA - Suppression lignes

Ah oui désolée j'oublie toujours...

Voici le nouveau lien
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[kjin]

Re : VBA - Suppression lignes

Re,
Attention c'est sans préavis !
A associer à un bouton dans la feuille

Sub Nicole()
    Range("A3").AutoFilter Field:=3, Criteria1:="0"
    With ActiveSheet.AutoFilter.Range
        Set rngFilter = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
        Application.DisplayAlerts = False
        rngFilter.Delete
        Application.DisplayAlerts = True
    End With
    ActiveSheet.AutoFilterMode = False
    
End Sub

A+
kjin

 

[Nicole05]

Re : VBA - Suppression lignes

Génial, merci beaucoup c'est exactement ce que je recherchais !

Bon dimanche
A+

Nicole05