Créer un nom de variable qui s'incrémente dans une boucle

[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 (je sais que normalement le code doit se mettre autrement mais je ne vois pas où)

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

Merci d'avance

 

[wilfried_42]

Re : Créer un nom de variable qui s'incrémente dans une boucle

bonjour pietro

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

devient :

Private Sub CommandButton1_Click()
Dim Saisie As String, position as string, i as integer
Saisie = TextBox1.Value
'On compte le nombre de Separateur
i=1 : position = ""
Do while i>0
i = InStr(i,Saisie, ";")
if i >0 then
position = position + chr(i)
i = i + 1
end if
Loop
End Sub

position est une chaine de caractere, donnant la position de chaque ";"

pour la recupérer, for i = 1 to len(position) : pos = asc(mid(position;i;1)) :next i

attention, la chaine de carateres de base ne doit pas contenir + de 255 car

chr(255) etant un max

 

[Pietro_L]

Re : Créer un nom de variable qui s'incrémente dans une boucle

Je te remercie. Je regarde ça tout de suite et je te tiens au courant merci encore

 

[Pietro_L]

Re : Créer un nom de variable qui s'incrémente dans une boucle

Salut wilfried_42,

J'avais oublié de te remercier.
Tout marche à la perfection.

Bonne journée