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

[SfJ5Rpw8]

tiens le dernier exemple :

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
16
 
Sub MonTest()
Dim Tablo() As String
Dim MonString As String
Dim MaNouvelleString As String
'"43.12.713" => "43";"12.713"
 
MonString = "43.12.713"
Tablo = Split(MonString, ".")
If UBound(Tablo) = 2 Then
 MaNouvelleString = Tablo(0) & ";" & Tablo(1) & "." & Tablo(2)
 MsgBox MonString & " ==>> " & MaNouvelleString
Else
 MsgBox "Chaine " & MonString & " Incorrecte"
End If
End Sub

s'il sagit de modifier la valeur d'une cellule .. il faut penser ensuite à écrire dans celle-ci .....

[snake264]

Alors merci beaucoup j'avance déjà beaucoup avec ce code qui marche voici ce que j'ai marquer dans ma macro:

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
16
17
18
19
 
Dim Tablo() As String
Dim Cell As Variant
Dim MonString As String
Dim MaNouvelleString As String
'"43.12.713" => "43";"12.713"
 
MonString = "43.12.713"
Tablo = Split(MonString, ".")
If UBound(Tablo) = 2 Then
 MaNouvelleString = Tablo(0) & ";" & Tablo(1) & "." & Tablo(2)
 MsgBox MonString & " ==>> " & MaNouvelleString
For Each Cell In Selection
        Cell.Value = Tablo(0) & ";" & Tablo(1) & "." & Tablo(2)
 Next Cell
Else
 MsgBox "Chaine " & MonString & " Incorrecte"
 
End If

Mais le problème c'est que si je rentre une autre valeur que "43.12.713" cela m'affiche quand même "43";"12.713" et je voudrais que sa m'affiche pour n'importe quelle valeur du même c'est à dir:
"mm.ss.dcm" => "mm";"ss.dcm"
Comment puis-je faire pour faire cela ?

[SfJ5Rpw8]

et tu la rentre ou ta valeur ... ? il faut modifier cette ligne..:

Code :

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

1
2
 
MonString = "43.12.713"

[snake264]

Il me semblait bien que sa devais venir de la, merci de me l'avoir confirmer , mais comment je fais pour que MonString prenne n'importe quelle valeur que l'on marque dans une cellule au hasard et non défini?

[SfJ5Rpw8]

Il me semblait bien que sa devais venir de la, merci de me l'avoir confirmer , mais comment je fais pour que MonString prenne n'importe quelle valeur que l'on marque dans une cellule au hasard et non défini?

? et comment tu le lit ce fichier texte ...?

[snake264]

Et bien je le l'importe à partir d'exel et il me fait une liste sur deux cellule une pour le temps et une pour le nombre de tour:
cel 1 cel 2
"mm.ss.dcm" "n° du tour"
"mm.ss.dcm" "n° du tour"
etc... et il y aura autant de ligne qu'il y aura de valeur dans le fichier texte.

[SfJ5Rpw8]

alors ... il doit faire quoi ton code ?

peu-être : une fois le fichier texte chargé .. parcourir la colonne 1 .. et modifier le format ..?

[snake264]

Oui voila c'est exactement sa je voudrais que au final cela devienne comme ceci:
col1 col2 col3
"mm" "ss,dcm" "n° du tour"

[SfJ5Rpw8]

j'avais pas vu ta boucle for... ....

elle n'est pas au bon endroit ...!! ..... ta fonction de traitement de chaîne doit se situer dans cette boucle pour traiter chacune de tes cellules...

[snake264]

Mais si je la met ailleurs MaNouvelleString ne pourra pas afficher ce qui a été decider plus haut non ? (dsl si mes questions sont parfois assez bête c'est la toute première fois que je code en vb^^)

[SfJ5Rpw8]

tiens j'ai pas le temps de tester mais en gros cela doit être mieux:

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
 
'"43.12.713" => "43";"12.713"
For Each C In Selection
 
Tablo = Split(C, ".")
  If UBound(Tablo) = 2 Then
        C.Value = Tablo(0) & ";" & Tablo(1) & "." & Tablo(2)
  Else
     MsgBox "Chaine " & c & " Incorrecte"
  End If
Next Cell

[snake264]

Parfait sa marche^^ merci beaucoup, maintenant est-il possible de mettre les minutes dans une colonne différentes ?

[ouskel'n'or]

Tu veux donc placer tes tours en colonne 4
Alors c'est plus simple. Je reprends le code de bbil pour te placer les minutes, secondes et millièmes dans trois colonnes différentes

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    C
'"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)
        C.Offset(0,2).value = Tablo(2)
     Else
        MsgBox "Chaine " & c & " Incorrecte"
  End If
Next Cell

[snake264]

Merci de me proposer ce code mais ce n'est pas exactement cela ce que j'aimerai c'est cela:

Code :

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

1
2
3
 
' A           B
"mm"    "ss,dcm"

par exemple:

Code :

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

1
2
3
 
'  A           B
"43"     "12,713"