Discussion :

[alidroos]

Bonjour

Je tiens à ajouter le code milieu texte d'une chaîne de texte

S'il vous plaît jeter un oeil à Fichier attaché

[Daniel.C]

Bonjour,

S'il faut remplacer les espaces par ":" :

Code :

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

1
2
txt = "xxx xxx xxx xxx"
txt = Replace(txt, " ", ":")

Sinon, tu le prends où le texte que tu remplaces ?

[alidroos]

professeur Daniel.C

Notez que l'exigence de remplacement plus de l'exigence

1 = CCCam. = Replace(txt, ".", ":")
2 = stlover.com 31080 = Replace(txt, " ", ":")
3 = 31080 EB088DD2= Replace(txt, " ", ":0:")
4 = 3E4810DF WWW= Replace(txt, " ", ":")

Il ya quatre positions pour remplacer chaque situation est différente de l'autre

[Daniel.C]

Il est trop tard. Je ne comprends plus. Donne le texte initial et ce qu'on doit remplacer pour obtenir le résultat.

[gFZT82]

Bonjour,

Texte initial en A1 : C: cccam.satlover.com 31080 EB088DD2_3E4810DF www.satlover.com
Texte final en A2 : C: cccam:satlover.com:31080:0:EB088DD2_3E4810DF:www.satlover.com

Code :

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

1
2
3
4
5
6
Sub Test()
Dim Tablo, TabloBis
    Tablo = Split(Range("A1").Value, " ")
    TabloBis = Split(Tablo(1), ".")
    Range("A2") = Tablo(0) & " " & TabloBis(0) & ":" & TabloBis(1) & "." & TabloBis(2) & ":" & Tablo(2) & ":0:" & Tablo(3) & ":" & Tablo(4)
End Sub

Cordialement.

[alidroos]

professeur gFZT82

Je vous remercie