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

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" <jean-paul.bataille@neufcegetel.fr> a écrit dans le message de news:
762ca61f-b60f-4f29-b791-f579455ffe97@m44g2000hsc.googlegroups.com...
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

Ç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

On 8 avr, 15:45, Le Nordiste <jean-paul.batai...@neufcegetel.fr>
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

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" <jean-paul.bataille@neufcegetel.fr> a écrit dans le message de news:
3f184b43-41d3-42cd-b2ff-89c841e4c4c5@t54g2000hsg.googlegroups.com...
Ç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

"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))

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" <jean-paul.bataille@neufcegetel.fr> a écrit dans le message de news:
d9ed198b-d4eb-4ecb-a8f8-78898fc58966@f63g2000hsf.googlegroups.com...
"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))

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"