Séparer une cellule Excel en plusieurs

Bonjour,

J'ai un soucis parce que j'ai dans une cellule Excel des renvois à la ligne qui ont été fait avec le ATL+Entrée et j'aimerais les séparer en colonne (autant de colonne que le nombre de renvois à la ligne).
Exemple :

Madame C. Dupont
15, Ch. des Pins
75410 Paris
(le tout est dans une cellule grâce au renvoi à la ligne)

Et j'aimerais que le contenu soit séparer en 3 colonnes : le nom, l'adresse et la localité.
Mais le nombre de colonnes est variable en fonction de l'enregistrement.

J'espère que je suis claire.
Merci d'avance pour votre aide !:oops:

Pour relire les valeurs contenues dans ta cellule, place-toi sur la cellule en question et lance ça :

Code:

---

1 2 3 4 5

LaVal = ActiveCell.Value LeTableau = Split(LaVal, Chr(10)) For i = 0 To UBound(LeTableau) MsgBox LeTableau(i) Next

---

Tu sauras te débrouiller avec ça ?

PS - Chr(10) (ctrl + j) sert de retour à la ligne dans une cellule Excel
pour le vérifier :
LaVal = ActiveCell.Value

Code:

---

1 2 3

For i = 1 To Len(LaVal) MsgBox Asc(Mid(LaVal, i, 1)) Next

---

Je ne vois pas trop ..

c'est sensé transformé ma cellule unique en plusieurs colonnes ??? :oops:

Non mais ainsi tu as chaque ligne
J'imagine que tu veux mettre tes données sur plusieurs colonnes mais sur la même ligne. Je reprends mon code :

Code:

---

1 2 3 4 5 6

LaVal = ActiveCell.Value NoLigne = Activecell.row ' tu peux lui donner directement son N° si tu ne sélectionnes pas la cellule LeTableau = Split(LaVal, Chr(10)) For i = 0 To UBound(LeTableau) Cells(NoLigne, i+1).value = LeTableau(i) Next

---

Ainsi tes lignes se trouveront sur les colonnes A, B, C, ...
Pourquoi "i + 1" dans "Cells(NoLigne, i+1).value =..." ? Parce qu'il n''existe pas de colonne 0 alors que ton tableau démarre sur l'index 0
Tu dis

OK, je vois ce que tu veux dire .. merci de ton aide !
:merci: