2 UserForm à l'ouverture, mais...

[800vfr76]

Bonjour a tous,

Je souhaiterais qu'a l'ouverture d'un fichier comportant plusieurs feuilles il y est 2 userform qui s'ouvrent en même temps un petit, et un grand devant, mais ca juste sur la feuille 1, et si j'ouvre le fichier et qu'il se trouve sur la feuille 2 qu'il n'y est que le grand userfom qui s'ouvre.

J'arrive a faire ouvrir le fichier avec les 2 userform qui s'affiche lors de l'ouverture, mais si je suis sur la feuille 2 j'ai les 2 qui s'ouvre aussi.

Si c'est possible quelqu'un peut-il me dire comment je peut faire.

 

[ziopizza]

Re : 2 UserForm à l'ouverture, mais...

Bonjour 800vfr13,
Regarde fichier joint un exemple.
Salut
Yves
Excuse moi 800VFR76

 

[800vfr76]

Re : 2 UserForm à l'ouverture, mais...

Bonjour ziopizza,

C'est presque ca,mais je voudrais que cela ce fasse a l'ouverture du fichier, donc dans "ThisWorkbook"

Comme dans ce fichier.

 

[800vfr76]

Re : 2 UserForm à l'ouverture, mais...

Re,

Euh j'ai du me tromper la.

Je remet le fichier.

 

[800vfr76]

Re : 2 UserForm à l'ouverture, mais...

RE,

Ah ba non alors

 

[ziopizza]

Re : 2 UserForm à l'ouverture, mais...

Re bonjour,
Autre fichier.
Yves

 

[800vfr76]

Re : 2 UserForm à l'ouverture, mais...

Re,

Oui sauf que a chaque fois que j'ouvre le fichier il démarre sur la feuille 1 et je voudrais pouvoir l'ouvrir sur la page sur laquelle j'étais lors du dernier enregistrement.

Si c'est possible, sans vouloir t'embéter non plus.

 

[ziopizza]

Re : 2 UserForm à l'ouverture, mais...

Bonjour,
Suprime ( Sheets("Feuil1").Activate ) dans le workbook_Open.
Salut
Yves

Private Sub Workbook_Open()
UserForm1.Show
UserForm2.Show
Sheets("Feuil1").Activate
End Sub

 

[800vfr76]

Re : 2 UserForm à l'ouverture, mais...

Re,

Non ca marche pas si je fais comme ca, a l'ouverture si je suis sur la feuille 2 j'ai les 2 userforms qui s'ouvrent, et la j'en veux qu'un.

 

[ziopizza]

Re : 2 UserForm à l'ouverture, mais...

re bonjour,
Un autre essai.
Yves

 

[800vfr76]

Re : 2 UserForm à l'ouverture, mais...

Re,

La je comprend plus ton fichier marche comme je veux, mais quand je le met dans mon fichier en faisant un copier coller des macros ca marche aussi, sauf pour l'ouverture sur la feuille 2 ou la il m'ouvre les 2 userforms.

Cela peut-il venir des macro qui sont déja sur dans ces feuilles, j'en doute, je te met le fichier avec les mêmes macro que j'ai dans l'autre fichier.

Pour un fichier ca marche et pour l'autre ca marche pas, pourquoi

 

[ziopizza]

Re : 2 UserForm à l'ouverture, mais...

Bonjour 800vfr76,
Juste une petite inversion dans les userforms.
Voila le fichier corrigé.
Salut
Yves

 

[800vfr76]

Re : 2 UserForm à l'ouverture, mais...

Re,

Ok merci j'ai vu que cela venait des userforms, j'ai refais mon fichier a partir de l'autre et c bon.

Par contre je comprends pas pourquoi si je supprime les userfroms et que j'en importe d'autre cela ne marche plus, pourtant ils ont les mêmes noms, sans doute un espèce de code qu'il ont quand ils sont crées

En tout cas merci de t'être penché sur mon problème.

J'adore ce forum, ou il y a tous ces gents sympas pour dépanner les personnes comme moi.

 

[800vfr76]

Re : 2 UserForm à l'ouverture, mais...

Re,

Par contre n'y a-t-il pas un moyen pour que cela marche si je change le nom des feuilles, sans être obligé d'aller dans la macro pour changer le nom des feuille dans la macro.

 

[Robert]

Re : 2 UserForm à l'ouverture, mais...

Bonjour 800..., Ziopizza, bonjour le forum,

Peut-être comme ça :

If ActiveSheet.Index = 2 Then
Unload UserForm1
End If