[RESOLU]Compléter tableau avec valeurs séparées par des virgules

[kayl83]

Bonjour,

je cherche à compléter un tableau à partir d'un autre. Mais l'une des colonnes du tableau d'origine comprend parfois des valeurs séparés par une virgule.

Un petit fichier joint pour explication.

Merci d'avance pour votre aide.

 

[job75]

Re : Compléter tableau avec valeurs séparées par des virgules

Bonjour kayl83,

Voir le fichier joint et cette macro dans Module1 (Alt+F11) :

Sub NouveauTableau()
Dim lig&, i&, txt1$, txt2$, s, ub%, j%
Application.ScreenUpdating = False
lig = 2 '1ère ligne du nouveau tableau
Range(Cells(lig, "G"), Cells(Rows.Count, "J")).ClearContents
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
  txt1 = Application.Trim(Cells(i, "D")) 'SUPPRESPACE par sécurité
  txt2 = Replace(Application.Trim(Cells(i, "E")), ", ", ",") 'sécurité
  txt2 = txt1 & IIf(txt1 = "" Or txt2 = "", "", ",") & txt2
  s = Split(txt2, ",")
  ub = UBound(s)
  For j = 0 To Application.Max(ub, 0)
    Cells(lig, "G").Resize(, 3) = Cells(i, "A").Resize(, 3).Value
    If ub >= 0 Then Cells(lig, "J") = s(j)
    lig = lig + 1
  Next
Next
End Sub

A+

 

[kayl83]

Re : Compléter tableau avec valeurs séparées par des virgules

Merci beaucoup c'est exactement çà.