Problème pour arrêter une macro, qui en appelle une autre

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Décembre 2012

• #2

Re : Problème pour arrêter une macro, qui en appelle une autre

Bonour Lolosca, bonjour le forum,

Peut-être en rajoutant la ligne ci-dessous :

Code:

End

 

Vote positif 0 Vote négatif

L

lolosca

XLDnaute Nouveau

• 18 Décembre 2012

• #3

Re : Problème pour arrêter une macro, qui en appelle une autre

Merci Robert,

J'ai essayé cette méthode qui marche, mais celle-ci ferme mon formulaire et ne garde pas les modifications, ce qui est embettant car si l'utilisateur rentre toutes ces données et qu'une seule est fausse, il faudrait qu'il n'ai pas tout à retaper.

Si tu peux m'aiguiller,

Merci d'avance!

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Décembre 2012

• #4

Re : Problème pour arrêter une macro, qui en appelle une autre

Bonsoir Lolosca,
Salutations Robert!

Si tu ne place pas une petite pièce-jointe avec une exemple, il sera difficile , voir impossible de t'aider !!
Si tu pouvais placer ta macro et des renseignements sans données confidentielles, le réponses seront au rendez-vous.

Cordialement

René

 

Vote positif 0 Vote négatif

L

lolosca

XLDnaute Nouveau

• 18 Décembre 2012

• #5

Re : Problème pour arrêter une macro, qui en appelle une autre

Bonjour,

Vous trouverez mon fichier ci joint,

*C'est dans la procédure du bouton ajouter, je fais appel à la procédure verif du module1, je voudrais au lieu d'utiliser End, si la procedure n'est pas respectée, arreter les deux procédure imbriquées mais pas fermer et décharger le userform, voila!!

Bon courage,

Merci

 

Pièces jointes

• fichier exemple pour forum.xlsm

  86.5 KB · Affichages: 42
• fichier exemple pour forum.xlsm

  86.5 KB · Affichages: 42
• fichier exemple pour forum.xlsm

  86.5 KB · Affichages: 39

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Décembre 2012

• #6

Re : Problème pour arrêter une macro, qui en appelle une autre

Re,

Dans ton module 1 , remplaces tes "End" par "Exit Sub".

Essayes et dis-nous!

A+

 

Vote positif 0 Vote négatif

L

lolosca

XLDnaute Nouveau

• 18 Décembre 2012

• #7

Re : Problème pour arrêter une macro, qui en appelle une autre

C'est ce que j'avais fait à la base mais cela sort juste de la procédure du module1 et non de la procdure ajouter!

Et c'est bien là mon problème!!

Merci

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Décembre 2012

• #8

Re : Problème pour arrêter une macro, qui en appelle une autre

Re,

regardes en module1 et la sortie en ajouter ?

A+

 

Pièces jointes

• fichier exemple pour forum bis.xlsm

  90 KB · Affichages: 39

Vote positif 0 Vote négatif

L

lolosca

XLDnaute Nouveau

• 18 Décembre 2012

• #9

Re : Problème pour arrêter une macro, qui en appelle une autre

Merci René, Ca Marche!!!

Peux-tu m'expliquer, le Byte et le sortir merci!!!

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Décembre 2012

• #10

Re : Problème pour arrêter une macro, qui en appelle une autre

Re,

Dans le module1 , je dimensionne un pointeur (Public sortir as Byte) car le. pointeur sortir ne prendra que la valeur 0 ou 1.
Si passe par une Msg dans module 1 alors sortir prend la valeur 1 , sinon 0.
Je sort du sub module et retourne dans ajouter avec la valeur 0 ou 1 dans la variable sortir.
si dans ajouter, sortir=1 alors je sort de ajouter et retombe dans USF.

A+

 

Vote positif 0 Vote négatif

L

lolosca

XLDnaute Nouveau

• 19 Décembre 2012

• #11

Re : Problème pour arrêter une macro, qui en appelle une autre

Re bonjour et merci pour l'explication,

Tant que j'y suis j'ai une autre question : j'ai écri dans module1 le coe suivant pour verifier le nombre de caractère de mon champs comme tu as pu le voir, mais il doit y avoir une erreur que je ne vois pas car le code me dis quel que soit ce que je met dans ma textbox, qu'il n'y a pas 4 caractère et si je fais un pas à pas, la valeur et tjrs vide alors qu'elle ne l'ai pas en réalité.

Code:

If Len(ZT1_ExComp) <> 4 Then
    MsgBox ("Erreur Exercice comptable, moins de 4 caractères"), vbCritical
    sortir = 1
    Exit Sub
End If

 

Vote positif 0 Vote négatif