donnee dans une cellule

[fimo41]

Bonjour à tous

Petit probleme sur un classeur,

j'ai des cellules avec plusieurs ligne comment mettre ses lignes dans plusieurs cellule ??


Voir exemple


Merci et bon 1 mai !!!!!

Rodolphe

 

[Staple1600]

Re : donnee dans une cellule

Bonjour à tous


Si j'ai bien compris
(en modifiant un peu les données avant l’exécution de la macro
1)suppression des cellules fusionnées et vide en colonnes A et B)
Testes cette macro

Sub a()
Dim t, x, y, i&, l&
l = 1
t = Range("A1:B8").Value
For i = LBound(t) To UBound(t)
x = Split(t(i, 1), Chr(10))
y = Split(t(i, 2), Chr(10))
Cells(l, 3).Resize(UBound(x) + 1) = Application.Transpose(x)
Cells(l, 4).Resize(UBound(y) + 1) = Application.Transpose(y)
Erase x: Erase y
l = Cells(Rows.Count, 3).End(3).Row + 1
Next
End Sub