userform multipage vba

Version imprimable

02/02/2017, 12h31
phalphaaaa

userform multipage vba

bonjour

j'ai un formulaire de saisie, mon userform constituer de 3 pages est t'il possible que le bouton effacer crier sur la premier page s'affiche dans toutes les pages?????

'Procédure permettant de réinitialiser tous
'les champs du formulaire
'***********************************************
Private Sub btnEffacer_Click()
txtDatedébut = ""
txtCode = ""
txtRégime = ""
txtRéférence = ""
txtImportateur = ""
txtExportateur = ""
txtDésignation = ""
cboTransitaire = ""
cboEtat = ""
txtNb = ""
txtDatedépôt = ""
txtPoids = ""
txtValeur€ = ""
txtlValeurMad = ""
txtDateclôture = ""
cboModetransport = ""
02/02/2017, 14h33
Jean-Philippe André

Bonjour,
2 solutions :
- la plus simple => sortir le bouton effacer de la page (le mettre en dessous)
- la moins facile => dupliquer ton bouton sur chaque page a la main + code VBA a faire
02/02/2017, 15h03
phalphaaaa

c'est fait j'ai sortie le bouton de la page mais il n'a affecte pas ma 2 page doij intégrer les non de mes textbox dans la premier commande???

page 1
Private Sub btnEffacer_Click()
txtDatedébut = ""
txtCode = ""
txtRégime = ""
txtRéférence = ""
txtImportateur = ""
txtExportateur = ""
txtDésignation = ""
cboTransitaire = ""
cboEtat = ""
txtNb = ""
txtDatedépôt = ""
txtPoids = ""
txtValeur€ = ""
txtlValeurMad = ""
txtDateclôture = ""
cboModetransport = ""

page2
CMtxtCode
CMtxtRégime
02/02/2017, 15h47
Jean-Philippe André

D'accord, alors tout va dependre de si tu consideres que
- cliquer sur le bouton vide les controles de la page en cours
ou
- cliquer sur le bouton vide les controles de toutes les pages
02/02/2017, 17h58
phalphaaaa

clique est égale a la page en cour uniquement.

Dans ce cas il faut que tu fasses un

Code:

1
2
3
4
5
6
Select Case Me.MultiPage1
Case 1:
'tes controls page 1
Case 2:
'tes controls page 2
End Select

donc mon code doit étre écrit comme suite:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 
Private Sub btnEffacer_Click()
Select Case Me.MultiPage1
'tes controls page 1
Case 1:
txtDatedébut = ""
    txtCode = ""
    txtRégime = ""
    txtRéférence = ""
    txtImportateur = ""
    txtExportateur = ""
    txtDésignation = ""
    cboTransitaire = ""
    cboEtat = ""
    txtNb = ""
    txtDatedépôt = ""
    txtPoids = ""
    txtValeur€ = ""
    txtlValeurMad = ""
    txtDateclôture = ""
    cboModetransport = ""
 
 
Case 2:
'tes controls page 2
txtCode = ""
   CMtxtRégime = ""
   CMtxtRéférence = ""
    CMtxtImportateur = ""
    CMtxtExportateur = ""
    CMtxtDésignation = ""
    CMcboTransitaire = ""
.....................................
End Select
End Sub