XL 2013 Suppression d'une ligne selon la valeur d'une cellule

[bertilemeusien]

Bonjour,

Je débute en VBA mais je ne demande qu'à apprendre!
Je voudrais supprimer les lignes d'une plage de cellules dont 1 cellule st égale à 0
Merci de votre aide

 

[Phil69970]

Bonjour @bertilemeusien

Avec un fichier c'est plus clair .....😉

 

[sylvanu]

Bonsoir bertilemeusien,
Un essai en PJ avec :

Sub SupLignes()
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row                          ' Dernière ligne colonne A
    For L = 1 To DL                                             ' Pour toutes les lignes
        If Application.CountIf(Rows(L & ":" & L), 0) > 0 Then   ' S'il y a un 0 dans une des cellules
            Rows(L & ":" & L).Delete Shift:=xlUp                ' Supprimer la ligne
        End If
    Next L
End Sub

Le second bouton ne sert à rien sinon à copier le tableau pour faire les tests.

 

[bertilemeusien]

merci
effectivement avec un fichier c mieux!
La macro doit fonctionner de la cellule a49 à c89
Merci pour votre aide

 

[Phil69970]

Re

De ce que j'ai compris c'est à dire :
Si les cellules Axx ET Cxx sont à 0 sur une même ligne alors ont supprime la ligne

Merci de ton retour

 

[bertilemeusien]

merci cela me sert beaucoup!

 

[job75]

Bonjour à tous,

Une solution classique, très rapide sur de grands tableaux :

Sub Epurer()
Application.ScreenUpdating = False
With [A49:C89] 'à adapter
    .Columns(4).Insert xlToRight 'insère une colonne auxiliaire
    .Columns(4) = "=1/AND(RC[-3]<>0,RC[-1]<>0)" 'critère
    .Columns(4) = .Columns(4).Value 'suppri>me les formules
    .Resize(, 4).Sort .Columns(4), xlAscending, Header:=xlNo 'tri pour regrouper et accélérer
    On Error Resume Next 'si aucune SpecialCell
    Intersect(.Columns(4).SpecialCells(xlCellTypeConstants, 16).EntireRow, .Resize(, 4)).Delete xlUp
    .Columns(4).Delete xlToLeft 'supprime la colonne auxiliaire
End With
End Sub

A voir s'il faut mettre AND ou OR dans la formule...

A+

 

[Phil69970]

Bonjour Gérard

La plage de fonctionnement fait seulement 40 lignes d’après le demandeur

La macro doit fonctionner de la cellule a49 à c89

 

[job75]

Bien sûr mais peut-être que tout à l'heure il voudra essayer sur 1 000 000 de lignes 🙄

 

[job75]

J'ai testé en recopiant le tableau A49:C89 sur 820 000 lignes.

La macro du post #7 s'exécute chez moi en 6,6 secondes.

 

[bertilemeusien]

effectivement cela risque d augmenter!
Merci à vous tous