Ajouter nombre fixe à une cellule suivant interval

Bonjour

Est il possible d'ajouter un nombre fixe à une cellule sur colonne A suivant sa valeur, c'est à dire:

Si valeur cellule compris entre 0 à 999 alors ajouter 10.000 à sa valeur

Si valeur cellule compris entre 1000 à 1999 alors ajouter 20.000 à sa valeur

Si valeur cellule compris entre 2000 à 2999 alors ajouter 10.000 à sa valeur

Si valeur cellule compris entre 3000 à 3999 alors ajouter 20.000 à sa valeur

Si valeur cellule compris entre 4000 à 4999 alors ajouter 10.000 à sa valeur

Si valeur cellule compris entre 5000 à 5999 alors ajouter 20.000 à sa valeur

Cdrt

Bonour ploom,

Voilà une macro qui devrait faire l'affaire!

 Sub AjoutFix()

For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Select Case ActiveSheet.Cells(i, 1)
        Case Is < 1000
            ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(i, 1) + 10000
        Case Is < 2000
            ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(i, 1) + 20000
        Case Is < 3000
            ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(i, 1) + 10000
        Case Is < 4000
            ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(i, 1) + 20000
        Case Is < 5000
            ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(i, 1) + 10000
        Case Is < 6000
            ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(i, 1) + 20000
        Case Else
    End Select
Next i

End Sub 

Bon courage

Re,

C ok Reuk, ça marche très bien

Merci beaucoup

De rien!

Bonne continuation!