Classer et regrouper des données

[gerzouille]

Bonjour,

Je souhaiterais regrouper sous un critère les différentes valeurs qui le composent tout en n'en faisant qu'une cellule.

Pour être plus imagé je joint le fichier avec le résultat fait à la main.

Je n'arrive pas à cela avec un croisé dynamique.

Merci de votre aide

 

[job75]

Re : Classer et regrouper des données

Re,

Allez pour la route, avec des codes numérotés ou pas en colonne E :

Application.ScreenUpdating = False
cc = Columns.Count
Range(Columns(7), Columns(cc)).Delete 'RAZ
[1:2].Insert '2 lignes auxiliaires pour le tri
For i = 0 To UBound(a)
  If i + 7 > cc Then MsgBox "Feuille insuffisante...": Exit For
  x = a(i)
  For j = 1 To Len(x)
    If IsNumeric(Mid(x, j)) Then Exit For
  Next
  [G1].Offset(, i) = Left(x, j - 1)
  [G2].Offset(, i) = Mid(x, j)
  [G3].Offset(, i) = x
  s = Split(Mid(b(i), 2), Chr(1))
  [G4].Offset(, i).Resize(UBound(s) + 1) = Application.Transpose(s)
Next
With Range(Columns(7), Columns(cc))
  .Sort [G1], 1, [G2], , 1, Orientation:=xlLeftToRight 'tri sur 2 lignes
  .AutoFit 'ajustement automatique des colonnes
End With
[1:2].Delete

Evidemment c'est moins rapide.

Fichier (4).

A+