Revenir au ModuleRésolu

Question

Bonjour ami(e)s programmeur et programmeuzes,(je suis tre fatigué alors j'espere que mon post sera comprehensible XD)

Lorsque j'ouvre mon classeur, une macro se lance(Module1), cette macro lance un UserForm dans lequel se trouve tout un tas de boutons et de programmes.

Lorsqu'il y a une erreur je met un msgbox et "End"(normal^^).

Mais en fait lors d'une erreur il ne faut pas que la macro s'arrete net, il faudrait qu'elle sorte des programmes du UserForm et qu'elle continue les programmes du Module1.

Exemple : 
Module1 contient : 

UserForm1.show
Call fonction

UserForm1 contient :

on error goto error
Call une_autre_fonction
error : 
       call fonction_error

sub error()
msgbox("bouh t'es nul!!")
end
end sub

Mais a la place de End j'aimerai que le programme aille a "call fonction" du Module1.

jrivet · Accepted Answer

Salut,
Il te faut afficher ton UserForm en fenetre Modale

Public Sub Macro1()

   '....
   
   Call Load(UserForm1)
   'Show avec VbModal fera que ton programme "attendra" ici que le
   'UserForm soit décharger avant de continuer
   Call UserForm1.Show(vbModal)
   Call MsgBox("Userform Déchargé alors continuons")

End Sub , ----
[code.aspx?ID=41455 By Renfield]

Puis au lieu de Faire End tu fais Unload(Me)

@+: Ju£i?n
Pensez: Réponse acceptée

cs_faucheuse · Answer

Lol desolé j'ai pas vraiment posé de question (pardonne moi Dieu Foxy XD)

Comment fait on pour retourner au Module1??

cs_loulou69 · Answer

Unload me

jrivet · Answer

Re,
>[auteur/LOULOU69/38668.aspx loulou69] : Pas assez rapide petit scarabée 
4 Secondes...
@+: Ju£i?n
Pensez: Réponse acceptée

cs_faucheuse · Answer

Aaaaa j'avais vaguement entendu parler de ca a mes tous debuts...mais j'avais rien compris XD.

Merci beaucoup tous les deux

cboulas · Answer

et le Resume ???? non ?? :)

Chris...
Web : Firstruner

cs_faucheuse · Answer

Il manque quelque chose?? par ce que il me dit "impossible de décharger l'objet", alors je cherchais a faire un UserForm uniquement fait pour unload(UserForm1) mais ca a pas l'air de marcher non plus.

cs_faucheuse · Answer

Nan rien a faire, j'ai essayer de faire sortir le unload de la condition dansd laquelle il etait, j'ai essayer le plus simple, construire le UserForm avec un simple bouton avec dans le bouton Unload (me) ... marche pas non plus.

Bon de toute facon j'ai un sacré nombre d'indice je devrai pouvoir trouvé^^

bigfish_le vrai · Answer

Salut,

le Unload (Me) ne marche pas toujours en VBA utilise plutot Unload Userform1suivit de Exit Sub plutot que End  en particulier quand tu veux que ta macro continu.

A+

bigfish_le vrai · Answer

...

au fait : note que je n'ai pas mis de parenthese Unload Userform1 avec cela ne marche pas.

A+

Revenir au Module

10 réponses

Votre réponse

Discussions similaires