Gestion d'évènements sur Checkbox Dynamique

Version imprimable

Bonjour à tous,

Voilà 3 jours que je commence à manipuler ce nouveau langage, et j'avoue tomber sur une coquille.

L'idée est la suivante :

Je génère de façon dynamique (selon le chiffre entré par l'utilisateur) plusieurs choses (sur un seul et même Frame) dont une CheckBox qui se nomme" CB_NIV1".

Je souhaiterai déclencher l'affichage d'autres choses une fois que cette CheckBox ( CB_NIV1) est validée. Ce n'est surement pas une bonne façon de procéder, mais étant débutant, la gestion de mes affichages dynamiques ne se font pas à l'aide de classeS ou autre.

En fouillant un petit peu sur internet, j'ai bien compris que j'allais de toute façon devoir faire face à cette histoire de classe, ducoup, j'ai tenté mais pas je n'ai pas eus le succès escompté haha..

Alors voilà mon code inséré dans mon userform, avec également la déclaration de mon Frame:
Code:

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 Dim FRM As MSForms.Frame Dim CB_PRESENCE_SOUS_COMPTEURS_N2 As MSForms.CheckBox ' Creation du cadre affichant les compteurs principaux Set FRM = Controls.Add("forms.frame.1", "FRM_N1_" & i, Visible = True) With FRM .Top = PosY .Left = 0 .Height = 100 .Width = 450 .Caption = "Niveau 1-Entrez le nombre de sous compteurs de niveau 2 pour chaque compteurs de niveau 1" End With ' Placement d'CB si présence de sous compteurs de niveau3 Set CB_PRESENCE_SOUS_COMPTEURS_N2 = FRM.Controls.Add("forms.checkBox.1", "CB_NIV1", Visible = True) With CB_PRESENCE_SOUS_COMPTEURS_N2 .Top = 50 .Left = 200 .Height = 20 .Width = 180 .Caption = "Présence de sous compteurs de niveau 3" Dim Action As New Classe1 Set Action.CB_EVENT = FRM.Controls("CB_NIV1") End With
Et voici le code de ma classe intitulée Classe1
Code:

1 2 3 4 5 6 7 8 9 Option Explicit Public WithEvents CB_EVENT As MSForms.CheckBox Private Sub CB_EVENT_click() MsgBox ("Clickezzzzzzzzzzzzzzzzzzzzzzzzzzzzzd !") End Sub
Et toute logique, je devrais avoir un Msg suite au cochage de ma CB mais ce n'est pas le cas !!

Voila voila il y a surement des abérrations dans mon code mais bon, se sont les débuts !

Merci d'avance !!!!!!!!!!!!!

1 pièce(s) jointe(s)

Bonjour,

Une piste avec la démarche suivante
1) Créez un UserForm1
2) Copiez le code suivant dans la fenêtre de code du UserForm

Code:

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
Dim ColCheckBox As New Collection
 
Private Sub UserForm_Initialize()
Dim obEvents As clsControlsEvents
Dim CTL As MSForms.Control
Dim FR As MSForms.Frame
Dim CB As MSForms.CheckBox
Dim i&
'--- Frame dynamique ---
Set FR = Me.Controls.Add("Forms.Frame.1")
'--- CheckBoxes dynamiques ---
For i& = 1 To 3
  Set CB = FR.Controls.Add("Forms.CheckBox.1")
  CB.Caption = "Toto " & i&
  CB.Top = FR.Top + (15 * i&)
Next i&
'--- Evènement des CheckBoxes ---
For Each CTL In Me.Controls
  If TypeOf CTL Is MSForms.CheckBox Then
    Set obEvents = New clsControlsEvents
    Set obEvents.CBx = CTL
    Set obEvents.USF = Me
    ColCheckBox.Add obEvents
  End If
Next CTL
End Sub

3) Créez un module de Classe et renommez le clsControlsEvents
4) Copiez le code suivant dans le module de Classe

Code:

1
2
3
4
5
6
7
8
Public WithEvents CBx As MSForms.CheckBox
Public USF As UserForm
 
Private Sub CBx_Click()
MsgBox "Name : " & CBx.Name & vbLf & _
       "Caption : " & CBx.Caption & vbLf & _
       "Value : " & CBx.Value
End Sub

5) Dans un module Standard, copiez le code suivant

Code:

1
2
3
Sub aa()
UserForm1.Show
End Sub

Lancez la macro aa

16/06/2015, 10h00
pinhut

Merci beaucoup pour ta réponse!

En effet ton code marche parfaitement et me renvoie bien l'état de ma checkBox. Cependant je ne parviens pas à déclencher l'affichage d'un autre cadre ou serait encore fixée une autre CheckBox juste en dessous de la première.

Il faudrait idéalement que je puisse récupérer l'état de la CheckBox là ou est mon code du UserForm, histoire de pouvoir poser une condition du type

If CheckBox.Valeur=True then
'' Déclencher affichage d'un cadre avec une CheckBox d'attachée.

J'ai tenté de déclencher ce type d'affichage là ou je pensais pouvoir récupérer l'état de la CheckBox (là ou est codé la classe clsControlsEvents) mais sans succès. Si quelqu'un à une idée !

Citation:

Cependant je ne parviens pas à déclencher l'affichage d'un autre cadre ou serait encore fixée une autre CheckBox juste en dessous de la première.

Je suppose que "autre cadre" signifie "autre Frame".
Si c'est bien le cas, changez le code du UserForm (et rien d'autre) par le code suivant

Code:

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
Dim ColCheckBox As New Collection
 
Private Sub UserForm_Initialize()
Dim obEvents As clsControlsEvents
Dim CTL As MSForms.Control
Dim FR As MSForms.Frame
Dim CB As MSForms.CheckBox
Dim i&
'--- Frame dynamique ---
Set FR = Me.Controls.Add("Forms.Frame.1")
'--- CheckBoxes dynamiques ---
For i& = 1 To 3
  Set CB = FR.Controls.Add("Forms.CheckBox.1")
  CB.Caption = "Toto " & i&
  CB.Top = FR.Top + (15 * i&)
Next i&
'##############
'--- 2ème Frame dynamique ---
Set FR = Me.Controls.Add("Forms.Frame.1")
 FR.Top = 80
'--- CheckBoxes dynamiques ---
For i& = 1 To 2
  Set CB = FR.Controls.Add("Forms.CheckBox.1")
  CB.Caption = "Zaza " & i&
  CB.Top = FR.Top + (15 * i&)
Next i&
'##############
'--- Evènement des CheckBoxes ---
For Each CTL In Me.Controls
  If TypeOf CTL Is MSForms.CheckBox Then
    Set obEvents = New clsControlsEvents
    Set obEvents.CBx = CTL
    Set obEvents.USF = Me
    ColCheckBox.Add obEvents
  End If
Next CTL
End Sub

16/06/2015, 11h08
pinhut

Merci pour la rapidité de la réponse !
Oui en effet le cadre correspond au Frame.
Alors soit je ne suis pas doué, ou bien aveugle, mais le deuxième cadre ne s'affiche pas !

Et ce que je souhaite faire c'est conditionner le deuxième affichage. Dans le cas de votre code, ce serait faire, algorithmiquement parlant: If CheboxToto1=True ( est cochée) then '' Affichage deuxième frame avec checkBox

Rectification, j'ai bien en effet l'affichage du deuxième Frame, mais maintenant j'essaye de conditionner son affichage ( voir message précédent)
16/06/2015, 11h16
Invité

Bonjour,
pourquoi tester If CheckBox.Value=True then alors fram1.visible=CheckBox.value suffit

1 pièce(s) jointe(s)

Citation:

Et ce que je souhaite faire c'est conditionner le deuxième affichage. Dans le cas de votre code, ce serait faire, algorithmiquement parlant: If CheboxToto1=True ( est cochée) then '' Affichage deuxième frame avec checkBox

Voir la pièce jointe où les codes de UserForm1 et clsControlsEvents ont été modifiés

clsControlsEvents :
Code:

1 2 3 4 5 6 7 8 9 Public WithEvents CBx As MSForms.CheckBox Public USF As UserForm Private Sub CBx_Click() If CBx.Caption = "Toto" Then USF.Frame2.Visible = CBx.Value 'MsgBox "Name : " & CBx.Name & vbLf & _ ' "Caption : " & CBx.Caption & vbLf & _ ' "Value : " & CBx.Value End Sub
UserForm1 :
Code:

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 Dim ColCheckBox As New Collection Private Sub UserForm_Initialize() Dim obEvents As clsControlsEvents Dim CTL As MSForms.Control Dim FR As MSForms.Frame Dim CB As MSForms.CheckBox Dim i& '--- 1ère Frame dynamique --- Set FR = Me.Controls.Add("Forms.Frame.1") '--- CheckBoxe dynamique --- Set CB = FR.Controls.Add("Forms.CheckBox.1") CB.Caption = "Toto" CB.Top = FR.Top + 15 '############## '--- 2ème Frame dynamique --- Set FR = Me.Controls.Add("Forms.Frame.1") FR.Top = 80 FR.Visible = False '--- CheckBox dynamique --- Set CB = FR.Controls.Add("Forms.CheckBox.1") CB.Caption = "Zaza" CB.Top = FR.Top + 15 '############## '--- Evènement des CheckBoxes --- For Each CTL In Me.Controls If TypeOf CTL Is MSForms.CheckBox Then Set obEvents = New clsControlsEvents Set obEvents.CBx = CTL Set obEvents.USF = Me ColCheckBox.Add obEvents End If Next CTL End Sub
Je ne vais pas plus loin car je ne suis pas en situation.
Mon propos est de fournir des pistes et c'est à vous, qui êtes en situation, d'extrapoler et de faire évoluer le programme.

Bon courage.

16/06/2015, 17h52
pinhut

Une fois adapté cela marche parfaitement !!! Vous êtes super, merci !!