Discussion :

[weyb06]

Bonjour,

J'ai passé la matinée à trouver une solution à mon problème - sans résultat

Je cherche à faire une boucle "for" qui lit une liste de string.
J'ai trouvé ce que je voulais avec :

Code :

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

Dim liste_SSII As New List(Of String) From {"SSII1", "SSII2", "SSII3"}

mais pas moyen car j'ai le message "erreur de syntaxe"

L'aide sur vb me dit "VB pour applis 7.0" copyright 2010 - version 1628 VBA retail : 7.0.1628

Un grand MERCI d'avance pour votre aide !

Cordialement

[FLYeRNeT]

VB.Net :

Code :

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

1
2
3
4
5
6
7
Dim liste_SSII As New List(Of String)
liste_SSII.Add("SSII1")
liste_SSII.Add("SSII2")
liste_SSII.Add("SSII3")
For each sSSII As String in liste_SSII
    MessageBox.Show(sSSII)
Next

L'aide sur vb me dit "VB pour applis 7.0" copyright 2010 - version 1628 VBA retail : 7.0.1628

VBA :

Code :

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

1
2
3
4
5
6
7
8
9
Dim liste_SSII(3) As String
liste_SSII(1) = "SSII1"
liste_SSII(2) = "SSII2"
liste_SSII(3) = "SSII3"
 
Dim i As Integer
For i = 1 To UBound(liste_SSII)
    MsgBox (liste_SSII(i))
Next

[weyb06]

waooo !!

je cherchais une solution qui ressemblait à du VB.NET alors que je suis sous VBA...
j'aurais pu cherché longtemps !

merci bcp pour votre aide

bien cordt

[Marc-L]

Bonjour,

en VBA Excel il y a l'écriture matricielle : LISTE = [{"Nom1","Nom2","Nom3"}] … (LISTE de type Variant)

Sinon en VBA général il y a la fonction Array avec le zéro comme premier indice.


_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …