Supprimer ligne contenant un zero

[kod86580]

Bonjour,

Je tiens tous d'abord a remercier les personnes qui souhaiterons m'aider

Voici mon soucis

Dans le document ci-joint, je souhaite que dans l'onglet "besoin", toute les lignes dans la colonne "d" contenant un zéro soit supprimer.

Merci par avance de votre aide

Nicolas

 

[Modeste]

Re : Supprimer ligne contenant un zero

Bonjour kod86580 ... et bienvenue à Nicolas

Pas grand chose dans ta feuille "besoin" ... j'imagine donc que ce bout de code sera à intégrer dans une portion existante de ton code?? Pas eu le courage, pour autant de vérifier si, au moment de "garnir" la feuille, on ne pourrait pas s'abstenir d'y renseigner les lignes avec un 0 en colonne D.
Attention donc à ne pas "greffer" des bouts de procédures sur celles existantes (jusqu'à créer une usine à gaz 😱)

Sub supprZéros()
Application.ScreenUpdating = False
With Sheets("Besoin")
    For Lig = .Cells(.Rows.Count, 4).End(xlUp).Row To 2 Step -1
        If .Cells(Lig, 4).Value = 0 Then .Rows(Lig).Delete
    Next Lig
End With
Application.ScreenUpdating = True
End Sub

 

[kod86580]

Re : Supprimer ligne contenant un zero

Modeste,

Cela fonctionne a merveille.

Action réaction 🙂

Merci pour tous

 

[Staple1600]

Re : Supprimer ligne contenant un zero

Bonsoir à tous


Histoire de varier les plaisirs et pour le plaisir de croiser Modeste 😉
Un version sans boucle ( à adapter si il y a quelque chose dans la colonne E 😉 )

Sub supprZérosBis()
Application.ScreenUpdating = False
Columns(4).SpecialCells(2, 1).Offset(, 1) = "=IF(RC[-1]=0,""$$"",0)"
Columns(5).SpecialCells(-4123, 2).EntireRow.Delete
Columns(5).Delete
Application.ScreenUpdating = True
End Sub

 

[Modeste]

Re : Supprimer ligne contenant un zero

pour le plaisir de croiser Modeste 😉

Salut toi-même! 😀

Pas de variable à déclarer, donc pas de Dim 🙄
Ceci dit, si pas de 0 en colonne D, va falloir gérer les erreurs, mais je ne déteste pas la proposition (dit-il, de son air de celui à qui on aurait demandé son avis ... mais au moins, si kod86580, satisfait et repus ne repassait pas par ici, tu n'auras pas l'impression d'avoir craché contre le vent 😀)