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