XL 2016 Macro supprimer des lignes dans une colonne contient une valeur négative

[no972]

Bonjour,

Je souhaite faire une macro qui supprime les lignes dont les montants d'une colonne (I pour moi) contient des montants négatifs.

En vous remerciant.

 

[job75]

Bonsoir no972, bienvenue sur XLD,

Colonne I comme Isidore :

Sub SupprimeNombresNegatifs()
On Error Resume Next 'si aucune SpecialCell
With [I:I].SpecialCells(xlCellTypeConstants, 1)
    .Replace "-*", "", xlWhole
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub

A+

 

[no972]

Merci pour votre réponse, mais cela ne fonctionne pas

je dois surement mal faire... le problème cela enlève tous les montants négatifs de toutes les colonnes ...

 

[job75]

je dois surement mal faire... le problème cela enlève tous les montants négatifs de toutes les colonnes ...

Qu'avez-vous donc fait ? Avec With [I:I] seule la colonne I est traitée, c'est évident...

 

[no972]

Super cela fonctionne, j'ai créé un autre module au lieu de faire à la suite...

Merci