Bonjours à tous,

J'ai créer une interface graphique dynamique mais je rencontre un problème pour récuperer les valeurs de mes TextBox ou CheckBox.

Mon interface graphique contient un combobox qui me permet de choisir une formation, une fois celle-ci choisie un nombre de TextBox entre 1 et 5 apparais chacun avec un nom different qui est Txb_nomExamen (ex : Txb_Ecrit) je veux maintenant récupérer leurs valeurs et les insérer dans ma feuille excel BDD qui contient les 5 colonnes (chaques colonnes correspond a un examen est a pour nom : "nomExamen" qui à servi a créer le nom du TextBox )

Voila le code qui ma permis de créer les textbox :


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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Set Collect = New Collection
 
i = 0
j = 0
ind = 0
 
While j <= 2 And ind < intTailleTabExam
 
    While i <= 1 And ind < intTailleTabExam
 
        PlacementX = j
        PlacementY = i
 
        Set Obj_lbl = frm_Examen.Controls.Add("forms.Label.1")
        With Obj_lbl
        .Name = "lbl_" & tabExamen(ind)
        .Object.Caption = tabExamen(ind)
        .Left = 80 * PlacementX + 6
        .Top = 40 * PlacementY + 6
        .Width = 74
        .Height = 16
        End With
 
        Set Obj_txb = frm_Examen.Controls.Add("forms.TextBox.1")
        With Obj_txb
        .Name = "txb_" & tabExamen(ind)
        .Left = 80 * PlacementX + 8
        .Top = 40 * PlacementY + 25
        .Width = 30
        .Height = 16
        .Text = "0"
        End With
 
        Set C2 = New Classe2
        Set C2.TxtBx = Obj_txb
        Collect.Add C2
 
        i = i + 1
 
        If j > 0 Then
 
            ind = j * 2 + i
 
        Else
 
            ind = i
 
        End If
 
    Wend
 
    i = 0
    j = j + 1
 
Wend
Merci par avance de vos réponse.