Discussion :

[zeralium]

Bonjour,

J'utilise le code suivant pour separer les expressions d'une meme cellule contenant des retours ligne et les mettres dans des cellules differente:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim a As Variant
a = Split(Cells(1, 1).Value, Chr(10))
Cells(1, 3) = a(0)
Cells(1, 4) = a(1)
Cells(1, 5) = a(2)
Cells(1, 6) = a(3

J'ai 2 soucis que je n'arrive pas résoudre:
1 - Comment detecter le nombre retour ligne dans cette cellule "source"???
2 - Je souhaiterai conserver la mise en forme de chaque expressions, possible???

Ci-dessous un exemple de ce que je souhaiterai


D'avance merci