Gestion d'évènement pour un Userform dynamique

**RemiT** · 14/12/2007, 16h31

Bonjour à tous,

Voilà mon probleme, j'ai un Userform que je construis dynamiquement suivant le nombre d'items utilisé dans un onglet Excel ( en fait, je cré un formulaire dynamique ).

Comme on peut le voir sur l'image jointe, suivant les cases cochées, je bloque l'acces à certains TextBox à l'ouverture du Userform ( Initialisation ).

Mon probleme est que si je décoche certaines case, rien ne se passe : NORMAL !!

Je sais qu'on peut gérer ça en statique : Private sub TextBox1_Change ()

Mais comment proceder quand les TextBox sont multiples et que je ne connais pas leur nombre ( création en dynamique ) ??

Merci a tous pour votre aide... et bon week-end si je n'ai pas de réponse avant...

**Qwazerty** · 14/12/2007, 16h43

SAlut
Humm
Je le faisait sous VB ca..; ca date un peu
mais le principe c'est d'attribuer a chaque TextBox que tu cré dynamiquement une procedure lier a ca fonction Onchange.
Je vais regarder si je retrouve ca..
Donne un bout de code on gagnera du temps ^^, j'ai trop la faconde faire en Delphi en tete pour arrivé a le refaire en vb

A+

**RemiT** · 14/12/2007, 16h48

Voilà le code...

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
Private Sub InitGC_Click()
 
    Range("A13").Select
    compt = 1
 
    Do Until ActiveCell.Value = ""
        compt = compt + 1
        ActiveCell.Offset(1, 0).Select
    Loop
 
    Range("A13").Select
 
    For i = 1 To compt - 1
        Set monlabel(i) = Init_poids_GC.Frame2.Controls.Add("Forms.label.1")
        Set monchoixGC(i) = Init_poids_GC.Frame2.Controls.Add("Forms.checkbox.1")
        Set monchoixCharp(i) = Init_poids_GC.Frame2.Controls.Add("Forms.checkbox.1")
        Set MaTextBoxNat1(i) = Init_poids_GC.Frame2.Controls.Add("Forms.Textbox.1")
        Set MaTextBoxNat2(i) = Init_poids_GC.Frame2.Controls.Add("Forms.Textbox.1")
        Set MaTextBoxNat3(i) = Init_poids_GC.Frame2.Controls.Add("Forms.Textbox.1")
        Set MaTextBoxNat4(i) = Init_poids_GC.Frame2.Controls.Add("Forms.Textbox.1")
        Set MaTextBoxNat5(i) = Init_poids_GC.Frame2.Controls.Add("Forms.Textbox.1")
        Set MaTextBoxNat6(i) = Init_poids_GC.Frame2.Controls.Add("Forms.Textbox.1")
        Set MaTextBoxNat7(i) = Init_poids_GC.Frame2.Controls.Add("Forms.Textbox.1")
 
        With Init_poids_GC.Frame2
            .ScrollBars = fmScrollBarsVertical
            .ScrollTop = 15
        End With
 
        With monlabel(i)
            .Caption = ActiveCell.Value & " - " & ActiveCell.Offset(0, 1).Value
            .Top = (12 * i) - 7
            .Left = 5
            .Width = 250
        End With
        With monchoixGC(i)
            .Top = (12 * i) - 7
            .Left = 280
            .Width = 15
            .Caption = ""
            .Value = True
        End With
        With monchoixCharp(i)
            .Top = (12 * i) - 7
            .Left = 325
            .Width = 15
            .Caption = ""
            .Value = False
        End With
        With MaTextBoxNat1(i)
            .Text = "25"
            .Font.Size = 8
            .TextAlign = fmTextAlignCenter
            .Top = (12 * i) - 5
            .Left = 370
            .Width = 30
            .Height = 15
        End With
        With MaTextBoxNat2(i)
            .Text = "50"
            .Font.Size = 8
            .TextAlign = fmTextAlignCenter
            .Top = (12 * i) - 5
            .Left = 415
            .Width = 30
            .Height = 15
        End With
        With MaTextBoxNat3(i)
            .Text = "25"
            .Font.Size = 8
            .TextAlign = fmTextAlignCenter
            .Top = (12 * i) - 5
            .Left = 455
            .Width = 30
            .Height = 15
        End With
        With MaTextBoxNat4(i)
            .Text = "25"
            .Font.Size = 8
            .TextAlign = fmTextAlignCenter
            .Top = (12 * i) - 5
            .Left = 515
            .Width = 30
            .Height = 15
        End With
        With MaTextBoxNat5(i)
            .Text = "25"
            .Font.Size = 8
            .TextAlign = fmTextAlignCenter
            .Top = (12 * i) - 5
            .Left = 565
            .Width = 30
            .Height = 15
        End With
        With MaTextBoxNat6(i)
            .Text = "25"
            .Font.Size = 8
            .TextAlign = fmTextAlignCenter
            .Top = (12 * i) - 5
            .Left = 610
            .Width = 30
            .Height = 15
        End With
        With MaTextBoxNat7(i)
            .Text = "25"
            .Font.Size = 8
            .TextAlign = fmTextAlignCenter
            .Top = (12 * i) - 5
            .Left = 665
            .Width = 30
            .Height = 15
        End With
 
        If monchoixGC(i).Value = True Then
            MaTextBoxNat4(i).Enabled = False
            MaTextBoxNat5(i).Enabled = False
            MaTextBoxNat6(i).Enabled = False
            MaTextBoxNat7(i).Enabled = False
        End If
 
        If Init_poids_GC.Height < 350 Then
            Init_poids_GC.Height = Init_poids_GC.Height + 12
        End If
        If Init_poids_GC.Frame2.Height < 250 Then
            Init_poids_GC.Frame2.Height = Init_poids_GC.Frame2.Height + 12
            Init_poids_GC.Frame2.ScrollHeight = Init_poids_GC.Frame2.Height + 12
            Init_poids_GC.Lancer.Top = Init_poids_GC.Lancer.Top + 12
        Else
            Init_poids_GC.Frame2.ScrollHeight = Init_poids_GC.Frame2.ScrollHeight + 12
        End If
 
        ActiveCell.Offset(1, 0).Select
 
    Next i
 
    Init_poids_GC.Frame2.ScrollHeight = Init_poids_GC.Frame2.ScrollHeight - 20
    Init_poids_GC.Show
 
End Sub

**Qwazerty** · 14/12/2007, 17h19

Re
Alors j'ai beau creuser mes meninge ca doit pes etre a meme chose qu'en VB6
Par contre je pense avoir une solution mais je n'arrive pas a la mettre en application...
Il faudrait definir la propriete ControlSource pour y definir une cellule ex feuil1!A1, apres il faut surveillé les changement de La cellule

**Qwazerty** · 14/12/2007, 17h25

re
Voila
EDIT

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
Private monchoixGC() As Control
 
 
Private Sub CommandButton1_Click()
ReDim monchoixGC(1)
Set monchoixGC(0) = UserForm1.Controls.Add("Forms.checkbox.1", "MyCheckBox", Visible)
 
With monchoixGC(0)
.Top = 12
.Left = 12
.Width = 50
.Height = 15
'.Caption = "CheckBox"
.ControlSource = "Feuil1!A1"
.Value = True
End With
End Sub

c le dim qui me faisait Chi*** je mettais As CheckBox .. ben faut pas :p

**tirex28** · 14/12/2007, 17h26

Bonjour,

Mais comment proceder quand les TextBox sont multiples et que je ne connais pas leur nombre ( création en dynamique ) ??

Il faut utiliser un module de classe.

http://www.developpez.net/forums/sho...d.php?t=414640

Cordialement,

Tirex28/

**RemiT** · 14/12/2007, 17h30

ET VOILA... LE MOT EST LACHE... je ne pensais pas en arriver là mais il va falloir que je me mette au module de classe...

Je ne suis pas tres balaise en programmation... plus mauvais a vrai dire mais avec mes bases, je savais plus ou moins qu'il fallait y passer... je verrais ça lundi je pense...

Merci Qwazerty, Merci Tyrex28 et A LUNDI

**RemiT** · 17/12/2007, 12h14

Bon alors j'ai regardé tout ça et je n'arrive toujours pas a faire inter-agir 2 check box :

dans mon module de classe, j'ai ( en enlevant les details de mise en forme ):

Code :

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

1
2
3
4
5
6
7
8
9
10
Public WithEvents checkGC As msforms.CheckBox
Public WithEvents checkCharp As msforms.CheckBox
 
Public Sub checkGC_click()
    checkCharp.Value = False
End Sub
 
Public Sub checkCharp_click()
    checkGC.Value = False
End Sub

dans mon formulaire, j'ai :

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
Sub CommandButton1_Click()
 
    Dim monGC As New Class1
 
    For i = 1 To compt
 
        monGC.ajout_Item (i)
 
        Set checkGC = init_poids_gc.Frame2.Controls.Add("forms.checkbox.1")
        Set checkCharp = init_poids_gc.Frame2.Controls.Add("forms.checkbox.1")
        checkGC.Top = (12 * i) - 10
        checkCharp.Top = (12 * i) - 10
 
 
    Next i
 
end sub

mon formulaire se "construit" bien mais l'inter-action en les 2 checkbox ne fonctionne pas...

HELP les champions...

**LeForestier** · 17/12/2007, 13h53

Bon alors j'ai regardé tout ça et je n'arrive toujours pas a faire inter-agir 2 check box :

Pour avoir une inter-action entre plusieur contrôle, et si j'ai bien compris, tu doit employé des OptionButton avec leurs proriétés GroupName identiques.
A+

**RemiT** · 17/12/2007, 14h16

Merci LeForestier,

ceci étant résolu, une question en amenant une autre... ( car mon but est plus complexe )...

en fait, le but est suivant la selection, je voudrais rendre accessible ou bloqué les textbox 1,2,3 ou 4,5,6,7 qui sont sur la meme ligne et tout ça en "temps réel"...

Merci d'avance...

**LeForestier** · 17/12/2007, 14h23

Lier tes textbox au optionButton et mettre les propriétés respectives des textBox.enabled à true ou false

**RemiT** · 17/12/2007, 14h28

ça, je sais le faire au premier affichage mais comment faire quand le formulaire est afficher et que je change les options ??

Comment créer les liens ??

**LeForestier** · 17/12/2007, 14h44

Ce n'est pa à proprement parler de liens, mais de test et suivant le résulat valider les propriétés Enabled.
Mais en premier, a-tu initialiser tes optionbutton convenablement ?
Chaque groupe (de 6) devrait avoir un GroupName différent.
Ex: les 6 Premiers GroupName =FeuilXa
les 6 suivant GroupName =FeuilXb
etc...
Ensuite tu doit faire des test dans la fonction de Classe1
Vois déjà ça et dit...

**RemiT** · 17/12/2007, 14h53

J'ai bien remplacé les checkbox par des optionsbutton...
Pour les Groupname, C'est OK... C l'un ou l'autre... et géré par ligne NIQUEL...

maintenant, les

Code :

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

tests dans la fonction de Classe1

je ne vois pas du tout ce que tu veux dire...

**tirex28** · 17/12/2007, 15h01

Bonjour,

Un petit exemple qu'il te faudra adapter.

Cordialement,

Tirex28/

**RemiT** · 17/12/2007, 15h14

A premiere vue, je devrais pouvoir trouver mon bonheur avec cet exemple...

Merci à tous pour votre aide...

Je suppose que je n'hesite pas si j'ai d'autres questions...

Encore une fois, un grand merci

**RemiT** · 18/12/2007, 15h34

Encore merci pour l'exemple... que j'ai adapté a mon appli...

Maintenant j'ai un autre probleme :

J'ai 2 textboxes pour chaque ligne qui sont censées faire la somme des textboxes qui lui correspondent MAIS JE SAIS PAS FAIRE...

ci-dessous mon code :

mon module de classe...

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
 
Option Explicit
 
Public MesTextBoxGC As Collection
Public MesTextBoxCH As Collection
 
Public WithEvents MonOption As MSForms.OptionButton
 
 
Private Sub Class_Initialize()
    Set MesTextBoxGC = New Collection
    Set MesTextBoxCH = New Collection
End Sub
 
 
Private Sub MonOption_Change()
    Dim tBoxGC As MSForms.TextBox
    Dim tBoxCH As MSForms.TextBox
 
    For Each tBoxGC In MesTextBoxGC
        tBoxGC.Enabled = Not MonOption.Value
    Next
    For Each tBoxCH In MesTextBoxCH
        tBoxCH.Enabled = MonOption.Value
    Next
 
End Sub

et mon Initialisation de formulaire...

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
 
Option Explicit
Dim MaClasse As Poids_GC
Dim MesClasses As Collection
 
Private Sub UserForm_Initialize()
    Dim Item(500) As MSForms.Label
    Dim optButtonGC(500) As MSForms.OptionButton
    Dim optButtonCH(500) As MSForms.OptionButton
    Dim txtBoxGC(500) As MSForms.TextBox
    Dim txtBoxCH(500) As MSForms.TextBox
 
    Dim i As Long, j As Long, toto As Long
 
    compt = 0
    Range("A13").Select
    Do Until ActiveCell.Value = ""
        compt = compt + 1
        ActiveCell.Offset(1, 0).Select
    Loop
    Range("A13").Select
    Set MesClasses = New Collection
 
    With Load_Poids_GC.Frame5
        .ScrollBars = fmScrollBarsVertical
        .ScrollTop = 15
        .Top = 50
        .Left = 6
    End With
 
For toto = 1 To compt
    With Me.Frame5.Controls
'Ajoute le Label ITEM
            Set Item(toto) = .Add("forms.label.1")
            With Item(toto)
                .Top = 14 * toto - 9
                .Left = 10
                .Width = 250
                .Height = 10
                .Font.Size = 9
                .Caption = ActiveCell.Value & " - " & ActiveCell.Offset(0, 1).Value
            End With
'Ajoute le Bouton choix GC
            Set optButtonGC(toto) = .Add("Forms.OptionButton.1")
            With optButtonGC(toto)
                .Top = 14 * toto - 9
                .Left = 260
                .Width = 50
                .GroupName = "Group" & toto
            End With
'Ajoute le Bouton choix Charpente
            Set optButtonCH(toto) = .Add("Forms.OptionButton.1")
            With optButtonCH(toto)
                .Top = 14 * toto - 9
                .Left = 310
                .Width = 50
                .GroupName = "Group" & toto
            End With
            Set MaClasse = New Poids_GC
            MesClasses.Add MaClasse
            Set MaClasse.MonOption = optButtonGC(toto)
            Set MaClasse.MonOption = optButtonCH(toto)
 
'Ajout les poids GC
            For i = 1 To 3
                Set txtBoxGC(toto) = .Add("Forms.TextBox.1")
                With txtBoxGC(toto)
                    .Left = 330 + 45 * i
                    .Top = 14 * toto - 9
                    .Width = 25
                    .Height = 14
                    .Font.Size = 8
                    .Enabled = True
                    Select Case i
                        Case Is = 1
                            .Value = "25"
                        Case Is = 2
                            .Value = "50"
                        Case Is = 3
                            .Value = "25"
                    End Select
                End With
                MaClasse.MesTextBoxGC.Add txtBoxGC(toto)
            Next
'Ajout le total GC
            Set totboxGC(toto) = .Add("Forms.TextBox.1")
            With totboxGC(toto)
                .Left = 72 + 50 * i
                .Top = 14 * toto - 9
                .Width = 30
                .Height = 14
                .Font.Size = 8
                .Value = 100
                .Enabled = True
            End With
            MaClasse.MesTextBoxGC.Add totboxGC(toto)
'Ajout les poids GC
            For j = 1 To 4
                Set txtBoxCH(toto) = .Add("Forms.TextBox.1")
                With txtBoxCH(toto)
                    .Left = 470 + 50 * j
                    .Top = 14 * toto - 9
                    .Width = 25
                    .Height = 14
                    .Font.Size = 8
                    .Enabled = False
                    Select Case j
                        Case Is = 1
                            .Value = "25"
                        Case Is = 2
                            .Value = "25"
                        Case Is = 3
                            .Value = "25"
                        Case Is = 4
                            .Value = "25"
                    End Select
                End With
                MaClasse.MesTextBoxCH.Add txtBoxCH(toto)
            Next
'Ajout le total Charpente
            Set totboxCH(toto) = .Add("Forms.TextBox.1")
            With totboxCH(toto)
                .Left = 72 + 50 * j
                .Top = 14 * toto - 9
                .Width = 30
                .Height = 14
                .Font.Size = 8
                .Value = 100
                .Enabled = False
            End With
            MaClasse.MesTextBoxCH.Add totboxCH(toto)
    End With
 
    optButtonGC(toto).Value = True
    optButtonCH(toto).Value = False
 
    ActiveCell.Offset(1, 0).Select
    If toto < 12 Then
        Me.Height = Me.Height + 14
        Me.Frame5.Height = Me.Frame5.Height + 14
        Load_Poids_GC.Frame5.ScrollHeight = Load_Poids_GC.Frame5.Height + 14
        Load_Poids_GC.Lancer.Top = Load_Poids_GC.Lancer.Top + 14
    Else
        Load_Poids_GC.Frame5.ScrollHeight = Load_Poids_GC.Frame5.ScrollHeight + 14
    End If
 
Next
 
End Sub

Merci pour votre aide...

Gestion d'évènement pour un Userform dynamique

Macros et VBA Excel

Discussions similaires

Partager

Partager