Module de classe et automatisation

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:

---

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:

---

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 !

Bonjour,

Code:

---

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!

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:

---

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:

---

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
Pièce jointe 269163

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:

---

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 !

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:

---

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:

---

If ctrl.Name Like "Soudure*" Then

---

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