Lecture/ ecriture d'un saut de ligne dans une cellule excel

Bonjour à tous,

J'ai une macro qui écrit dans une cellule exel qqch du genre

Code:

---

ma_cellule =nb_items & chr(10) & "PREMIER ITEM" & Chr(10)& "DEUXIEME ITEM " etc ...

---

Tout va bien!
A l'affichage je vois bien un saut de ligne à la place du chr(10)
Mais quand je relis ma cellule avec ce code

Code:

---

TOTO =.Sheets(onglet).Cells(ligne, col)

---

TOTO ne prend que la première ligne, donc ce qui était dns la cellune donc TOTO = nb_items

Comment récupérer le contenu entier de la cellule pour ensuite faire un split avec comme caractère de séparation chr(10) et récupérer chaque ligne ?


Millions de mercis pour vos idées :P
@+
François

Bonjour,
Pour que le retour à la ligne fonctionne, il y a lieu de sélectionner les cellules concernées et ensuite de cliquer sur le bouton "Renvoyer à la ligne auomatiquement". En VBA c'est la propriété WrapText de l'objet Range

Bonjour,

J'ai du mal expliquer mon pb car ta réponse n'a rien à voir avec mon pb.

J'ai une chaine de caractère formatée de la façon suivante

Code:

---

toto ="debut"& chr(10)&"FIN"

---

si j'affecte toto à ma cellule via du code VBA, ma cellule affiche bien
debut
FIN
avec un saut de ligne dans la cellule, parfait!

Mais quand je veux lire le contenu de la cellule via du code VBA du genre

Code:

---

1 2 3 4 5 6 7 8

with worksheet ... ... dim titi as string titi=.Cells(i,j)   end with

---

titi ne vaut alors que "debut"
alors que j'attends
"debut"& chr(10)&"FIN"
:mur::mur:

Que dois je faire ?

@++

Bonsoir

Pour information, je viens de faire les codes suivants :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub sdgf() Range("A1").Value = "debut" & Chr(10) & "FIN" End Sub   Sub sqfsfd() Dim titi As String   titi = Cells(1, 1)   Debug.Print titi     End Sub

---

Et la fenêtre Exécution affiche bien debut FIN sur deux lignes.

Je ne sais pas si cela aidera un tant soit peu.

Pierre Dumas