Rangement vertical à partir de 2 colonnes

[JJ1]

Bonsoir à tous,
Je souhaiterais une formule qui range les nombres de la colonne J par numéro, la difficulté venant du fait qu'ils ne sont pas ordonnés en colonne D.
Je joins un exemple.
Je vous remercie.
Bonne soirée

 

[skoobi]

Re : Rangement vertical à partir de 2 colonnes

Bonjour,

en attendant la proposition par formule, si par macro ça t'intéresse aussi:

Sub test()
Dim Tablo(), Elmnt As Range, Nb1 As Long, Nb2 As Long
Set MonDico = CreateObject("Scripting.Dictionary")
Nb1 = Application.Count(Range("D5", [D65536].End(xlUp)))
Nb2 = Application.Max(Range("D5", [D65536].End(xlUp)))
ReDim Tablo(1 To Nb1 + 1, 1 To Nb2)
For i = 1 To Nb2
  Tablo(1, i) = i
Next
For Each Elmnt In Range("D5", [D65536].End(xlUp))
  If Not MonDico.Exists(Elmnt.Value) Then
    MonDico(Elmnt.Value) = 1
  Else: MonDico(Elmnt.Value) = MonDico(Elmnt.Value) + 1
  End If
  Tablo(MonDico(Elmnt.Value) + 1, Elmnt.Value) = Elmnt.Offset(0, 6).Value
Next
Range(Cells(1, 35), Cells(Nb1, 35 - 1 + Nb2)).Value = Tablo
End Sub

Il faut enlever les "etc" à la fin de la liste car les textes ne sont pas gérés.

 

[BOISGONTIER]

Re : Rangement vertical à partir de 2 colonnes

Bonsoir,

=SI(ESTNUM(PETITE.VALEUR(SI(Num=AI1;LIGNE(Val));LIGNE()-1)-4);INDEX(Val;PETITE.VALEUR(SI(Num=AI1;LIGNE(Val));LIGNE()-1)-4);"")

ou

Si champs déplacés:

=SI(ESTNUM(PETITE.VALEUR(SI(Num=AI1;EQUIV(Val;Val;0));LIGNE(INDIRECT("1:"&LIGNES(Num)))));
INDEX(Val;PETITE.VALEUR(SI(Num=AI1;EQUIV(Val;Val;0));LIGNE(INDIRECT("1:"&LIGNES(Num)))));"")

JB

 

[job75]

Re : Rangement vertical à partir de 2 colonnes

Bonsoir à tous,

En utilisant la colonne F comme intermédiaire.

A+

Edit : remplacé SOMMEPROD par RECHERCHEV

 

[JJ1]

Re : Rangement vertical à partir de 2 colonnes

Bonjour Skoobi, Boisgontier, Job75, le forum
Merci pour la macro et vos formules, c'est pas simple !
Je vais appliquer .
Merci et bon samedi