Partionner un fichier sous vba

Résolu/Fermé
yoan - 16 févr. 2011 à 11:29
 yoan - 16 févr. 2011 à 13:24
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 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
Modifié par ccm81 le 16/02/2011 à 12:06
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 dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
16 févr. 2011 à 12:59
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
16 févr. 2011 à 13:24
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