Separations en plusieurs ligne

[anna]

Bonjour le Forum
j ai aujourd hui une nouvelle enigme:
alors voila j ai deux colonne 'A'= reference et 'B' ou ils ya indique plusieur titre de fichiers separer pas une virgule pour la meme reference A.
je souhaiterai separer les donnees de chaque colonne B de maniere a avoir autant de ligne pour une reference que de titree fichier dans B
un exemple est joint pour etres plus claire.
j'avoue que la ca commence a depacer mes nouvelle connaisance VBA
NB:c une macro que je veut faire.
Merci bcq d'avance.
Anna [file name=Separation_lignes.zip size=2099]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Separation_lignes.zip[/file]

 

[Hervé]

Bonjour anna, re le forum



une proposition en pièce jointe :

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim tablo2 As Variant
Dim i, j, n As Byte

tablo = Range('a2:b4')

For i = 1 To UBound(tablo)
    tablo2 = Split(tablo(i, 2), ',')
    With Sheets('feuil2')
        For j = 0 To UBound(tablo2)
            n = n + 1
            .Cells(n, 1) = tablo(i, 1)
            .Cells(n, 2) = tablo2(j)
        Next j
    End With
Next i
End Sub

Je renvoi les données vers la feuille 2, à toi d'adapter à ton cas

Salut

[file name=Separation.zip size=8365]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Separation.zip[/file]

 

[anna]

Salut mon sauveur
Re le forum
merci bcq je vais essaier desuite et je te tiens au courant
Anna

 

[anna]

Re
apres l'avoir bien adapter ca marche impecablement
vraiment un grannnnnnnnd merci a tout ceux qui font de leur mieux pour nous aider sur ce Forum vous etes les mailleur (speciale dedicace à Hervé
Anna