Dissection d'un texte en plusieurs petites parties

Je voudrais savoir comment on fait, par exemple si l'utilisateur entre le mot "Salut", que chaque lettre soit individuellement stockée dans une variable, comme lettre1 = "S", lettre2 = "a"...

Si tu utilise VB6, tu peux peut-être y arriver avec Split



-------------------------------
Réponse au message :
-------------------------------

Je voudrais savoir comment on fait, par exemple si l'utilisateur entre le mot "Salut", que chaque lettre soit individuellement stockée dans une variable, comme lettre1 = "S", lettre2 = "a"...

Bonjour,

Tu peux y parvenir par l'intermediaire d'une boucle et de lafonction Mid

ci dessous exemple de procedure

Sub eclatetexte()

' Déclaration de variables
Dim MonTexte As String
Dim LongueurTxt As Integer

' Déclaration d'un tableau dynamique
Dim Tableau()

' Saisie du texte
MonTexte = InputBox("Saisir un texte")

' Recherche de la longueur du texte saisi
LongueurTxt = Len(MonTexte)

' Redimensionnement du tableau dynamique
ReDim Tableau(LongueurTxt)

' Boucle et récupération de chaque lettre dans le tableau
For i = 1 To LongueurTxt
Tableau(i) = Mid(MonTexte, i, 1)
Next

End Sub

A+

Jean


-------------------------------
Réponse au message :
-------------------------------

Si tu utilise VB6, tu peux peut-être y arriver avec Split



-------------------------------
Réponse au message :
-------------------------------

Je voudrais savoir comment on fait, par exemple si l'utilisateur entre le mot "Salut", que chaque lettre soit individuellement stockée dans une variable, comme lettre1 = "S", lettre2 = "a"...