Aide pour un but de code

[pias]

Bonsoir, le Forum

Le code ci-dessus s'exécute dans u' userForm, si la codition est vrais je cherche a obtenir deux choses.

1) Au lieu d'appeler un UserForm (UserForm1.Show), j'aimerais appeler un Macro( Macro1)

2)Et comment fermer l'userForm ? car avec le code actuel, si la codition est vrais elle reste active.

Merci d'avance pour les infos.

a+
@pias
--------------------------------------------------------------------------------

Private Sub Ok_Btn_Click()
If ID_Util = Empty Then End

Set Rech = Range("Users").Find(ID_Util, LookIn:=xlValues)
If Not Rech Is Nothing Then

If Pwd_Util = Rech.Cells(1, 2) Then

Range("Niveau_en_cours") = Rech.Cells(1, 3)

UserForm1.Show

Else
MsgBox ("Mot de passe invalide")

End If
Else

MsgBox ("Utilisateur inconnu")

End If
End Sub

 

[Arnaud]

salut.
pour la macro, si celle si c pas dans le même module, il faut que la macro que tu apelle soit déclarer en public.
la g pri comme ex exemple une macro appelé "MaMacro" avec 1 paramètre d'entré "monparamètre.


Private Sub Ok_Btn_Click()
If ID_Util = Empty Then End

Set Rech = Range("Users").Find(ID_Util, LookIn:=xlValues)
If Not Rech Is Nothing Then

If Pwd_Util = Rech.Cells(1, 2) Then

Range("Niveau_en_cours") = Rech.Cells(1, 3)

MaMacro monparamètre

Else
MsgBox ("Mot de passe invalide")
me.Hide

End If
Else

MsgBox ("Utilisateur inconnu")

End If
End Sub

 

[pias]

Salut, Arnaud

Merci de ta réponse.
Mais je pense ne pas avoir bien compris.

Ta réponse est sans doute assez claire pour quelqu'un que a l'habitude mais moi?... tu as compris!...

Ma macro s'appele Affiche_feuille et c'est quoi un paramètre d'entré ? comment dois je faire?

Si tu peu me donner plus d'info ça serai sympa ..

Merci d'avance

a+
@pias

 

[Dan]

Bonjour,

Juste un petit complément :

Pour cacher ton USF : UserForm1.Hide
Pour démarrer "Macro1" à la place de l'USF : mets "Macro1" à la place de UserForme1.show.

Espérant t'avoir aidé.

@+

Dan

 

[@+Thierry]

Bonjour Pias, Arnaud et Dan, et bien sur le Forum

Bon alors j'ai décortiqué ton bout de Code Pias, il m'a bien plus !!!

J'en ai carrément fait une Démo complète !!!

http://www.excel-downloads.com/html/French/forum/messages/1_76321_76321.htm


Je vous invite Tous et Toutes dans ce nouveau Fil de Discussion, toi tout particulièrement Pias !! où tu trouveras en pratique ce qu'Arnaux a essayé de t'expliquer pour passer un Paramètre avec un Lancement d'une Macro depuis l'intérieur d'une Procédure... Et bien d'autres astuces !!

=> Lien supprimé

Bon Aprèm
@+Thierry