Suprimer les lignes qui contienne une valeur 0

[bloomby]

Bonjour à tous,

Dans une feuille Excel, j'ai des données qui s'actualisent à l'aide d'une macro
j'aimerais que lorsqu'une des lignes de n'importe quelle colonne contient la valeur 0

Résultat: La ligne est supprimée (pas seulement les valeurs, ma la ligne au complet)

l'idéal serait que cette macro s'active automatiquement lorsque voie un 0
sans à avoir a actionner la macro à l'aide d'un bouton

merci

 

[CBernardT]

Re : Suprimer les lignes qui contienne une valeur 0

Bonjour bloomby,

Un exemple de macro évènementielle :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Boolean, Derlig As Integer, i As Integer
If B Then Exit Sub ' Eviter les boucles après chaque changement
B = True
Derlig = UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = Derlig To 2 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(i, 256)), 0) > 0 Then
Cells(i, 1).EntireRow.Delete
End If
Next i
B = False
End Sub

Cordialement

Bernard

 

[job75]

Re : Suprimer les lignes qui contienne une valeur 0

Bonsoir Bloomby, Bernard,

Ici, deux macros évènementielles.

Pour être logique, il faut supprimer aussi les formules qui renvoient une valeur d'erreur (provoquée par la suppression d'une référence).

Private Sub Worksheet_Calculate()
Call SuppLigne
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Call SuppLigne
End Sub

Sub SuppLigne()
Dim cel As Range
Application.EnableEvents = False
On Error Resume Next
1 Set cel = Cells.Find("0", LookIn:=xlValues, LookAt:=xlWhole)
If Not cel Is Nothing Then
cel.EntireRow.Delete 'valeurs 0
Cells.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete 'formules renvoyant une valeur d'erreur
GoTo 1
End If
Application.EnableEvents = True
End Sub

A+

 

[bloomby]

Re : Suprimer les lignes qui contienne une valeur 0

Bonjour Job75 encore une fois la perfection 😀 merci