Bonjour à tous,
Je viens vers vous aujourd'hui pour vous demander de l'aide sur les modules de classe !
J'ai une multipage avec 1 checkbox (Pein(1 à 10) )par page et une frame ( Peinture (1 à 10)) qui s'affiche si la case est cochée et inversement.
Voici le code dans mon module de classe:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Public WithEvents Peint As MSForms.CheckBox
Public WithEvents Pei As MSForms.Frame
 
Private Sub Peint_Click()
Pei.Visible = Peint
End Sub
et dans mon userform :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
For i = 1 To 10
ReDim Preserve cls(i)
    Set cls(i).Peint = Me.Controls("Peinture" & i)
    Set cls(i).Pei = Me.Controls("Pein" & i)
    cls(i).Pei.Visible = False
Next
end sub
Le problème est qu'avec ce code, seule les pages 1 et 2 fonctionnent, après j'ai beau cliquer sur la checkbox 3 par exemple, rien ne se passe !
Je ne comprend pas du tout pourquoi....

Merci d'avance pour votre aide !