USF multipage, Afficher page précise

[jpmasclet]

Bonjour à tous,

Je viens de créer un USF multi page (15 onglets) , lorsque je decharge le USF et le réouvre, celui ne s'affiche pas forcement sur la dernière page sur laquelle j'etais.

Ais je la possibilité a la fin de la commande d'enregistrement (une commande par page), d'indiquer de s'affiche sur la page1 ??

Par ailleurs j'en profite au cas ou, savez vous s'il est possible de mettre une couleur sur les onglets multipages ?

Merci

 

[Staple1600]

Re : USF multipage, Afficher page précise

Bonjour

Pour afficher la page 1 du Mutipage

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

 

[jpmasclet]

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

 

[jpmasclet]

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 :

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

Merci encore

 

[jpmasclet]

Re : USF multipage, Afficher page précise

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

 

[jpmasclet]

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 !

 

[Pierrot93]

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 :

Option Explicit
Public x As Byte

ensuite dans le module de l'USF :

lors de l'initilalisation de l'USF

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

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

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
@+

 

[jpmasclet]

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é).

 

[Pierrot93]

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...

@+