Multipage et objets

Version imprimable

14/04/2018, 18h15
Booster99x

1 pièce(s) jointe(s)

Multipage et objets

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.
Pièce jointe 370133
14/04/2018, 19h14
patricktoulon

re

re
pas le choix un module classe tu a moulte exmple sur le forum
14/04/2018, 19h26
Booster99x

re

Merci beaucoup, je vais voir ça !
14/04/2018, 19h56
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 8-)

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:

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:

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

15/04/2018, 09h33
Transitoire

1 pièce(s) jointe(s)

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

Pièce jointe 370244
15/04/2018, 10h01
Booster99x

1 pièce(s) jointe(s)

Bonjour,

Effectivement ainsi pas de problème, cependant ma CheckBox est affichée une fois par page et non avant ma MultiPage ! :)

Finalement j'ai décidé de m'amuser à renommer mes 22 contrôles x 8 pages un à un en ajoutant le n° de page à la fin, ce qui me fait : NomClient1, NomClient2, NomClient3, ..., NomClient8

Fastidieux à faire, sachant qu'en plus si je veux utiliser NomClient1_Change(), il ne fonctionnera que pour NomClient1. Je dois donc copier coller et l'adapter aux 8 pages.

Aussi, j'ai gardé une sauvegarde de quand j'utilisais les copies de page, au cas où l'un de vous aurait une solution à mon problème !

Mon explication au dessus sera probablement plus explicite. Avez-vous une idée de comment régler cela ?

Merci ! ;)

Ci-joint, ma sauvegarde : Pièce jointe 370247
15/04/2018, 19h42
Transitoire

1 pièce(s) jointe(s)

Bonsoir, J'ai modifié, maintenant il y a le bouton de choix dans les pages et ça marche!!!
Vous n'avez plus qu'a l'adapter.
Cordialement 8-)

Pièce jointe 370400
15/04/2018, 20h02
Booster99x

1 pièce(s) jointe(s)
Au final j'ai fait la même chose...

Sauf que puisque tous les noms sont différents, lorsque l'on veut modifier une chose... Il faut créer un sub pour chacun.
Du style :
Code:

1 2 3 4 5 6 7 Sub TextBox1_Change() TextBox1.Value = 5 End sub Sub TextBox4_Change() TextBox4.Value = 5 End sub
Ce qui n'est pas pratique quand, comme moi, l'on a ceci :
Pièce jointe 370403

M'enfin, je me débrouille ainsi, même si du coup au lieu de pouvoir n'avoir qu'une seule Sub par contrôle, je dois en avoir 8 pareilles avec juste les names qui changent. :p

Un grand merci à vous !

Cordialement. :D