Actualiser une UserForm

Bonjour, j'ai le code suivant :

Code:

---

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!

Bonjour,

Essaies

Code:

---

MonUserForm.Repaint

---

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

Citation:

---

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

---

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

La chexbox est dénifit comme ça.

Code:

---

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.

Je ne comprends pas

Citation:

---

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:

---

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

Merci Beaucoup !

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

Code:

---

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 ?

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:

---

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:

---

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

Merci Hervé !