[Evenement Dynamique] Checkbox

Version imprimable

Bonjour,

J'ai une petite question :
Comment faire pour qu' un checkbox n°1 va "checker" un checkbox n°2 le tous en dynamique?

A l'heure actuel j'arrive a créer un évenement pour un control mais impossible que l'évenement de ce control agisse sur un autre control.

Dans mon class modul :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit Public WithEvents ChkBx As MSforms.CheckBox Private Sub ChkBx_Click() MsgBox ChkBx.Name & ": " & ChkBx.Value If ChkBx.Name = "CheckboxFR1" Then MsgBox "TOTO" End If End Sub
Merci

05/02/2008, 14h52
tomy7

re

bonjour,

Code:

if checkbox1.value = true then checkbox2.value = true

Code:

1
2
3
4
5
6
Public WithEvents ChkBx As MSforms.CheckBox
 
 
Private Sub ChkBx_Click()
 If ChkBx.Name = "CheckboxFR1" and ChkBx.value=true Then ChkBx2.value=true
End Sub

Non ?

Bonjour,

Si j'ai bien compris, ton module de classe:

Code:

1
2
3
4
5
6
7
8
9
Option Explicit
 
Public WithEvents ChkBx1 As MSforms.CheckBox 'Pour recuperer l'evenement
 
Public ChkBx2 As MSforms.CheckBox 'Un autre objet
 
Private Sub ChkBx1_Click()
        Msgbox ChkBx2.Value
End Sub

L'utilisation du module:

Code:

1
2
3
4
5
6
7
Dim M As NomModule
 
Set M = New NomModule
With M
    Set .ChkBx1 = CheckBox1
    Set .ChkBx2 = CheckBox2
End With

Cordialement,

Tirex28/

05/02/2008, 15h24
Vin_SuFu_R@T

No désolé sa fonctionne pas.
==> Variable non défini pour ChkBx2.

Merci House MD et Tomy7
05/02/2008, 15h32
tomy7

re

ton prob est il :resolu:?
05/02/2008, 15h34
House MD

... ChkBx2, on a mis ca comme ca, au hasard, mets le vrai nom de ton second checkbox.
05/02/2008, 15h41
tirex28

Re,

Citation:

Comment faire pour qu' un checkbox n°1 va "checker" un checkbox n°2 le tous en dynamique?
...
No désolé sa fonctionne pas.
==> Variable non défini pour ChkBx2.

Tu parle d'objets dynamiques mais s'agit il d'objets que tu ajoute a l'execution ou simplement d'objets créés au moment de la conception mais que tu veux pouvoir choisir a l'execution?

Précise un peu le contexte stp et montre nous le code de ton module de classe ainsi que le code qui y fait appel.

Cordialement,

Tirex28/
05/02/2008, 16h34
zebulon2212

Je pense que tu voulai faire un type chkbox générique pour récupéré l'evennement.
Dis moi si je me trompe.

Je n'arrive pas trop a saisir le fonctionnement du class modul.

Voici ce que j'ai fais :
Dans mon userform : ==> Création d'un formulaire dont les pages s'incrément dynamiquement ainsi que les controles qui si trouvent. Dans mon cas des checkbox.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
'
Dim Cl As Class1
Set Collect = New Collection
 
'Compteur d'onglet dans le Multipage1 :
 
k = MultiPage1.Pages.Count
 
'Configuration du Multipage1
 
With MultiPage1
        .MultiRow = True
End With
Dim Pge As Page
 Dim p As Page
 Dim k As Integer
 
'Ajoutter une nouveau onglet ROSE sur le multipage :
 
Case "ROSE ":
 
Set Pge = UserForm1.MultiPage1.Pages.Add("ROSE n°" & k)
Set p = MultiPage1.Pages(k)
 
With Pge
    .ScrollHeight = 750
    .ScrollBars = fmScrollBarsVertical
    .TransitionEffect = fmTransitionEffectCoverLeftDown
    .TransitionPeriod = 1000
End With
 
 'Création de l'ensemble des images et des checkBox:
 
For i = 1 To 11
Set cb1 = p.Controls.Add("forms.Checkbox.1", "CheckboxFR" & i, True)
Set Im1 = p.Controls.Add("forms.Image.1", "ImageFR1" & i, True)
 
 
 With cb1     'Position des CheckBox dans l'onglet
            .Left = 66
            .Top = 60 * (i - 1) + 45
            .Width = 90
            .Height = 40
            End With
 
             With Im1     'Position des Images dans l'onglet
            .Left = 12
            .Top = 60 * (i - 1) + 30
            .Width = 50
            .Height = 50
            End With
Next 
'ajout de l'objet dans la classe
    Set Cl = New Class1
    Set Cl.ChkBx = cb1
    Collect.Add Cl

Dans le module :

Code:

1
2
3
Option Explicit
 
Public Collect As Collection

Et pour finir dans le class module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Public WithEvents ChkBx As MSforms.CheckBox
 
 
 
Private Sub ChkBx_Click()
 
    MsgBox ChkBx.Name & ": " & ChkBx.Value ' Quand je selection un checkbox il m'affiche son nom et sa valeur dans un msgbox
 
        If ChkBx.Name = "CheckboxFR1" Then 'Si le checkbox que je "Checke" est le checkbox de nom "CeckboxFR1" alors affiche  "TOTO"
 
 
        MsgBox "TOTO"
        End If
End Sub

Dans mon cas si je remplace le "MSGBOX "TOTO" par la condition CheckboxFR2.value=1 ==>> Message d'erreur comme quoi CheckboxFR2 n'est pas definie.

De mon point de vue c'est un probleme de lisibilité mais là. Je manque d'expérience et surtout je débute véritablement en programmation.

J'espère que les informations que j'ai apporté pourra avancer les choses.

Merci Vincent

Citation:

Envoyé par zebulon2212

Je pense que tu voulai faire un type chkbox générique pour récupéré l'evennement.
Dis moi si je me trompe.

Oui je crois c'est çà.

05/02/2008, 16h45
zebulon2212

il faut que tu definisse l'evenement dans le module de classe
Par defaut chkbox_Click() il ne connait pas
regarde dans la FAQ de VB6 c'est plutot bien expliqué

si tu fais

Code:

1
2
 If ChkBx.Name = "CheckboxFR1" Then _
CheckboxFR2.value = true

06/02/2008, 04h48
tirex28

1 pièce(s) jointe(s)

Bonsoir,

Citation:

Dans mon cas si je remplace le "MSGBOX "TOTO" par la condition CheckboxFR2.value=1 ==>> Message d'erreur comme quoi CheckboxFR2 n'est pas definie.

De mon point de vue c'est un probleme de lisibilité mais là. Je manque d'expérience et surtout je débute véritablement en programmation.

C'est parce que l'objet CheckboxFR2 n'existe que dans le module du formulaire et pas dans le module de classe, tu as donc tout compris.

Ton module de classe ne connaissant que sa variable ChkBx, c'est en passant par cette variable que tu peux manipuler l'objet qu'elle désigne pour par exemple vérifier le nom de cet objet.

Si maintenant tu veux qu'en cliquant sur le CheckboxFR1, la valeur de CheckboxFR2 soit modifié il faut déclarer une autre variable dans ton module de classe afin de désigner ce deuxieme objet.

Ci-joint un petit exemple reprenant l'essentiel de ton code.

Cordialement,

Tirex28/
06/02/2008, 09h42
Vin_SuFu_R@T

Bonjour tous le monde,

Je vous remercie pour votre aide.
Je vais regarder la FAB de VB6 et je regarde le fichier que Tirex28 ma passé.
Je vous tiend au courant et je de mes résultat.

Merci

Vincent
06/02/2008, 10h56
Vin_SuFu_R@T
C'est bon trouver l'erreur.
J'ai mis l'ajout de mon module dans ma boucle FOR de création de mes controls (Cb1...).Plus précisement à la fin de ma boucle juste avant le NEXT.
Et c'est çà la cause de mon erreur.
"ChkBx2" ne pouvait pas être visible vue que le CheckboxFR2 n'existait pas encore vue que i=1. L'incrémentation ne pouvait pas bien fonctionner.

Une erreur bête !

Merci pour votre aide et Tirex28 j'aime bien ta méthode :
Code:

1 2 3 4 with cl set .ChkBx=..... set .ChkBx2=.... end with
Je ne savais pas qu'on pouvais faire comme çà.

Merci Vincent