Incrementer une valeur dans une boucle

Bonjour,

En esperant que quelqu'un peut m'aider! :

Je doit revoir les valeur ''a,b,c,d,e'' de facon separé.

La valeur peux changer pour, par exemple, '' b,c,d'' ou ''a,d,g,f,g,h,j"

J'ai un problème au niveau de incrémentation de la valeur ''0'' dans la ligne ''MsgBox LArray(0)''

Voici ou je suis rendu au niveau de mon programme

---------------------
Dim LString As String
Dim LArray() As String

LString = "a,b,c,d,e" ' ici normalement je pointe une cellule excel
LArray = Split(LString, ",")

For Each Value In LArray
MsgBox LArray(0) 'ici je doit incrementer le ''0'' !
Next

End Sub
-----------

le résultat est que j'ai 4 msgbox qui s'ouvre (yé!) mais les 4 fois on m'affiche la valeur ''a''

Comment faire pour avoir 4 msgbos qui vont m'afficher ''a'' ''b'' ''c'' ''d'' ''e''

Merci d'avance!

Julien

Bonjour Julien, bonjour le forum,

Peut-être comme ça :

Dim I As Byte
For I = 0 To UBound(LArray) - 1
    MsgBox LArray(I)
Next I

bonjour,

edit : bonjour Thauthème

essaie ceci, 2 manières différentes (tu devrais éviter d'utiliser Value, que VBA pourrait confondre avec une propriété d'objet excel)

a = Split("a,b,c,d,e", ",")

For Each Value In a
MsgBox Value
Next

For i = LBound(a) To UBound(a)
MsgBox a(i)
Next i

Ca semble fonctionner avec

Dim I As Byte
For I = 0 To UBound(LArray) - 1' pourquoi -1?
    MsgBox LArray(I)
Next I

Mais pourquoi le ''-1''?

Un gros merci!

Julien