Partionner un fichier sous vba

Résolu
yoan -  
 yoan -
Bonjour,

J'ai un fichier excel qui se présente sous la forme suivante :
813551083,EURX,MAR 11 EURX DAX INDEX ,P,P227,22700561,1,0,,,7416.0,,,,2011/02/16,02:22:06,FIMFR,R004,,

Je voudrais le partionner de telle sorte qu 'après chaque virgule ce soit une colonne.
Je sais faire cette opé sous excel avec la fonction Convertir, mais j'aimerai coder ça sous vba afin d'y lancer depuis un bouton.

Merci de votre aide.

A voir également:

3 réponses

Réponse 1 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonjour,
il doit y avoir mieux mais, c'est un début 

Private Sub CommandButton1_Click() 
Dim s As String, nbv As Long, i As Long 
Dim t 
  s = Range("A1").Value 
  nbv = 0 
  For i = 1 To Len(s) 
    If Mid(s, i, 1) = "," Then 
      nbv = nbv + 1 
    End If 
  Next i 
  t = Split(s, ",", -1) 
  For i = 1 To nbv +1
    Range("A" & i + 1).Value = t(i - 1) 
  Next i 
End Sub


bonne suite
0
Réponse 2 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Tu pourrais au moins répondre à ton premier poste ???
DOUBLON
Si tu pratique encore longtemps comme ça je ne pense pas que tu auras encore beaucoup d'aide sur ce forum.
0
Réponse 3 / 3
yoan
 
désolé lermite je n'avais pas vu ta réponse g essayé ta solution et ça marche merci beaucoup.

Merci aussi a ccm81 pr ta reponse .
0