Ranger selon valeurs

[JJ1]

Bonjour à tous,
je voudrais mettre dans des colonnes des nombres en fonction de leurs valeurs.
Pouvez-vous me donner une formule adéquate?
je joins un exemple.
merci et bon AM

 

[SergiO]

Re : Ranger selon valeurs

Bonjour JJ1,

Une solution par VBA:

Sub Rangement()
For Each Cel In Range("M2:U2")
If Cel = 0 Then
Cells(Range("C65536").End(xlUp).Row + 1, 3) = Cel.Offset(-1, 0)
ElseIf Cel < 4 Then
Cells(Range("D65536").End(xlUp).Row + 1, 4) = Cel.Offset(-1, 0)
ElseIf Cel < 9 Then
Cells(Range("E65536").End(xlUp).Row + 1, 5) = Cel.Offset(-1, 0)
ElseIf Cel > 8 Then
Cells(Range("F65536").End(xlUp).Row + 1, 6) = Cel.Offset(-1, 0)
End If
Next Cel
End Sub

@+