Discussion :

[winnie]

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 !

[ouskel'n'or]

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

Code :

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

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 :

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

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

[winnie]

Je ne vois pas trop ..

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

[ouskel'n'or]

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 :

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

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

[winnie]

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