Discussion :

[GoFio]

Bonjour, j'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Click()
        Dim nbseq As Integer, m As Integer
 
        nbseq = calculernbseq()
        For m = 1 To nbseq
            If Controls("CheckboxTemps" & m).Value = False Then
                Controls("TextBoxTemps" & m).Text = "0"
            End If
        Next
End Sub

Il fonctionne, cependant je suis obligé de cliquer sur la userform pour que le 0 s'affiche.
J'aimerais que cela se mette à jour automatiquement lorsque je décoche la checkbox

J'ai remplacé UserForm_Click() par UserForm_MouseUp() mais cela ne foncionne pas.

Connaissez vous une astuce pour que cela s'actualise automatiquement sachant que je ne peut pas utiliser le CheckBox_Click car les checkbox sont crées dynamiquement.

Merci!

[defluc]

Bonjour,

Essaies

Code :

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

MonUserForm.Repaint

[GoFio]

Merci de ta réponse.
J'ai testé : Me.Repaint
Mais en fait le problème reste le même puisque l'actualisation de la userform sera effectuer si on clic dessus.

Il faudrait que une sorte de clique fictif

[defluc]

J'aimerais que cela se mette à jour automatiquement lorsque je décoche la checkbox

Utilises donc un des évènements de la checkBox.

[GoFio]

La chexbox est dénifit comme ça.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Set Obj = UserForm3.Controls.Add("forms.checkbox.1")
        With Obj
            .Name = "CheckboxTemps" & i
            .Left = 372 
            .Top = 24 * i + 16 
            .Width = 35 
            .Height = 14 
            .Value = True
            .Font.Size = 8
            .Enabled = False
        End With

Donc, je peux pas utiliser CheckBox_Click, je n'y ai pas accès en faisant un double clique dessus depuis la userform.
C'est une boucle, donc mon problème es pour chaque texte box.

[defluc]

Je ne comprends pas

Donc, je peux pas utiliser CheckBox_Click, je n'y ai pas accès en faisant un double clique dessus depuis la userform.

Une fois la CheckBox créée, elle est "cliquable".
A quoi cela servirait-il de créer une CheckBox si elle n'es pas utilisable.
Il faut donc créer le code évènementiel qui doit lui être associer à la suite du code qui crée la CheckBox proprement dite.
Code du genre

Code :

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

1
2
3
4
5
6
 Code = "Private Sub CheckboxTemps" & i & "_Click() & Chr(10)
  Code = Code & "  ' ton code" & Chr(10)
  Code = Code & "End Sub"
  With UserForm3.CodeModule
    .InsertLines .CountOfLines + 1, Code
  End With

Cordialement

[GoFio]

Merci Beaucoup !

Je ne savais pas que l'on pouvais déclarer les choses ainsi, qui varient en fonction de i:

Code :

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

Private Sub CheckboxTemps" & i & "_Click() & Chr(10)

Par contre du coup j'étais partis sur autre chose, et j'avais laissé tomber cette piste.
Donc je ne peux pas non plus tester ta proposition.

Je passe quand même le sujet en résolu ?

[Theze]

Bonsoir,

Dans ton cas, j'utiliserai un module de classe de façon à rendre commune à toutes les CheckBox la procédure évènementielle et éviter la boucle.
A mettre dans le 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
 
Public WithEvents GroupeChk As MSForms.CheckBox
 
Private Sub GroupeChk_Click()
 
    If GroupeChk.Value = False Then
 
        UserForm3.Controls("TextBoxTemps" & GroupeChk.Tag).Text = 0
 
    Else
 
        UserForm3.Controls("TextBoxTemps" & GroupeChk.Tag).Text = ""
 
    End If
 
End Sub

A mettre dans le module de ta Form :

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
 
Dim TblChk() As New Classe1 'A mettre en tête de module
 
Private Sub UserForm_Initialize()
 
    Dim Obj As Control
    Dim I As Integer
 
 
    For I = 1 To 3 '<--adapter au nombre voulu !
 
        Set Obj = UserForm3.Controls.Add("forms.checkbox.1")
 
        With Obj
 
            .Name = "CheckboxTemps" & I
            .Left = 372
            .Top = 24 * I + 16
            .Width = 35
            .Height = 14
            .Value = True
            .Font.Size = 8
            .Enabled = True
            .Tag = I
 
        End With
 
        ReDim Preserve TblChk(1 To I)
        Set TblChk(I).GroupeChk = Obj
 
    Next I
 
End Sub

Hervé.

[GoFio]

Merci Hervé !