Tri codes (bis)

[simvc]

Bonjour à tous,

Quelqu'un pourrait-il m'aider à résoudre le problème que j'évoque dans le fichier attaché?

Merci d'avance,

Simvc

 

[BOISGONTIER]

Re : Tri codes (bis)

Bonjour,


Voir PJ

JB
Formation Excel VBA JB

 

[simvc]

Re : Tri codes (bis)

Un tout grand merci, mais je me suis légèrement !!! trompé avec ma proposition, c'est maintenant plus détailléavec le fichier attaché, j'espère que c'est possible. Merci d'avance en tout cas, c'était déjà très bien.

 

[BOISGONTIER]

Re : Tri codes (bis)

Sub essai()
  ligne = 2
  For Each c In Range("A2:A" & [A65000].End(xlUp).Row)
    Set f2 = Sheets(2)
    a = Split(c.Offset(0, 4), ",")
    If UBound(a) > -1 Then
      For i = LBound(a) To UBound(a)
       f2.Cells(ligne, 1) = c
       f2.Cells(ligne, 2) = c.Offset(0, 1)
       f2.Cells(ligne, 3) = c.Offset(0, 2)
       f2.Cells(ligne, 4) = c.Offset(0, 3) & Trim(a(i))
       ligne = ligne + 1
      Next i
    Else
       f2.Cells(ligne, 1) = c
       f2.Cells(ligne, 2) = c.Offset(0, 1)
       f2.Cells(ligne, 3) = c.Offset(0, 2)
       f2.Cells(ligne, 4) = c.Offset(0, 3)
       ligne = ligne + 1
    End If
  Next c
End Sub

JB

 

[simvc]

Re : Tri codes (bis)

Bonjour un super merci, maintenant que j'ai ce résultat, serait-il possible de peaufiner cela (voir fichier attaché), Merci

 

[simvc]

Re : Tri codes (bis)

Et si c'est possible comment cobiner avec le VBA d'hier, je n'aurais plus qu'un seul script et ce serait parfait.