Jeu d'Usf - faire disparaitre le premier !!!

[titilex]

Bonjour,

J'ai un petit soucis sur une des mes applications Excel.
Voila à l'ouverture du fichier j'ai un Usf qui demande qq renseingment
Selon la réponse cela appel un autre Usf.
Mon problème est que quand l'autre Usf apparait, j'ai tjs le premier qui est la...
Je voudrais qu'à l'ouverture du deuxième Usf, le premier disparaisse...
Que faut-il comme code ?
Merci pour l'aide qu'on pourra m'apporter...

Alex

 

[dg62]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Bonjour Titilex


userform1.Hide


Bonne journée

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Voila le code que j'ai mis en place :

Private Sub CommandButton2_Click()
USF_NEWBIE.Show
Unload USF_NEWBIE
USF_ACC.Hide
End Sub

Mais je ne comprend pas, le premier reste qd meme en place !!!

 

[Pierrot93]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Bonjour Titilex

à l'initialisation du 2me USF, tu masques le 1er, code ci dessous à mettre dans l'événement "initialize" de l'USF2

Private Sub UserForm_Initialize()
UserForm1.Hide
End Sub

bonne journée
@+

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Ca marche a la perfection...
Merci de vos aides messieurs...
Je tacherai de me souvenir de cette manip à l'avenir...

A bientot

 

[Orodreth]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Bonjour Titilex, Dg62, Pierrot, le forum.

Question, pourquoi dans ton code y a-t-il marqué

Private Sub CommandButton2_Click()
USF_NEWBIE.Show
[B]Unload USF_NEWBIE[/B]
USF_ACC.Hide
End Sub

La ligne en gras m'interpelle beaucoup en fait 😕

Cordialement,
Thomas

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

En fait j'ai une liste de nom... Avec des bouton d'option devant chacun d'eux...
Pour pouvoir continuer, il faut cliquer sur l'un des boutons ou alors on utilise le deuxieme USF pour renseigner son nom pour pouvoir continuer dans l'application...
En fait le faite de faire un Unload d'entrée de jeu, cela met tout les boutons d'option a vide ce qui fait qu'on a aucun risque qu'une identite soit prise a la place d'une autre... Je sais pas si j'ai été clair la dessus ?
Je vais préparer un ficheir exemple pour la comprehension !!!
A bientot

 

[Orodreth]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Re.

Bah le Unload décharge complêtement un élément, ici, ton userform.
Donc si tu fais:

USF1.show
unload USF1

Ta ligne USI1.show n'a servi à rien.

Ou alors j'ai rien compris (possible aussi) 😕

Thomas

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Re le fil,

He bien ecoute t'as raison j'ai fais un essai sans cette ligne et ca marche bien aussi...
Merci de m'allléger un peu le code en tout cas !!!
Voila mon petit exemple !!!

Maintenant pour moi le défi c'est de crée une nouvelle entrée...
Je m'explique, en fait je cherche à faire ceci :
-Si le nom ne figure pas sur la liste, on clic sur "non"
-Un nouvel USF apparait et demande un prenom
-On renseigne le champs "prénom"
-le contenu du textbox est collée à la suite des nom existant sur la "Feuil2"
-Le tout est retrié pas ordre alphabetique... Afin de définir une nouvelle liste qui sera intégré dans une combobox...Mais c'est une autre histoire
- Enfin dans le premier Usf le nouveau nom est intégré de la meme facon que les autre...

Est-ce possible ?

 

[Orodreth]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Re.

Possible oui, et même relativement "simple".
en revanche, si j'ai bien compris, tu te prends la tête avec tes histoires de USF.

Je vais te montrer un truc 😉

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Pas de probleme je suis preneur quoi qu il arrive, j'aime bien apprendre !!!

 

[Staple1600]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Bonjour


Tu peux aussi procéder de la sorte


Quand tu initialises une partie de ton useform est "masquée"

(en réduisant sa largeur et sa longueur)

Et quand tu cliques sur un bouton d'option

La partie masquée se dévoile
laissant apparaitre les nouveaux controles à remplir.


Ainsi tu n'utises qu'un seul userform

Quelque chose dans ce genre là (à peaufiner)

Private Sub OptionButton1_Click()
If OptionButton1 Then UserForm1.Height = 326
End Sub

Private Sub UserForm_Initialize()
Me.Height = 180
End Sub

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Salut Staple1600, Voila ce que ca pourrait donner !!!

Mais j'ai tjs le probleme de voir apparaitre la nouvelle entrée !!!

 

[Pierrot93]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Re

pour info, l'instruction "UnLoad" telle que placée, n'est pas exécutée, sinon une fois déchargée, les objets présents dessus ne répondraient plus...Enfin je crois...

@+

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Hey Pierrot !!!
J'ai retiré cette ligne afin de ne pas mettre en perile le programme.
Merci du conseil en tt cas !!!