Discussion :

[Vin_SuFu_R@T]

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 :

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

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

[tomy7]

bonjour,

Code :

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

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

[House MD]

Code :

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

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 ?

[tirex28]

Bonjour,

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

Code :

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

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 :

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

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/

[Vin_SuFu_R@T]

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

Merci House MD et Tomy7

[tomy7]

ton prob est il ?

[House MD]

... ChkBx2, on a mis ca comme ca, au hasard, mets le vrai nom de ton second checkbox.

[tirex28]

Re,

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/

[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.

[Vin_SuFu_R@T]

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 :

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
'
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 :

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

1
2
3
Option Explicit
 
Public Collect As Collection

Et pour finir dans le class module

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
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

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 çà.

[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é

[tomy7]

Code :

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

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

[tirex28]

Bonsoir,

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/

[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

[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 :

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

1
2
3
4
with cl 
set .ChkBx=.....
set .ChkBx2=....
end with

Je ne savais pas qu'on pouvais faire comme çà.


Merci Vincent