Discussion :

[Mario Rousson]

Bonjour comment je fait pout séparer la ligne suivante:

ASA.TO,0.25,"10/5/2006","9:30am",0.00,0.25,0.25,0.25,1500

Pour qu'a chaque virgule il y est un changement de cellule, Ex:

Asa.to 0.25 10/5/2006 9:30am 0.00 0.25 0.25 0.25 1500

Merci

[Mario Rousson]

A2= Asa.to
A3= 0.25
A4= 10/5/2006
A5= 9:30am
A6= 0.00
A7= 0.25
A8= 0.25
A9= 0.25
A10= 1500

Je sais qu'il y a une façon mais je me souviens plus comment, peut-on me rafraichir la mémoire SVP

[mnolosange]

Bonjour,

La question est : dois-tu reproduire cette fonction plusieurs fois où juste une fois ?

Si c'est juste pour une fois, au lieu de trouver une fomule complexe dans Excel tu pourrais "ruser" en enregistrant tes données dans Notpad au format *.txt puis en ouvrant ce fichier dans Excel. Son convertisseur mets alors tout seul les données sur une même ligne mais dans des cellules séparées.

Donnes m'en des nouvelles !
Bonne journée

mnolosange

[Mario Rousson]

Cet opération doit être fait plusieurs fois et à tous les jours de la semaine.

[Tofalu]

Merci de modifier le titre du premier message pour en mettre un plus précis

[SilkyRoad]

bonjour

j'espere que cette macro pourra t'aider

Code :

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

1
2
3
4
5
6
7
8
Dim Tableau() As String
Dim i As Integer
 
Tableau = Split(Range("A1"), ",")
 
For i = LBound(Tableau) To UBound(Tableau)
    Cells(i + 2, 1) = Tableau(i)
Next i

sinon par formule: à saisir dans la cellule A2 puis tu étires vers le bas jusqu'en A10
(la chaîne de caractères à extraire est en A1)

=SI(LIGNE()-1>NBCAR($A$1)-NBCAR(SUBSTITUE($A$1;",";""));DROITE($A$1;NBCAR($A$1)-TROUVE("^^";SUBSTITUE($A$1;",";"^^";NBCAR($A$1)-NBCAR(SUBSTITUE($A$1;",";"")))));SI(LIGNE()-1=1;STXT($A$1;1;TROUVE("^^";SUBSTITUE($A$1;",";"^^";1))-1);STXT($A$1;TROUVE("^^";SUBSTITUE($A$1;",";"^^";LIGNE()-2))+1;TROUVE("^^";SUBSTITUE($A$1;",";"^^";LIGNE()-1))-TROUVE("^^";SUBSTITUE($A$1;",";"^^";LIGNE()-2))-1)))



michel

[Mario Rousson]

Merci beaucoup Michel, je vais tester ça aujourd'hui