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