Discussion :

[snake264]

Bonjour, voila mon problème est que pour un projet je dois réaliser une conversion de format à partir d'un fichier texte et de façon automatique sans que je sois obligé de tout changer manuellement, je m'explique j'ai dans un fichier texte des temps et des nombres de tours au format suivant:
"minute.seconde.millième";"n° du tour"
et je voudrai le convertir au format suivant dans excel:
"minute";"seconde,millième";"n° du tour"
exemple plus précis:
"54.59.043";"4" => "54";"59,043";"4"

Est-il possible de faire sa ?
merci de vos reponse

[tangjuncn]

http://msdn2.microsoft.com/en-us/library/bt3szac5.aspx
ben la fonction replace,
là-dedans, tu précises ton "count" à 1 une fois

[snake264]

merci bien de ta réponse mais je n'ai strictement rien compris à ce qu'il y a marqué car l'anglais et moi sa fait deux lol et sachant que je n'ai jamais fais de vb de ma vie je suis complètement perdu dans les explications de ton lien

svp quelqu'un pourrait-il m'aider

[SfJ5Rpw8]

tiens un peu de lecture ... :

http://silkyroad.developpez.com/VBA/...nesCaracteres/

- Voir la fonction split.. puis l'opérateur de concaténation des chaînes de carcatéres : & ...

[snake264]

Merci sa fait plaisir de se sentir aider^^ je vais voir sa et je vous dirai ensuite comment sa se déroule

[snake264]

Je n'arrive pas à utiliser la fonction split pour sépare les minutes du reste, exemple:
"43.12.713" => "43";"12.713"
Vous n'auriez pas un exemple svp
J'ai essayer de trouver un code à l'aide du tuto proposer précédemment qui est:

Code :

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

1
2
3
4
5
6
7
Dim Tablo() As String
Monstring = "43.12.592"
Tablo = Split(Monstring, ".")
For i = LBound(Tablo) To UBound(Tablo)
Tablo(i) = Trim(Tablo(i))
MsgBox Tablo(i)
Next

Mais cela m'affiche des textbox avec marquer 43 puis 12 et 592 après avoir cliquer sur ok de chacun d'eux et 43.12.713 reste toujours dans la meme cellule

[snake264]

C'est bon j'ai trouvé, voici le code que j'ai mis:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Tablo() As String
Dim C As Range
'                 A    B    
'"43.12.713" => "43" "12,713"
For Each C In Selection
 
    Tablo = Split(C, ".")
    If UBound(Tablo) = 2 Then
        C.Value = Tablo(0)
        C.Offset(0, 1).Value = Tablo(1) & "." & Tablo(2)
 
     Else
        MsgBox "Chaine " & C & " Incorrecte"
  End If
Next C

Et cela marche je voudrais remercier ouskel'n'or et bbil d'avoir eu la patience et la gentillesse de m'aider à résoudre mon problème