remplacement

[Rossi]

Bonjour,

Je recherche à remplacer dans un tableau les nombres inférieurs à la valeur 0 par la valeur 0 et les nombres supérieurs à la valeur 100 par la valeur 100.

Il y a-t-il une solution sans ou avec une macro?

Merci d'avance,

 

[SergiO]

Re : remplacement

Bonjour Rossi,

Une solution par VBA (Range à adapter à ton cas)

Sub remplacer()
Dim cellule As Range
For Each cellule In Range("A1:D20")
If cellule <> "" Then

If cellule > 99 Then
cellule = 100

Else

cellule = 0

End If
End If

Next

End Sub

@+

 

[Rossi]

Re : remplacement

Merci beaucoup,
cela semble marcher avec modif

Bonjour Rossi,

Une solution par VBA (Range à adapter à ton cas)

Sub remplacer()
Dim cellule As Range
For Each cellule In Range("A1:D20")
If cellule <> "" Then

If cellule > 99 Then
cellule = 100

Else

cellule = 0

End If
End If

Next

End Sub

@+