Discussion :

[beegees]

Bonjour tout le monde,

J'ai cette chaine de caractères :

Tianjin University, scholl of Pharmaceutical, Science and Technology Nankai District, weijin 92 Tianda, 300072 Tianjin, China

Je me demandais comment je pouvais séparer cette phrase par rapport aux virgules et mettre chaque élément de la phrase les uns en dessous des autres sans la virgule, cela donnerait ceci :

Tianjin University
scholl of Pharmaceutical
Science and Technology Nankai District
weijin 92 Tianda
300072 Tianjin
China

Merci d'avance.

beegees

[LE VIEUX]

bonjour,
fonction split :

ex:

Code :

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

1
2
3
4
5
6
7
8
9
Function ReclasserPhrase()
phrase1 = "Tianjin University, scholl of Pharmaceutical, Science and Technology Nankai District, weijin 92 Tianda, 300072 Tianjin, China "
recl = Split(phrase1, ",")
nb = UBound(recl)
For i = 0 To nb
Phrase2 = Phrase2 & LTrim(recl(i)) & vbCrLf
Next i
Debug.Print Phrase2
End Function

[Tofalu]

Salut,

Plus court :

Code :

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

1
2
3
4
Function ReclasserPhrase()
phrase1 = "Tianjin University, scholl of Pharmaceutical, Science and Technology Nankai District, weijin 92 Tianda, 300072 Tianjin, China "
Debug.Print Join(Split(phrase1, ", "), vbCrLf)
End Function

[beegees]

Salut à vous deux,

Un super grand merci pour vos réponses.

J'ai analysé vos réponses mais j'ai finalement choisi d'utiliser le code de Le Vieux" (je l'ai un tout petit peu modifié).

Finalement, j'ai ce code :

Code :

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

1
2
3
4
5
6
7
8
9
 
phrase1 = rst![ERASMUS/STAGE/ECHANGE]
    recl = Split(phrase1, ",")
    nb = UBound(recl)
    For i = 0 To nb
        Phrase2 = LTrim(recl(i))
        appexcel.Cells(s, 1) = "   " & Phrase2
        s = s + 1
    Next i

Merci encore et bon Dimanche.

beegees