transformer X tableaux à 1 dimension en 1 tableau à X dimensions [Résolu]

[Harry Covair]

Bonjour le forum,

La question est posée dans le forum PwP parce que le problème se pose dans la gestion d’une liste déroulante dans une dia ; mais je pense qu’elle vaut aussi pour Excel, Word voire Outlook.
But : transformer X tableaux à 1 dimension en 1 tableau à X dimensions
Tableaux à 1 dimension

Code :

1
2
3
4
Dim question1(), question2(), question3()
question1 = Array("Quel est la couleur du cheval blanc de Napoléon ?",  "Isabelle", "Blanc ", " Noir",  " Le cheval était blanc.", "3")
question2 = Array("Dans quelle ville se trouve Notre-Dame de Paris?", " Paris", " Lyon", " Marseille", "Elle se trouve à Paris", "2")
question3 = Array("Combien y a-t-il de départements en France?",  "100", "101", "102 ", « Il y a 101 départements. Le dernier est Mayotte", "3")

Tableau à X dimensions

Code :

Dim question(3, 6)

Transformation efficace mais peu élégante et fastidieuse (j’ai 50 questions)

Code :

1
2
3
4
5
6
7
8
9
For I = 1 To 6
question(1, I) = question1(I)
Next
For I = 1 To 6
question(2, I) = question2(I)
Next
For I = 1 To 6
 question(3, I) = question3(I)
Next

Je voudrais arriver à une structure en double boucle semblable à ce qui suit:

Code :

1
2
3
4
5
For i = 1 To 3
    For j = 1 To 6
    question(i, j) = "question" & j & "(" & i & ")"
    Next j
Next i

Mais, hélas, cela ne fonctionne pas; le résultat donne par exemple:“question2(2)”, guillemets compris.
Mon souhait est-il irréalisable ou est-ce simplement une question de syntaxe ?
Je voudrais préciser que pour diverses raisons, je ne veux pas - actuellement - utiliser de base de données externes (SQL, Excel, …)
Merci pour vos avis éclairés

Harry

[edelweisseric]

Bonjour

Je ne sais pas si j'ai bien compris où tu voulais en venir, mais je te propose ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
Dim Montab()
Dim question1(), question2(), question3()
question1 = Array("Quel est la couleur du cheval blanc de Napoléon ?", "Isabelle", "Blanc ", " Noir", " Le cheval était blanc.", "3")
question2 = Array("Dans quelle ville se trouve Notre-Dame de Paris?", " Paris", " Lyon", " Marseille", "Elle se trouve à Paris", "2")
question3 = Array("Combien y a-t-il de départements en France?", "100", "101", "102 ", "Il y a 101 départements. Le dernier est Mayotte", "3")
Montab = Array(question1, question2, question3)
MsgBox Montab(1)(3)
 
End Sub

Eric

[Harry Covair]

Bonjour Eric,
La solution proposée a été testée et convient parfaitement avec un minimum de modifications; par ignorance de cette possibilité, je me compliquais la vie.
Pour information,
Par question, le premier élément est la question qui s'affiche dans une zone de texte;
Les 2ème, 3ème et 4ème sont des propositions qui alimentent une combobox;
le 5ème est un commentaire qui apparaît dans une zone de texte;
le 6ème est le rang de la bonne réponse.

Grand merci pour la pertinence et la rapidité de la réponse.

Harry