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

job75

XLDnaute Barbatruc

• 7 Juin 2019

• #2

Bonsoir no972, bienvenue sur XLD,

Colonne I comme Isidore :

VB:

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+

 

Vote positif 0 Vote négatif

N

no972

XLDnaute Nouveau

• 11 Juin 2019

• #3

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 ...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Juin 2019

• #4

no972 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

N

no972

XLDnaute Nouveau

• 11 Juin 2019

• #5

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

Merci 🙂

 

Vote positif 0 Vote négatif