Réorganisation tableau excel

[Renaud]

Bonjour,

Voila mon problème:

J'ai dans la colonne A (de la ligne 2 à 706) une liste de pays et de ville. Dans chaque cellule de la colonne B, j'ai la liste de numéros, séparé par une virule.

J'aimerais qu'il ne reste plus qu'un seul numéro dans chaque cellule de la colonne B et que les différentes valeurs de chaque cellule B soient réparties sur plusieurs lignes, avec à chaque fois dans la colonne A la valeur correspondante.

EX
A56 New Zealand-Mobile-Others B56 6420,6421,6422,6423,6424,6426,6428,6429

Devient
A56 New Zealand-Mobile-Others
B56 6420

A57 New Zealand-Mobile-Others
B57 6421

A58 New Zealand-Mobile-Others
B58 6422

Etc

Je vous ai mis une partie du tableau zippé pour mieux comprendre


Merci

Renaud

 

[Hervé]

Bonjour Renaud

on à pas vu ta pièce jointe.

Peut etre une piste a travers cette macro.

Sub Bouton1_QuandClic()
Dim c As Range
Dim ligne As Integer
Dim tablo As Variant
Dim i As Byte



For Each c In Range('a2:a' & Range('a65536').End(xlUp).Row)
ligne = ligne + 1
        tablo = Split(c.Offset(0, 1), ',') 'imcompatible excel 97
        Cells(ligne, 4) = c
        Cells(ligne, 5) = tablo(0)
        For i = 1 To UBound(tablo)
                ligne = ligne + 1
                Cells(ligne, 4) = c
                Cells(ligne, 5) = tablo(i)
        Next i
Next c
End Sub

salut

 

[Renaud]

Oups, j'ai en effet oublié le fichier joint...

En tous cas, merci beaucoup, cette macro est parfaite.


Renaud