Discussion :

[gilles06]

Bonjour a tous,

Comment puis-je extraire des mots (separes par des blancs) dans une phrase ?

En fait je voudrais extraire les mots les uns apres les autres afin de les travailler individuellement.

Merci de votre aide.

[J.Michel]

Voici un premier jet qui pourra peut être t'aider

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 Test()
    Dim Phrase As String
    Dim Index As Integer
    Dim Starter As Integer
    Dim Mot As String
 
    Phrase = "Bonjour je test un programme VBA "
    Starter = 1
    Index = InStr(Starter, Phrase, " ")
    Do While Index > 0
        Mot = Mid(Phrase, Starter, Index - Starter)
        MsgBox Mot
        Starter = Index + 1
        Index = InStr(Starter, Phrase, " ")
    Loop
End Sub

[ucfoutu]

Bonjour,

intéresse-toi à la fonction Split (faite pour celà)...
Tu as un exemple dans ton aide en ligne et de nombreux exemples sur ce forum.

[J.Michel]

Je viens de faire le test de cette fonction
Merci ucfoutu

[fring]

Bonjour tlm,

Il y a un exemple tip top dans ce tuto
Manipuler les chaînes de caractères en VB6 et VBA Excel
Voir le chapitre : Scinder une chaîne (ce qui n'empêche pas de parcourir les autres chapitres par la même occasion )
.

[gilles06]

Merci a tous pour votre aide.