Partionner un fichier sous vba Résolu/Fermé

Question

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.

Configuration: Windows XP / Internet Explorer 8.0

ccm81 · Answer

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

lermite222 · Answer

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.

yoan · Answer

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 .

Partionner un fichier sous vba

3 réponses

Discussions similaires