Supprimer une ligne si la somme de deux cellule = 0

[vince_dub]

Bonjour à tous,

Je débute dans les macros excel et après avoir récupéré les valeurs que je voulais d'une base de données, j'aimerais pouvoir supprimer les lignes dont mes cellules H et I sont égales à 0.
Si H est 0 et I est > 0 ou l'inverse, je ne veux pas les supprimer.
Comment puis-je faire cela dans une macro?
Merci d'avance pour votre aide

Vincent

 

[Staple1600]

Bonsoir le fil, le forum

Une possibilité
Utilises le filtre automatique (tout en laissant tourner l'enregistreur de macros)

 

[Staple1600]

Re

Finalement on peut aussi utiliser le Filtre avancé
Voir l'exemple ci-dessous (à tester sur une feuille vierge)

Sub TestOk()
Dim pf As Range: Cells.Clear
'macro pour créer les données de test
datas
'à supprimer par la suite
MsgBox "Supprimer les lignes =0 en colonne H et I?", vbQuestion
Range("O2").FormulaR1C1 = "=AND(RC[-7]=0,RC[-6]=0)"
Intersect(Columns("H:I"), ActiveSheet.UsedRange.EntireRow).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("O1:O2"), Unique:=False
Set pf = [_FilterDataBase]
If WorksheetFunction.Subtotal(3, pf.Offset(1).Resize(pf.Rows.Count - 1, 1)) > 0 Then
    pf.Offset(1).Resize(pf.Rows.Count - 1).EntireRow.Delete
End If
ActiveSheet.ShowAllData: Range("O1:O2") = ""
End Sub
Private Sub datas()
Application.ScreenUpdating = False
[A1] = "ITEM1": [A1].AutoFill Range("A1:N1"), 0: Range("A2:N1000") = "=mod(row(),2)"
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
Application.ScreenUpdating = True
End Sub

 

[vince_dub]

Re


Merci beaucoup