Discussion :

[Antispyware]

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 !

[Invité]

Bonjour,

Code :

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

1
2
Public WithEvents Peint As MSForms.CheckBox
PublicWith Events Pei As MSForms.Frame

je vois ta CheckBox, ta Frame mais pas ton mufti page!

[patricktoulon]

Bonjour
exemple
dans ton userform:
pour l'exemple j'ai mis 3 checkbox et 3 frames dans chaque page du multipage

l'avantage d'utiliser for each ctrl in me.controls est que l'on a pas besoins de connaitre le parent du controls il est quand même bien identifié
tandis que me.controls(peinture"& x) sera pas pris en compte car les controls sont dans le multipage et donc c'est le multipage le parent


code userform

Code :

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

1
2
3
4
Dim cls As New classepaint
Private Sub UserForm_Activate()
cls.init Me
End Sub

dans le module classe ( je l'ai appelé "classepaint")

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
Public WithEvents Peint As MSForms.CheckBox
Public WithEvents Pei As MSForms.Frame
Dim ct(200) As New classepaint
Function init(usf)
    For Each ctrl In usf.Controls
        If ctrl.Name Like "peinture*" Then
            Debug.Print ctrl.Name
            i = i + 1: Set ct(i).Peint = ctrl: Set ct(i).Pei = usf.Controls(Replace(ctrl.Name, "peinture", "Frame"))
            usf.Controls(Replace(ctrl.Name, "peinture", "Frame")).Visible = False
        End If
    Next
End Function
Private Sub Peint_Click()
    Pei.Visible = Peint
End Sub

demo

[Antispyware]

Alors merci à vous 2 pour commencer,
En utilisant ton code patricktoulon, cela fonctionne parfaitement.
Pour une question d'optimisation, sachant que j'ai environ 300 controls sur mon userform, je ne souhaitais pas passer par For each ctrl...
Penses tu que cela ralenti réellement le code ?

et une dernière petite question subsidiaire, j'ai essayer de rajouter une ligne du même type, avec cette fois-ci une autre checkbox qui fait apparaitre un label avec une textbox...
Je me retrouve avec une "incompatibilité de type"...

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
 
Public WithEvents So As MSForms.CheckBox
Public WithEvents LSoD As MSForms.Label
Public WithEvents SoD As MSForms.TextBox
 
Function init(usf)
    For Each ctrl In usf.Controls
        If ctrl.Name Like "Peinture*" Then
            Debug.Print ctrl.Name
            i = i + 1: Set ct(i).Peint = ctrl: Set ct(i).Pei = usf.Controls(Replace(ctrl.Name, "Peinture", "Pein"))
            usf.Controls(Replace(ctrl.Name, "Peinture", "Pein")).Visible = False
        End If
 
        If ctrl.Name Like "Soudure*" Then
            Debug.Print ctrl.Name
            j = j + 1: Set ct(j).So = ctrl: Set ct(j).LSoD = lbl: Set ct(j).SoD = usf.Controls(Replace(ctrl.Name, "Soudure", "SoudureDate"))
            usf.Controls(Replace(ctrl.Name, "Soudure", "SoudureDate")).Visible = False
        End If
    Next
End Function

Ma check box s'appelant Soudure*
mon label : LsoudureDate
et ma textbox : SoudureDate

Merci d'avance !

[patricktoulon]

re
c'est normal
ici il doit y avoir méprise sur le type de control car le teste like sur "soudure*" donne oui pour les deux forcement et comme LSOD,SO,SOD SONT SENSE ETRE DES TYPE DE CONTROL DIFFERENTS forcement ca plantouille

Code :

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

1
2
3
4
5
If ctrl.Name Like "Soudure*" Then
            Debug.Print ctrl.Name
            j = j + 1: Set ct(j).So = ctrl: Set ct(j).LSoD = lbl: Set ct(j).SoD = usf.Controls(Replace(ctrl.Name, "Soudure", "SoudureDate"))
            usf.Controls(Replace(ctrl.Name, "Soudure", "SoudureDate")).Visible = False
        End If

il te faut certainement revoir ce test

Code :

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

If ctrl.Name Like "Soudure*" Then

[Antispyware]

Bonjour Patrick,
Merci pour ta réponse,
J'ai enfin pu résoudre mon problème
2 solutions s'offraient à moi, soit je changeais le nom de SoudureDate par un autre genre SoudurDate, histoire que mon Like"Soudure*" ne le vérifie pas.
Soit remplacer le "Soudure*" par "Soudure#" & +1 par exemple (vu que # ne gère que les nombre de 0 à 9, les miens allant de 1 à 10.

Merci encore pour ton aide
Cordialement