Discussion :

[Philippe Tulliez]

Bonjour,
Au vu de la formule que tu as publiée, cela signifie que l'on supprimera les lignes dont la valeur de la colonne D = 0 ET dont la valeur de la colonne D de la ligne qui précède est égale à 0

[EDIT]
Rectification suite à une mauvaise lecture
Au vu de la formule que tu as publiée, cela signifie que l'on supprimera les lignes dont la valeur de la colonne D<0 ET dont la valeur de la colonne D de la ligne qui précède est inférieure à 0

[js777]

Bonjour,
Au vu de la formule que tu as publiée, cela signifie que l'on supprimera les lignes dont la valeur de la colonne D = 0 ET dont la valeur de la colonne D de la ligne qui précède est égale à 0

En fait en utilisant la fonction avec ces paramètres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim rng As Range
Dim FormulaText As String
FormulaText = "=AND(D2<0, D3<0)"
Set rng = Worksheets("SSA3").Range("$A$1:$H$85")
DeleteRowsByAdvancedFilter rng, FormulaText

ça me donne exactement les mêmes résultats que sans la fonction, c'est à dire aucune ligne supprimée quelque soit la valeur de la colonne D,


Sinon, pourquoi dis-tu que ma formule devrait supprimer les lignes de dont la valeur D = 0 et les lignes précédentes alors que je précise D2<0 et D3<0, pour que ça supprime les lignes dont la valeur D = 0 ne faudrait-il pas plutôt mettre D2 =0 et D3 =0 ?

[Philippe Tulliez]

Bonjour,

Sinon, pourquoi dis-tu que ma formule devrait supprimer les lignes de dont la valeur D = 0 et les lignes précédentes alors que je précise D2<0 et D3<0, pour que ça supprime les lignes dont la valeur D = 0 ne faudrait-il pas plutôt mettre D2 =0 et D3 =0 ?

Oui, désolé, je n'avais pas mes lunettes lorsque j'ai lu ta formule et c'est bien <0 et pas = 0
donc ce sont les lignes avec valeurs négatives que tu cherches à supprimer, je pensais que c'était des cellules vides

[Philippe Tulliez]

Bonjour,
Alors j'ai effectué un test similaire à ce que tu souhaites faire.

Le scénario : Supprimer les lignes de la plage A1:M15 dont la valeur de la colonne E est supérieure à 2500 ET dont la valeur de la colonne K de la ligne suivante est égale à 0 soit en VBA =AND(E2>2500,K3=0)
Dans l'illustration ci-dessous, on peut visualiser en colonne O, le résultat que renvoie le test logique pour chaque ligne.
Soit trois lignes qui renvoient VRAI (Celles qui seront supprimées)



Le code VBA qui va permettre de supprimer les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub t()
  Dim rng As Range
  Dim FormulaText As String
  FormulaText = "=AND(E2>2500,K3=0)"
  Set rng = Worksheets("Feuil1").Range("$A$1").CurrentRegion
  DeleteRowsByAdvancedFilter rng, FormulaText
  Set rng = Nothing
End Sub

Et voici ci-dessous, la plage de données après suppression des lignes



Pour info : Dans l'exemple proposé, il y aurait lieu d'ajouter un test supplémentaire car évidemment si la valeur de la colonne E de la dernière ligne était supérieure à 2500, elle aurait été également supprimée puisque la valeur de la colonne K de la ligne suivante est égale à 0