Supprimer ligne en fonction d'une valeur 0

[ufernet]

Bonjour le forum,

Je souhaite supprimer les lignes d'un tableau si la valeur 0 est présente dans une cellule de la ligne et cela au moyen d'une macro. Si c'est possible de le faire en lieu et place des cellules existantes cela m'irait bien si non sur une autre feuille cela irait aussi. Dans mes essais infructueux je n'arrive pas à sélectionner les lignes avec cette valeur 0 mais je ne suis pas très doué...

Merci d'avance

 

[JHA]

Re : Supprimer ligne en fonction d'une valeur 0

Bonjour à tous,

Une façon très simple et rapide
Filtrer la colonne "D" et choisir 0
Sélectionner les lignes filtrées
Supprimer les lignes
Enlever le filtre

JHA

 

[ufernet]

Re : Supprimer ligne en fonction d'une valeur 0

Bonjour JHA,

Merci de ta solution mais je dois intervenir manuellement pour supprimer les lignes et comme ce sera quelqu'un d'autre qui le fera je préférerai que cela passe par une macro qui trouve les bonnes lignes puis les supprime. Les données une fois en place sont alors utilisées par d'autres tableaux pour faire toutes sortes de listes et d'impression.

 

[JHA]

Re : Supprimer ligne en fonction d'une valeur 0

Re,

Avec l'éditeur de macro
Essai en feuille 3

JHA

 

[Legolas]

Re : Supprimer ligne en fonction d'une valeur 0

Bonjour,

Peut être en testant avec ce code :

Sub Macro3()

Dim i As Integer
i = 2

While Sheets("Avant").Cells(i, 1) <> ""
    If Sheets("Avant").Cells(i, 4) = "0" Then
        Cells(i, 4).EntireRow.Delete
    Else
        i = i + 1
    End If
Wend
End Sub

A+

 

[ufernet]

Re : Supprimer ligne en fonction d'une valeur 0

Bonjour Legolas,

Les deux solutions fonctionnent parfaitement. J'ai choisi celle de Legolas car elle elle fonctionne quelle que soit le nombre de ligne.

Merci à tous les deux