Discussion :

[violette_china]

Bonjour a tous,


Habituellement, j essaie de trouver mes reponses dans des posts anterieurs et ca marche plutot bien, mais la, j ai plus le temps et je voudrais me debloquer rapidement, donc merci de votre aide...

Voici mon probleme:

J ai un userform qui, lorsqu il est valide, en ouvre un autre (cet autre est determine par une des valeurs du premier, genre si la valeur est 1, le userform 1 sera ouvert, etc... pour une 10aine de userforms). Lorque le second userform est valide a son tour, les deux userforms se ferment et ttes les valeurs du 1er et 2nd userform sont inscrites dans mon tableau.
Ca, c est le cas ou tt va bien. Cependant, mon utilisateur voudrait pouvoir annuler la saisie complete au niveau du second userform. Or, s il clique effectivement sur "annuler", le second userform est decharge, le premier aussi, mais les valeurs saisies dans le premier userform sont inscrites dans le tableau, ce que je ne veux pas!

Bref, je cherche une methode pour que le 1er useform attende la validation du second avant de copier les infos dans mon tableau...

J espere que mon charabia est comprehensible...
Merci d avance a tous ceux qui voudront bhien me depanner.


Violette

[SfJ5Rpw8]

bonjour violette et bienvenue sur le forum... n'aurai tu pas un peu de code à nous montrer histoire que l'on sache la méthode que tu utilise pour transférer tes données de tes userforms vers ton tableau ( ?feuille excel..?) ...

[AlainTech]

De toute manière, je dirais de cacher (hide) le formulaire 1 (pas le décharger, unload) et faire tout le traitement dans le formulaire 2.

[Invité]

1) Tu crées une variable Public, pour ça tu insère un module dans ton projet
et tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Explicit
Dim FlgValidation As Boolean

2) Dans tes formulaires 2 à 10 dans le bouton "Annuler", tu mets à jour ce Flag

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub BnAnnuler_OnClick()
FlgValidation = False
End Sub

Pour le bouton "Valider", c'est l'inverse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub BnValider_OnClick()
FlgValidation = True
End Sub

3) Dans ton code, avant l'endroit ou tu mets à jour les valeurs,
tu testes le "FlgValidation" !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If FlgValidation = False then Exit Sub

Par exemple

J'espère avoir répondu à ta question

[violette_china]

Merci beaucoup pour votre aide! En fait, c etait vraiment pas grand chose, mais vu que je suis vraiment pas douee...

Ca y est, c est tout resolu et le programme est pret a fonctionner... Encore merci!


Violette