Comment filtrer une colonne de nombres ?

Bonjour,

J'ai une colonne de nombres entiers relatifs pouvant varier de -1000 à +5000.

Je souhaite ajouter sur cette colonne un filtre ou quelque chose qui permettrait de remplacer toutes les valeurs inférieurs ou égal à 20 par 0.

exemple :

colonne d'origine:

20

59

-1

42

18

0

78

résultat recherché:

0

59

0

42

0

0

78

Merci pour votre aide

bonjour,

tri croissant, saisie le premier zéro et glisse jusqu’à la cellule dont le chiffre et 21.

Cdt

gestionnaire_rh a écrit :

bonjour,

tri croissant, saisie le premier zéro et glisse jusqu’à la cellule dont le chiffre et 21.

Cdt

Merci pour votre réponse mais je ne l'ais pas comprise.

bonjour,

ci joint un fichier exemple avec formule.

Cdt

gestionnaire_rh

gestionnaire_rh a écrit :

bonjour,

ci joint un fichier exemple avec formule.

Cdt

gestionnaire_rh

Vous êtes génial merci beaucoup

Bonsoir,

en VBA, données en colonne "A" à régler

Sub Remplace() 'plage à régler
Dim Lg&
    Application.ScreenUpdating = False
    Lg = Range("a" & Rows.Count).End(xlUp).Row
    Range("k2") = "=a2<=20"         'critère filtre
    Range("a1:a" & Lg).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Range("k1:k2"), Unique:=False
    Range("k2").ClearContents
    On Error Resume Next
    Range("a2:a" & Lg).SpecialCells(xlCellTypeVisible) = 0
    ActiveSheet.ShowAllData
End Sub

Amicalement

Claude

dubois a écrit :

Bonsoir,

en VBA, données en colonne "A" à régler

Sub Remplace() 'plage à régler
Dim Lg&
    Application.ScreenUpdating = False
    Lg = Range("a" & Rows.Count).End(xlUp).Row
    Range("k2") = "=a2<=20"         'critère filtre
    Range("a1:a" & Lg).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Range("k1:k2"), Unique:=False
    Range("k2").ClearContents
    On Error Resume Next
    Range("a2:a" & Lg).SpecialCells(xlCellTypeVisible) = 0
    ActiveSheet.ShowAllData
End Sub

Amicalement

Claude

Merci Claude