VBA pour excel : suppression de ligne conditionnée

bonjour à tous

je viens en newbie chercher de l'aide sur un problème que je rencontre sur une macro VBA pour Excel

voici ce que je cherche à faire : j'ai une colonne comprenant une somme de plusieurs cellules. Je souhaite supprimer les lignes dont le résultat de la somme est égal à 0.

pour cela, j'ai utilisé le code suivant :

Sub Macro2()
Dim z
For z = 6 To 50
If Range("B" & z) < 1 Then
Rows(z).EntireRow.Delete
End If
Next z
End Sub

je n'obtiens pas le résultat voulu. quelqu'un aurait-il une piste ?

j'espère avoir été asse clair dans mes explications.

Merci d'avance,

bonobob

bonjour
Il existe de nombreuses méthodes pour supprimer des lignes dont la valeur d'une colonnne =0
En voici une
A adapter bien évidemment
Sub SupprimerValeur0()
Dim rcel As Range
Range("A1").Select
Selection.CurrentRegion.Select
For Each rcel In Selection
If rcel.Value = 0 Then
rcel.EntireRow.Delete
End If
Next rcel
End Sub

bonjour éric
merci de ta réponse.
cependant je n'arrive pas au résultat attendu. j'ai essayé d'arranger ta solution avec mon fichier. dans les cellules de la colonne A, je fais une somme de B+C+D.

Sub SupprimerValeur0()
Dim rcel As Range
Range("A1:A10").Select
Selection.CurrentRegion.Select
For Each rcel In Selection
If rcel.Value = 0 Then
rcel.EntireRow.Delete
End If
Next rcel
End Sub

je n'arrive pas à supprimer uniquement les lignes dont le résultat en A est égal à 0. vois-tu où je fais une erreur?

Bonjour,

j'ai trouvé la solution suivante qui fonctionne parfaitement

' Suppression des lignes vides
Dim I As Long
Dim Plage As Range
Set Plage = Range("plage des cellules concernées - CaRi:CaRy")
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = 0 Then
Plage.Cells(I).EntireRow.Delete
End If
Next


ce post est donc résolu !

++

bonobob