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

[Booster99x]

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 : Projet 1 - Ancien.xlsm

[Transitoire]

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




MultiPage.xlsm

[Booster99x]

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 :

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

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 :


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.