Rangement et classement.

[JJ1]

Bonjour,

Tout est écrit dans le titre, je souhaiterais ranger mes nombres dans les tranches définies (j'en ai mis deux en exemple) mais que les nombres soient classés par occurence (j'y arrive mais par un tas de colonnes intermédiaires, je voudrais directement O12:T16 à la place de O2:T6

je joins un exemple, si vous pouvez m'aider pour ces deux tranches.
merci et bon lundi.

 

[Dranreb]

Re : Rangement et classement.

Bonjour.
Un peu de VBA :

Sub test()
Éclater [O2:Z6], [A2:N6]
End Sub

Sub Éclater(ByVal Cbl As Range, ByVal Src As Range)
Dim Te() As Variant, Ce As Long, L As Long, _
    Ts() As Variant, Cs As Long, X As Long
Te = Src.Value
ReDim Ts(1 To UBound(Te), 1 To Cbl.Columns.Count)
For L = 1 To UBound(Te, 1): Cs = 0
   For Ce = 1 To UBound(Te, 2)
      If IsEmpty(Te(L, Ce)) Then Exit For
      X = ((Te(L, Ce) - 1) \ 10) * 6: If Cs < X Then Cs = X
      Cs = Cs + 1: Ts(L, Cs) = Te(L, Ce): Next Ce, L
Cbl.Value = Ts
End Sub