Discussion :

[Harry Covair]

Bonjour le forum,

Dans une procédure événementielle, je crée une variable de type array ; elle est alimentée dans cette même procédure avec l’option base 1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CmdBtn_start_Click()
tbx_question.Value = " "
tbx_réponse = " "
cbx_choix.Clear
nr_question = nr_question + 1
Dim question(2, 6)
question1 = Array("Quel est le cépage qui fut traité de plant déloyal et banni de Bourgogne par le duc Philippe le Hardi en 1395 ? ", _
            "La syrah", "Le gamay", "Le pinot noir", _
            "Chassé de la Côte d'Or - c'est en Beaujolais que le gamay trouva son terroir de prédilection.", _
            "1")
question2 = Array("On compte en France plus de cinq cents Appellations Contrôlées. Quelle est - en superficie - la plus petite ?", _
            "La Romanée", "Le Montrachet", "Château Grillet", _
            "La Romanée ne fait que 85 ares contre 2 1/2 hectares pour le Château-Grillet et 8 hectares pour le Montrachet.", _
            "1")
question(1, 1) = question1(1)
question(1, 2) = question1(2)
question(1, 3) = question1(3)
question(1, 4) = question1(4)
question(1, 5) = question1(5)
question(1, 6) = question1(6)
question(2, 1) = question2(1)
question(2, 2) = question2(2)
question(2, 3) = question2(3)
question(2, 4) = question2(4)
question(2, 5) = question2(5)
question(2, 6) = question2(6)
 
tbx_question.Value = question(nr_question, 1)
 
For x = 2 To 4
cbx_choix.AddItem question(nr_question, x)
Next
end sub

J’ai déclaré la variable “question” public mais VBA n’accepte pas les variables « array » en public.
Je suis donc à la recherche d’une solution pour un passage de variable de type array d’une procédure événementielle CmdBtn_start_Click à une autre cbx_choix_Change().

Il s'agit en l'occurence d'une application PowerPoint mais je pense que le raisonnement s'applique aux autres applications Office.
La réponse à la question de "Richton95" ne s'applique pas dans ce cas.
Quelqu’un peut-il m’aider ?
Bonne journée

Harry

[Harry Covair]

Une solution consiste à passer par une variable Public intermédiaire.
Peu élégant mais cela fonctionne.

Bonne journée à tous

Harry