Macro pour modifier les cellules inferieures à 5000

[martinigi]

Bonjour,
Encors un peut débutant en macro, Je vien vous soliciter afin d'avoir un code: Je souhaiterai modifier toutes les cellules de la colonne N avec une valeur inférieur à 5000 pour leurs mettre une valeur de "2".
Merci de votre aide

 

[vgendron]

bonjour

voir proposition ci dessous

Sub remplacer()
Dim tablo() As Variant

fin = Range("N" & Rows.Count).End(xlUp).Row 'récupère la dernière ligne de la colonne N
tablo = Range("N1:N" & fin).Value 'on met toutes les valeurs de la colonne N dans un tablo

For i = LBound(tablo) To UBound(tablo) 'pour chaque élément du tablo
    If tablo(i, 1) < 5000 Then tablo(i, 1) = 2 'si <5000 alors, on le remplace par 2
Next i

Range("N1").Resize(UBound(tablo)) = tablo ' on recopie le tablo dans la  colonne N
End Sub