Discussion :

[Pietro_L]

Bonjour à tous,

J'ai un petit soucie.
Je suis dans une boucle while ou je souhaite stocker la position des ; d'une variable dans une variable se nommant position. Je voudrais que cette variable se nomme position1 pour le premier ; rencontré position2 pour le second ; ...

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
 
Dim Saisie As String
 
Saisie = TextBox1.Value
 
'On compte le nombre de Separateur
 
i = 1
Do
Position = InStr(Saisie, ";")
i = i + 1
Loop While Position > 0
End Sub

D'avance merci

[ouskel'n'or]

Utilise un tableau.

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Position()
    Saisie = "dlkfj;fsdf;;fdf;sd;fqffsdfqsd;ffdsf;sfsdf;"
    For i = 1 To Len(Saisie)
        If Mid(Saisie, i, 1) = ";" Then
            j = j + 1
            ReDim Preserve Position(j)
            Position(j) = i
        End If
    Next
    MsgBox j

Le nombre de ";" = j
Pour relire les positions

Code :

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

1
2
3
for i = 1 to j
     msgbox Position(i)
Next

Mais comme je ne sais pas ce que tu veux faire, à tout hasard, regarde Split, dans l'aide
A+

[Pietro_L]

Merci beaucoup je vais regarder tout ça.

Merci encore

[Pietro_L]

Salut ouskel'n'or,

Je voulais te remercier car la fonction split est super efficace.

Merci