Discussion :

[eric4459]

Bonjour à tous,

Dans la macro que j'ai créé (merci à tous ceux qui ont contribué à résoudre certaines difficultés), je vérifie ce qui a été saisi dans les TextBox's et demande à l'utilisateur de recommencer la saisie en cas de mauvaise entrée.
En fonctionnement normal, si l'utilisateur a saisi une entrée correcte, la macro fonctionne parfaitement.
Dès lors qu'une entrée est erronée, le code mis en place averti l'utilisateur et lui demande de corriger et une fois l'erreur corrigée la macro reprend son cours.
Le problème est que, dans ce cas, après exécution des toutes les Subs du programme, je reviens dans la partie du code qui vérifie la saisie sur la ligne End Sub, ce qui est normal, puis entre à nouveau dans ce code sur un End If.
C'est ce comportement que je ne comprends pas, je dois avoir oublié quelque chose, mais quoi???
J'ai bien en tête l'utilisation de

Exit Sub

pour me faciliter les choses mais cela ne me convient pas puisque le programme devrait s’arrêter sans cet artefact.

Voici la partie du code concernée, après un passage par la ligne 31 lors de la phase de fin du programme le code passe à nouveau par la ligne 15, puis 16 etc..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Close_Form_Click()
Dim B As Variant
Dim Act As Worksheet
Dim TB1 As Variant
Set Act = ThisWorkbook.Sheets("Actual")
 B = MsgBox("Do you want to save the data ?", vbYesNoCancel + vbExclamation, WARNING)
            If B = vbYes Then
               If Milestone_Edit.TextBox1.Value <> "" And Len(Milestone_Edit.TextBox1.Text) < 10 Then
                TB1 = MsgBox("Date Format must be" & vbCr & "dd/mm/yyyy", vbOKOnly, "WARNING")
                    If TB1 = vbOK Then
                        Me.Hide
                        Milestone_Edit.TextBox1 = ""
                        Milestone_Edit.TextBox1.SetFocus
                        Milestone_Edit.Show
                    End If
               End If
               Me.Hide
               TextBox1_Value
               'Milestone_Edit.Show
               Update_Actual
               actual
            ElseIf B = vbNo Then
               Me.Hide
               Milestone_Edit.Show
            ElseIf B = vbCancel Then
               B = MsgBox("Update Cancelled", vbOKOnly)
               Me.Hide
               Exit Sub
 
            End If
End Sub

Un conseil éclairé serait le bienvenu.

Merci pour votre aide et votre collaboration
Eric

[Nako_lito]

A quoi servent tout tes me.hide ? Hide ne ferme pas un formulaire, il le cache. Si tu veux fermer un formulaire, c'est unload(me) suivit d'un exit sub (ou exit function) qui conviendrait mieux.

[eric4459]

Bonjour,
Je cherche à cacher les UserForm pour ne pas polluer l'écran.
Mais mon problème ne vient pas de là me semble-t-il, ce qui m'ennui c'est qu'au lieu de terminer une procédure j'entre à nouveau dedans.
Eric

[Nako_lito]

pourquoi les cacher ? est ce que tu as des données a conserver quand l'écran est masqué ?
Si tu n'as aucune info a conserver ou que tu ne peux pas stocker dans une variable globale, ferme l'écran. Plus propre, plus rapide, plus sur. Un écran caché continue a interférer avec le programme, si il y a des événement définit dans le code, ils continuent a être actif.

je pense au contraire que ton problème vient de là, ma première pensée quand j'ai lu ton problème -> récursivité.

[keithingel]

Je ne suis pas une pro, mais je crois que elseif ne s'utilise qu'une fois dans une boucle.
If then elseif
Si alors sinon.

Là tu fais 2 fois sinon. Dans ton cas il faudrait des select case, je crois.

C'est la traduction pour t'aider. Après je ne procède pas comme toi pour bloquer un opérateur. Une Msgbox apparait et il modifie, sinon il ne peut pas valider.

Si tu es intéressé dis le moi

[eric4459]

Nako_Lito
Tu me conseilles donc de remplacer Me.Hide par Unload.Me, c'est ça?
Eric


Bonjour Keithingel,
Je crois que l'on peut utiliser plusieurs fois ElseIf dans une boucle ou une procédure

Code :

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

1
2
3
4
5
6
7
8
Si X= A alors 
Action 1
Sinon Si X=B alors
Action 2
Sinon Si X=C alors
Action 3
etc..
End if

Sinon , qu'entends tu par "bloquer un opérateur"? et que fais-tu?
Eric

[vinc_bilb]

Bonjour,

Vous pouvez faire quelque chose du style (à adapter):

Code :

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

1
2
3
4
5
6
 
     While (IsDate(InDate)) = False
        InDate = Application.InputBox("Date?): (Cancel to exit)", " reference date", Type:=2)
        If InDate = "False" Then Exit Sub
        If IsDate(InDate) Then ArchDate = DateValue(InDate)
    Wend

[Nako_lito]

pour répondre au deux intérogations précédentes :

Je ne suis pas une pro, mais je crois que elseif ne s'utilise qu'une fois dans une boucle.
If then elseif
Si alors sinon.

Non, on peut utiliser autant de elseif qu'on souhaite dans une boucle. Il faut juste faire attention aux tests effectués

Tu me conseilles donc de remplacer Me.Hide par Unload.Me, c'est ça?

Tout à fait !

Pense a stocker les données du formulaire si jamais il y a en que tu veux faire passer d'un formulaire à l'autre.
Fait suivre ton Unload.me d'un exit sub pour terminer l'écran sur le champ.

Ceci dit, je ne sais pas trop a quoi ressemble ton programme, mais si tu n'as qu'un formulaire a l'écran, cela va mettre un terme a ta macro.

[keithingel]

J'entends que s'il ne rentre pas ce que je lui demande où s'il oublie de renseigner un textbox il ne peux pas continuer.
Après pour avertir je fais comme ceci (c'est pour le bouton annuler mais tu peux le mettre où tu veux) à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Bouton_Annuler_Click()
 
Dim T1 As Variant, T2 As Variant
 
 
T1 = "Toutes les données saisies seront effacées."
T2 = "Êtes-vous sûr de vouloir annuler ?"
If MsgBox(T1 & Chr(10) & Chr(10) & T2, vbYesNoCancel + vbCritical, "Abandon de la procédure") = vbNo Then Exit Sub
 
Unload Me 'Ferme mon userform
'-------------------------------------------------------------------------------------------------------
 
 
End Sub

S'il clique oui ça annule tout et quitte le programme. S'il clique non ça revient sur l'userform.
Ce ne serait pas plus simple ?

Le plus simple va voir mon classeur. Car j'ai une multitude de code pour bloquer un utilisateur et je t'expliquerai certains points si tu veux t'inspirer.
http://www.developpez.net/forums/d14...-optionbutton/

[eric4459]

Bonjour,

Vous pouvez faire quelque chose du style (à adapter):

Code :

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

1
2
3
4
5
6
 
     While (IsDate(InDate)) = False
        InDate = Application.InputBox("Date?): (Cancel to exit)", " reference date", Type:=2)
        If InDate = "False" Then Exit Sub
        If IsDate(InDate) Then ArchDate = DateValue(InDate)
    Wend

Bonjour Vincent,
En fait mon UserForm est composé de 16 TextBox (2 rangées de 8).
La première rangée comporte les dates de réalisation planifiées de 8 événements, dans la deuxième l'utilisateur doit saisir la date réelle de réalisation de l'événement lors de la mise à jour mensuelle d'un projet.
Je souhaite que le format de date entré soit identique au format d'une date qui se trouve ailleurs afin de pouvoir les comparer.
Eric