Discussion :

[Booster99x]

Bonjour,

Actuellement, je travaille en VBA et j'ai créé une MultiPage, dans celle-ci il y a 8 pages identiques.
Afin de ne pas avoir des noms aléatoires (TextBox87, ...) j'ai renomé les objets de chaque page avec le même nom que sur la 1ère page (j'ai donc 8 pages avec NomClient, ...).

Sauf qu'il me faut une CheckBox qui active/désactive d'autres objets.
Cette checkbox fonctionne sur la première page, pas sur les 7 suivantes. (testé avec une msgbox pour afficher un message, elle ne s'active que sur la 1ère page)
Comment donc faire pour que mon "sub CheckBox_Change()" fonctionne sur chaque page... ?
Auriez vous une idée ?

Merci !

Ci-joint, une démonstration du problème.

[patricktoulon]

re
pas le choix un module classe tu a moulte exmple sur le forum

[Booster99x]

Merci beaucoup, je vais voir ça !

[Transitoire]

Bonsoir, tout ça manque d'explications. Qu'est censée faire cette Check box, quel est le code que vous y avez entré? Il faudrait plus de détails
Pouvez vous nous copier les codes du UF, si UF il y a? sinon qu'y a t-il?
Cordialement

[Booster99x]

Bonjour,

Cette CheckBox est sensée activée les contrôles se trouvant en dessous, ils sont désactivés de base.

Ce que j'ai entré comme code :

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
Private Sub CheckAccidentsCorporels_Change()
 
    MsgBox "hello"
    If CheckAccidentsCorporels.Value = True Then
        ComboBoxProfessions.Enabled = True
        CapitalMort.Enabled = True
        CapitalInvalidite.Enabled = True
        CapitalIndemnite.Enabled = True
    Else
        ComboBoxProfessions.Enabled = False
        CapitalMort.Enabled = False
        CapitalInvalidite.Enabled = False
        CapitalIndemnite.Enabled = False
    End If
 
End Sub

La MsgBox me sert de test pour savoir si finalement cela fonctionne ou non.

Les contrôles se trouvant sur les autres pages au lancement du programme ont été copiées, à partir de la première page, de cette manière :

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
21
MultiPage1.Pages(0).Controls.Copy
    a = 0
 
    For Each ctl In MultiPage1.Pages(0).Controls
            a = a + 1
            l(a) = ctl.Left
            r(a) = ctl.Top
            ctlname(a) = ctl.Name
    Next
 
    For i = 1 To 7
        MultiPage1.Pages(i).Paste
 
        a = 0
        For Each ctl In MultiPage1.Pages(i).Controls
            a = a + 1
            ctl.Left = l(a)
            ctl.Top = r(a)
            ctl.Name = ctlname(a) & i
        Next
    Next

Merci

[Transitoire]

Bonjour, je viens de faire un test et chez moi ça marche?
Cordialement

MultiPage.xlsm