priorité d'execution de sub

Version imprimable

14/04/2008, 11h24
zandru

priorité d'execution de sub
Bonjour à tous,

J'ai un soucis de priorité d'exécution de deux sub suite à un événement.
je m'explique : j'ai un bouton annuler et une textbox (name="nomclient")sur ma userform. Lorsque l'utilisateur clic sur annuler j'ai deux événements qui se lance :
Code:

1 2 3 Private Sub nomclient_Exit(ByVal Cancel As MSForms.ReturnBoolean) ... End Sub
et
Code:

1 2 3 Private Sub annuler_Click() ... End Sub
Comment faire pour que ce soit annuler_Click qui se lance et non l'autre ? :arf:

merci de venir à mon aide!!!
14/04/2008, 13h34
zandru
Dans la macro nomclient_exit je traite la donnée rentrée pour remplir une deuxième textbox.

par contre j'ai pensé à une solution qui serait de voir si le bouton annuler a le focus pour faire ou non quelque chose dans ce sub.
Code:

1 2 3 4 5 6 7 Private Sub nomclient_Exit(ByVal Cancel As MSForms.ReturnBoolean) if annuler a le focus then ne rien faire Else traitement... End If End Sub
est ce que c'est possible ? :?
et si oui comment ???
14/04/2008, 15h28
AlainTech

Pour que le bouton aie le focus, il faut déjà que le focus ne soit plus sur la TextBox. Donc, après le Exit...

Bonjour tlm,

Une solution éventuelle

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Sortie As Boolean
 
Private Sub CommandButton1_Click()
Unload Me
End Sub
 
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sortie = True
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Sortie = True Then Exit Sub
macro1
End Sub

La variable Sortie doit être déclarée en tête de module

C'est pas une solution optimum :(

Bonjour,
en reponse à la question d'ouskel'n'or:D

Citation:

Il va falloir qu'on te demande le traitement pour savoir si on ne peut pas le "ranger ailleurs"

voici le traitement:

Code:

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
32
33
34
35
36
Private Sub nomclient_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If nomclient.TextLength > 2 Then
        test = 0
        For I = 3 To 100
            If newclient.nomclient.Value = client.Cells(I, 4) Then test = test + 1
        Next
        If test = 0 Then
            newclient.nomclient.Value = StrConv(newclient.nomclient.Value, vbUpperCase)
            codetemp = Left(newclient.nomclient.Text, 1) & Right(newclient.nomclient.Text, 1)
            test = 0
            For I = 1 To 100
                If StrComp(codetemp, client.Cells(I + 2, 6), vbTextCompare) = 0 Then test = test + 1
            Next
            If test > 0 And newclient.nomclient.Text <> "" Then
                codetemp = Left(newclient.nomclient.Text, 1) & Mid(newclient.nomclient.Text, Len(newclient.nomclient.Text) - 1, 1)
                test = 0
                For I = 1 To 100
                    If StrComp(codetemp, client.Cells(I + 2, 6), vbTextCompare) = 0 Then test = test + 1
                Next
                If test > 0 Then
                    codetemp = "??"
                Else
                    newclient.adr1.SetFocus
                End If
            Else
                newclient.adr1.SetFocus
            End If
            newclient.codeclient.Text = StrConv(codetemp, vbUpperCase)
        Else
            truc = MsgBox("le client existe", vbCritical + vbOKOnly, "Erreur utilisateur")
            newclient.nomclient.Text.Select
        End If
    Else
        truc = MsgBox("Nom de client trop court", vbExclamation + vbOKOnly, "erreur utilisateur")
    End If
End Sub

en fait pour resumer, je prend le nom du client et si il n'existe pas déjà, le code tente de créer un code en utilisant 2 lettre du nom.

une solution possible serait de faire :

Code:

1
2
3
Private Sub codeclient_Enter()
traitement...
End Sub

mais elle ne me satisfait pas car l'utilisateur pourrait clicker sur une autre textbox et le traitement ne se ferait pas...:cry:

fring, je vais tester ta solution ...

15/04/2008, 09h09
zandru
:king: MERCI fring ça marche :yaisse2:

petit détail, ne pas oublier de rajouter à ta solution :
Code:

1 2 3 4 Private Sub UserForm_Activate() sortie = False End Sub
sinon le traitement ne se fait pas.
15/04/2008, 09h22
fring

Oui ça fonctionne mais ce n'est pas sans faille, si l'utilisateur survole le bouton sans rien faire d'autre, sortie bascule à True et l'exit de la TextBox ne sera plus contrôlée :(
15/04/2008, 09h36
zandru

c'est pas faux je n'y avait pas pensé... :aie:
je vais garder cette solution pour le moment (la probabilité que la souris passe sur un petit bouton dans un grand écran..... :mouarf:) car il faut que j'avance sur d'autre morceaux du code (la deadline se rapproche...)

je ne sait pas si c'est lié, mais j'ai un autre problème sur la même partie du code.

en fait, si le nom du client existe déjà dans la base de donnée, je veux que le focus reste sur la textbox "nomclient". En utilisant setfocus, ça ne marche pas (focus sur la textbox suivante). En cherchant sur les questions déjà posé j'ai trouver la solution d'utiliser "cancel=true" mais VBA me sort :
Erreurd'exécution '-2147467259(80004005)' : Erreur non répertoriée. (la seule chose que je comprend c'est que VBA ne comprend pas ;))

En pas-à-pas, VBA fait le sub dans sont ensemble sans problème mais ensuite il reprend en plein milieu ????? et plante !!!!! (sur la ligne en rouge) :
Code:

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 32 33 34 35 36 37 38 39 Private Sub nomclient_Exit(ByVal Cancel As MSForms.ReturnBoolean) If sortie = True Then Exit Sub If nomclient.TextLength > 2 Then test = 0 For I = 3 To 100 If newclient.nomclient.Value = client.Cells(I, 4) Then test = test + 1 Next If test = 0 Then newclient.nomclient.Value = StrConv(newclient.nomclient.Value, vbUpperCase) codetemp = Left(newclient.nomclient.Text, 1) & Right(newclient.nomclient.Text, 1) test = 0 For I = 1 To 100 If StrComp(codetemp, client.Cells(I + 2, 6), vbTextCompare) = 0 Then test = test + 1 Next If test > 0 And newclient.nomclient.Text <> "" Then codetemp = Left(newclient.nomclient.Text, 1) & Mid(newclient.nomclient.Text, Len(newclient.nomclient.Text) - 1, 1) test = 0 For I = 1 To 100 If StrComp(codetemp, client.Cells(I + 2, 6), vbTextCompare) = 0 Then test = test + 1 Next If test > 0 Then codetemp = "??" Else newclient.adr1.SetFocus End If Else newclient.adr1.SetFocus End If newclient.codeclient.Text = StrConv(codetemp, vbUpperCase) Else truc = MsgBox("le client existe", vbCritical + vbOKOnly, "Erreur utilisateur") newclient.nomclient.Value = "" 'newclient.nomclient.SetFocus Cancel = True End If Else truc = MsgBox("Nom de client trop court", vbExclamation + vbOKOnly, "erreur utilisateur") End If End Sub
Là, je comprend pas ??? 8O

Bonjour,
Sur l'idée de fring, je verrais bien ça. Le test est simple à réaliser
Deux textbox et un bouton dans un userform
Le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim sortie As Boolean Private Sub CommandButton1_Click() MsgBox "bouton" End Sub Private Sub TextBox1_Change() sortie = True End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not sortie or textbox1 = "" Then 'test non réalisé" Exit Sub Else 'test réalisé si Textbox2 contient ce qu'il y avait dans textbox1 TextBox2 = TextBox1 sortie = False End If End Sub
Le bouton n'est là que pour montrer que le test n'est pas réalisé si tu sors de Textbox1 sans changement par la souris et que tu fais un clic sur le bouton
TextBox2 est là pour montrer que tu passes par le test s'il y a eu modif de Textbox1
Tu dis
A+

Bonjour fring

Pour ton "dernier pb" (Erreurd'exécution '-2147467259(80004005)') regarde si ça change quelque chose

Code:

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
32
33
34
35
36
37
38
39
40
41
Private Sub nomclient_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Test as boolean
    If sortie = True Then Exit Sub
    If nomclient.TextLength > 2 Then
        For I = 3 To 100
            Test = newclient.nomclient.Value = client.Cells(I, 4)
        Next
        If test Then
            newclient.nomclient.Value = StrConv(newclient.nomclient.Value, vbUpperCase)
            codetemp = Left(newclient.nomclient.Text, 1) & Right(newclient.nomclient.Text, 1)
            test = False
            For I = 1 To 100
                test = test or StrComp(codetemp, client.Cells(I + 2, 6), vbTextCompare) = 0
            Next
            If test And newclient.nomclient.Text <> "" Then
                codetemp = Left(newclient.nomclient.Text, 1) & Mid(newclient.nomclient.Text, Len(newclient.nomclient.Text) - 1, 1)
                test = False
                For I = 1 To 100
                    Test = Test or StrComp(codetemp, client.Cells(I + 2, 6), vbTextCompare) = 0
                Next
                If test Then
                    codetemp = "??"
                Else
                    cancel = false
                    newclient.adr1.SetFocus
                End If
            Else
                cancel = false
                newclient.adr1.SetFocus
            End If
            newclient.codeclient.Text = StrConv(codetemp, vbUpperCase)
        Else
            Cancel = True
            truc = MsgBox("le client existe", vbCritical + vbOKOnly, "Erreur utilisateur")
            newclient.nomclient.Value = ""
            'newclient.nomclient.SetFocus
        End If
    Else
        truc = MsgBox("Nom de client trop court", vbExclamation + vbOKOnly, "erreur utilisateur")
    End If
End Sub

S'il n'y a pas d'erreur de type dans ton test, je ne vois pas d'erreur.
Mais utilise un boolean pour test (ses deux valeurs peuvent être Vrai ou False)
C'est plus propre et plus lisible ;)
Tu dis

après correction suite à ton message, pas de changement :cry:

j'ai refait un pas-à-pas en utilisant le setfocus, et j'ai remarqué qu'après que la sub soit terminer, VBA revient au même endroit que precedement, soit au milieu du code !?!? 8O

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub nomclient_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim Test As Boolean
    If sortie = False Then Exit Sub
    If nomclient.TextLength > 2 Then
        For I = 3 To 100
            If newclient.nomclient.Value = client.Cells(I, 4) Then
                Test = True
                Exit For
            End If
        Next
        If Test = False Then
            newclient.nomclient.Value = StrConv(newclient.nomclient.Value, vbUpperCase)
            codetemp = Left(newclient.nomclient.Text, 1) & Right(newclient.nomclient.Text, 1)
            Test = False
            For I = 1 To 100
                If StrComp(codetemp, client.Cells(I + 2, 6), vbTextCompare) = 0 Then
                    Test = True
                    Exit For
                End If
            Next
            If Test = True And newclient.nomclient.Text <> "" Then
                codetemp = Left(newclient.nomclient.Text, 1) & Mid(newclient.nomclient.Text, Len(newclient.nomclient.Text) - 1, 1)
                Test = False
                For I = 1 To 100
                    If StrComp(codetemp, client.Cells(I + 2, 6), vbTextCompare) = 0 Then
                        Test = True
                        Exit For
                    End If
                Next
                If Test = True Then
                    codetemp = "??"
                Else
                    Cancel = False
                    newclient.adr1.SetFocus
                End If
            Else
                Cancel = False
                newclient.adr1.SetFocus
            End If
            newclient.codeclient.Text = StrConv(codetemp, vbUpperCase)
        Else
            'Cancel = True
            truc = MsgBox("le client existe", vbCritical + vbOKOnly, "Erreur utilisateur")
            newclient.nomclient.Value = ""
            newclient.nomclient.SetFocus
        End If
    Else
        truc = MsgBox("Nom de client trop court", vbExclamation + vbOKOnly, "erreur utilisateur")
    End If
    sortie = False
End Sub

je comprend toujours pas d'où ça peut venir, et pourquoi VBA revient là ?? :evilred:

15/04/2008, 12h19
ouskel'n'or

Je crois que tu commets une confusion. Cancel = False veut dire que tu autorises le focus à se déplacer vers un autre contrôle
Pour que le focus reste sur le textbox, tu mets Cancel = True et tu supprimes newclient.adr1.SetFocus

Désolé mais quand j'ai copié ton code, je n'avais remarqué. :( Du moins, je croyais que nomclient était une autre textbox sur laquelle tu effectuais ton test... Bref, j'ai merdoyé :cry:
15/04/2008, 13h27
zandru

En fait, que j'utilise "Cancel=true" ou le setfocus, la bizarrerie reste la même...

vba ne devrait pas reprendre n'importe où dans le code :nono:
:scarymov:
15/04/2008, 13h39
ouskel'n'or

Citation:

Envoyé par zandru

En fait, que j'utilise "Cancel=true" ou le setfocus, la bizarrerie reste la même...

vba ne devrait pas reprendre n'importe où dans le code :nono:
:scarymov:

Il ne reprend pas là où tu le mets, il repasse par exit.
Reste à savoir ce que tu veux.
Pour qu'il ne repasse pas par "là", déclare un boolean en public

Code:

Dim JeSuisPasséParLà

et mets en fin de ta sub

Code:

JeSuisPasséParLà = true

et en entrée

Code:

If JeSuisPasséParLà then exit sub

Et dans l'événement Enter de ton contrôle, remets

Code:

JeSuisPasséParLà = False
15/04/2008, 14h07
ouskel'n'or

Non, si tu mets JeSuisPasséParLà = False dans l'événement Enter de ton contrôle ça ne changera rien.
Essai de trouver une solution dans un autre événément, là je n'ai pas le tps de tester autre chose.
Bon courage
15/04/2008, 14h07
zandru

:yaisse: Parfait ça marche
en fait la ligne :

Code:

newclient.adr1.SetFocus

appelait une nouvelle fois Private Sub nomclient_Exit(ByVal Cancel As MSForms.ReturnBoolean), donc ça tournait en boucle et ça plantait.

merci à tous ceux qui m'ont aidé
:merci: