Discussion :

[phalphaaaa]

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 = ""

[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

[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

[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

[phalphaaaa]

clique est égale a la page en cour uniquement.

[Jean-Philippe André]

Dans ce cas il faut que tu fasses un

Code :

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

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