VB : afficher un élément d'un array d'array

Le
Le Nordiste
Bonjour tertous,

J'ai un array de Nom de groupe
À chaque nom de groupe correspond un array avec n éléments.
je veux afficher successivement le nom d'un groupe, puis les divers
élements qu'il contient;
avant de passer au groupe suivant

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< mon code
>>>>>>>>>>>>>>>>>>>>>>>>>
For IndexGroupe = 0 To UBound(Liste_Groupe)
MsgBox
Liste_Groupe(i) 'affiche
le nom du groupe


'ICI j'aimerais afficher successivement le nom de chacun des éléments
du groupe indexé
For IndexElement = 0 To UBound(Liste_Groupe(IndexGroupe))
MsgBox (Liste_Groupe(IndexGroupe)(IndexElement))
Next IndexElement

Next IndexGroupe
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< mon code
>>>>>>>>>>>>>>>>>>>>>>>>>

Merci pour votre aide généreuse.
Le Nordiste
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #5447281
Bonjour,

Quelque chose du genre, peut-être :

Sub Affiche()
GA = Array(1, 2, 3, 4, 5)
GB = Array(13, 4, 12)
GC = Array(5, 6)
GD = Array(5, 4, 3, 2, 1)
Liste_Groupe = Array(GA, GB, GC, GD)
For i = 0 To UBound(Liste_Groupe)
For j = 0 To UBound(Liste_Groupe(i))
Debug.Print Liste_Groupe(i)(j)
Next j
Next i
End Sub

Serge


"Le Nordiste"
Bonjour tertous,

J'ai un array de Nom de groupe
À chaque nom de groupe correspond un array avec n éléments.
je veux afficher successivement le nom d'un groupe, puis les divers
élements qu'il contient;
avant de passer au groupe suivant

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< mon code

For IndexGroupe = 0 To UBound(Liste_Groupe)

























MsgBox
Liste_Groupe(i) 'affiche
le nom du groupe


'ICI j'aimerais afficher successivement le nom de chacun des éléments
du groupe indexé
For IndexElement = 0 To UBound(Liste_Groupe(IndexGroupe))
MsgBox (Liste_Groupe(IndexGroupe)(IndexElement))
Next IndexElement

Next IndexGroupe
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< mon code



























Merci pour votre aide généreuse.
Le Nordiste

























Le Nordiste
Le #5447261
Ça bloque : incompatibilité de type : erreur 13
sur cette ligne d ecode
For j = 0 To UBound(Liste_Groupe(i))


Debug.Print Liste_Groupe(i)(j)


Merci pour votre aide généreuse.
Le Nordiste


Le Nordiste
Le #5447231
On 8 avr, 15:45, Le Nordiste wrote:
Ça bloque : incompatibilité de type :  erreur 13
sur ces 2 lignes de code


         For j = 0 To UBound(Liste_Groupe(i))

           Debug.Print Liste_Groupe(i)(j)





Merci pour votre aide généreuse.
Le Nordiste
Tatanka
Le #5447211
Et pourtant chez moi tout baigne dans l'huile d'olive extra vierge ;-)

Un autre exemple :

Sub Affiche()
GA = Array("un", "deux", 3, 4, 5)
GB = Array(13, 4, "trois")
GC = Array(5, 6)
GD = Array(5, 4, 3, 2, 1)
Liste_Groupe = Array(GA, GB, GC, GD)
For i = 0 To UBound(Liste_Groupe)
For j = 0 To UBound(Liste_Groupe(i))
Debug.Print Liste_Groupe(i)(j)
Next j
Next i
End Sub

N'aurais-tu pas, par hasard, mis des guillemets autour de
GA, GB, GC et GD dans :
Liste_Groupe = Array(GA, GB, GC, GD) ?

Serge








"Le Nordiste"
Ça bloque : incompatibilité de type : erreur 13
sur cette ligne d ecode
For j = 0 To UBound(Liste_Groupe(i))


Debug.Print Liste_Groupe(i)(j)


Merci pour votre aide généreuse.
Le Nordiste


Le Nordiste
Le #5447161
"N'aurais-tu pas, par hasard..." cela sent son expérience personnelle
(LOL)


Voila mon code

Liste_Groupe = Array(AB,VC , L)

AB = Array("abonnement A", "abonnement B")

VC = Array("abonnement VC1 ", "abonnement VC2", "abonnement VC3")

L = Array("abonnement 1",("abonnement ")



For i = 0 To UBound(Liste_Groupe)
For j = 0 To UBound(Liste_Groupe(i))
Debug.Print Liste_Groupe(i)(j)
Next j
Next i

Et ça coince erreur 13 sur la ligne : For j = 0 To
UBound(Liste_Groupe(i))
Tatanka
Le #5447121
Et comme ceci, ça irait ?

Sub Affiche()
AB = Array("abonnement A", "abonnement B")
VC = Array("abonnement VC1 ", "abonnement VC2", "abonnement VC3")
L = Array("abonnement 1", "abonnement 2")
Liste_Groupe = Array(AB, VC, L)
For i = 0 To UBound(Liste_Groupe)
For j = 0 To UBound(Liste_Groupe(i))
Debug.Print Liste_Groupe(i)(j)
Next j
Next i
End Sub




"Le Nordiste"
"N'aurais-tu pas, par hasard..." cela sent son expérience personnelle
(LOL)


Voila mon code

Liste_Groupe = Array(AB,VC , L)

AB = Array("abonnement A", "abonnement B")

VC = Array("abonnement VC1 ", "abonnement VC2", "abonnement VC3")

L = Array("abonnement 1",("abonnement ")



For i = 0 To UBound(Liste_Groupe)
For j = 0 To UBound(Liste_Groupe(i))
Debug.Print Liste_Groupe(i)(j)
Next j
Next i

Et ça coince erreur 13 sur la ligne : For j = 0 To
UBound(Liste_Groupe(i))
Le Nordiste
Le #5447101
C'etait tellement simple,
que j'aurais du trouver tout seul : placer le Liste_groupe aprés les
groupes!!!!!


Merci de ton aide


"La différence entre INGENIEUR et INGENIEUX, c'est l'X"
Publicité
Poster une réponse
Anonyme