USF multipage, Afficher page précise

Staple1600

XLDnaute Barbatruc

• 19 Novembre 2008

• #2

Re : USF multipage, Afficher page précise

Bonjour

Pour afficher la page 1 du Mutipage

Code:

Private Sub UserForm_Initialize()
Me.MultiPage1.Value = 0
End Sub

 

Vote positif 0 Vote négatif

J

jpmasclet

XLDnaute Occasionnel

• 19 Novembre 2008

• #3

Re : USF multipage, Afficher page précise

Merci pour ta réponse sa fonctionne effectivement pour la page 1 mais ça ne marche pas pour les 15 pages suivantes (j'ai essayé pour la secodne page, la valeur 1 ou 2 mais niet ...)

Une idée ?
Merci

 

Vote positif 0 Vote négatif

J

jpmasclet

XLDnaute Occasionnel

• 19 Novembre 2008

• #4

Re : USF multipage, Afficher page précise

Je viens de voir ce que tu m'avais indiqué comme code et j'avais lu trop rapidement, il ne faut pas que ec soit dans initialize mais dans mon boutton d'enregistrement (un bouton par page).

La fin de mon code est comme ça :

Code:

 frm_gestionnaire.Hide
    'on décharge le formulaire
 Set frm_gestionnaire = Nothing
  
frm_gestionnaire.Show

Merci encore

 

Vote positif 0 Vote négatif

J

jpmasclet

XLDnaute Occasionnel

• 21 Novembre 2008

• #5

Re : USF multipage, Afficher page précise

¨Personne n'a une idée ?
Merci et bon week end

 

Vote positif 0 Vote négatif

J

jpmasclet

XLDnaute Occasionnel

• 24 Novembre 2008

• #6

Re : USF multipage, Afficher page précise

J'ai toujours pas trouver de solution à soucis, avez vous une idée au cas ou ??

Merci par avance !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Novembre 2008

• #7

Re : USF multipage, Afficher page précise

Bonjour jpmasclet, Jean-Marie

peut être comme ceci, avec utilisation d'une variable "public", code ci dessous à placer dans un module standard :

Code:

Option Explicit
Public x As Byte

ensuite dans le module de l'USF :

lors de l'initilalisation de l'USF

Code:

Private Sub UserForm_Initialize()
MultiPage1.Value = x
End Sub

et Evénement change du "multipage", réinitialisation de la variable

Code:

Private Sub MultiPage1_Change()
x = MultiPage1.Value
End Sub

la valeur de la variable est conservée / modifiée tant que le classeur est ouvert.

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

J

jpmasclet

XLDnaute Occasionnel

• 24 Novembre 2008

• #8

Re : USF multipage, Afficher page précise

Bonjour et merci pour ta réponse, je vais essayer ça demain matin !
Neanmoins peux tu m'indiquer si cela ne risque pas de poser de soucis dans la mesure ou mon USF est utilisé simulatanement par 20 personnes.

Le USF est dans un xla, appelé a travers un fichier que chaque utilisateur possède.

(Les enregistrement vont donc donc le fichier de l'utilisateur concerné).

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Novembre 2008

• #9

Re : USF multipage, Afficher page précise

Re

Si ta macro complémentaire est installé sur un serveur, je ne sais pas, pas d'expérience sur le sujet... Mais il y a des risques que cela pose problème...
A tester donc, tu nous diras...

@+

 

Vote positif 0 Vote négatif