Réaliser des colonnes après chaque virgule Résolu/Fermé

Question

Bonjour, 

J'ai un fichier avec des lignes qui se présentent sous la forme suivante : 

811554613,EURX,MAR 11 EURX DAX INDEX         ,P,P227,22700561,0,-2,,,7414.0,,,,2011/02/15,02:31:53,FIMFR,R004,,

J'aimerai faire une colonne après chaque virgule. 
Je sais le faire sous excel en utilisant Données -> Convertir ...

J'aimerai pouvoir le coder sous VBA afin de le lancer depuis un bouton.

Merci de votre aide.



Configuration: Windows XP / Internet Explorer 8.0

lermite222 · Answer

Bonjoue, 
Un exemple... 
Sub Separer() 
Dim Lig As Long, TB, Col As Integer 
Const dCol = 5 '1ère colonne où transposer 
Const Sep = "," 'sélection du séparateur (ici la virgule) 
    For Lig = 5 To 21 
        TB = Split(Cells(Lig, 4), Sep) 
        For Col = 0 To UBound(TB) 
            Cells(Lig, Col + dCol) = TB(Col) 
        Next Col 
    Next Lig 
End Sub
Faut adapter la plage de travail (ici ligne 5 à 21, colonne 4) 
A+ 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques. 
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

yoan · Answer

Désolé je n'avais pas vu la réponse, je pensais que mon sujet n'avait pas été posté ! 

Je vais essayer la solution .

Merci

yoan · Answer

ça marche , merci beaucoup lermite22.

Réaliser des colonnes après chaque virgule

3 réponses

Discussions similaires