Evenement VBA non sollicité

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

J'ai un souci avec des évènements VBA non sollicités (volontairement) qui se déclenchent :

L'évènement _Enter d'une TextBox fait apparaître une InputBox. Si on entre un nombre, un bouton s'active. J'appuie sur ce bouton pour mettre à jour une Spreadsheet. Mais ensuite, l'évènement _Enter de la même TextBox se déclenche à nouveau et semble se déclencher également lors de la fermeture du UserForm ce qui fait qu'une InputBox reste seule à l'écran après la fermeture du programme.

Application.EnableEvents = False ne résout pas le problème. Je soupçonnais l'évènement _Exit d'y être pour quelque chose mais en le commentant entièrement je me suis rendu compte que ce n'était pas ça.

L'évènement se déclenche donc normalement et de manière voulue une première fois puis de manière non sollicitée après mise à jour de ma Spreadsheet en appuyant sur le bouton dédié puis dans la foulée de l'évènement _Click de ce bouton il se reproduit. Si avant de cliquer sur le bouton j'appuie sur Tab ou Entrer ou que je clique directement le résultat est le même.

Mon UserForm :
Pièce jointe 400363

La TextBox impliquée contient le texte "Pression (0 à 1000 mbar)" et s'appelle "TextBoxPression". La commande bouton sur laquelle je clique est "CommandeValiderWEP" et se trouve en bas à gauche. Ci-dessous les codes évènementiels :

De TextBoxPression :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub TextBoxPression_Enter() If Me.TextBoxPression.Text <> "" Then Pression = Application.InputBox(Prompt:="Pression (mbar) =", Title:="Pression (mbar)", Default:=Me.TextBoxPression.Text, Top:=Me.TextBoxPression.Top, Type:=1) If VarType(Pression) = vbDouble Then Me.TextBoxPression.Value = Pression Me.CommandeValiderWEP.Enabled = True Else Me.TextBoxPression.Text = "Pression (0 à 1000 mbar)" End If End If End Sub
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub TextBoxPression_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.CommandeValiderWEP.Enabled = False Then Pression = Application.InputBox(Prompt:="Pression (mbar) =", Title:="Pression (mbar)", Default:=Me.TextBoxPression.Text, Top:=Me.TextBoxPression.Top, Type:=1) If VarType(Pression) = vbDouble Then Me.CommandeValiderWEP.Enabled = True End If Else Me.TextBoxPression.Text = "Pression (0 à 1000 mbar)" End If End Sub
De "CommandeValiderWEP" :
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 Private Sub CommandeValiderWEP_Click() If Me.TextBoxPastille.TextLength > 0 Then Dim NumeroPastille As Integer NumeroPastille = CInt(Right(Me.TextBoxPastille.Value, Me.TextBoxPastille.TextLength - InStr(Me.TextBoxPastille.Value, " "))) If NumeroPastille = 1 Then With Me.SpreadsheetWEP.Range(Me.SpreadsheetWEP.Cells(Me.SpreadsheetWEP.Range("NumeroPastille").Row + NumeroPastille, _ Me.SpreadsheetWEP.Range("NumeroPastille").Column), Me.SpreadsheetWEP.Cells(Me.SpreadsheetWEP.Range("EcartRelatifWEP").Row + NumeroPastille, _ Me.SpreadsheetWEP.Range("EcartRelatifWEP").Column)) .Font.Bold = False With .Interior .ColorIndex = xlColorIndexNone 'aucun remplissage End With End With Else Me.SpreadsheetWEP.Rows(Me.SpreadsheetWEP.Range("NumeroPastille").Row + NumeroPastille).Insert Shift:=xlShiftDown End If Me.SpreadsheetWEP.Cells(Me.SpreadsheetWEP.Range("NumeroPastille").Row, _ Me.SpreadsheetWEP.Range("NumeroPastille").Column) _ .Offset(RowOffset:=NumeroPastille, ColumnOffset:=0).Value = NumeroPastille Dim WEP As Double WEP = Pression Me.SpreadsheetWEP.Cells(Me.SpreadsheetWEP.Range("WEP").Row, _ Me.SpreadsheetWEP.Range("WEP").Column) _ .Offset(RowOffset:=NumeroPastille, ColumnOffset:=0).Value = WEP Me.TextBoxPastille.Value = "Pastille " & NumeroPastille + 1 Me.CommandeValiderWEP.Enabled = False End If End Sub
Auriez-vous une explication qui me permette de corriger ce problème ?

30/07/2018, 20h46
Jean-Philippe André

Salut,

Je pense que le bon event ici serait AfterUpdate() non ?
30/07/2018, 21h13
Nagel Tha

Merci de ta réponse :)

Je ne connaissais pas cet évènement. Je ne le voyais pas dans la liste car elle ne se déroule pas entièrement apparemment (l'erreur à la gomme sûrement en partie due à une nuit blanche récente dont je ne me suis pas encore remis xD)

Avant de voir ta réponse, j'ai contourné en partie le problème en utilisant l'évènement _KeyPress de la TextBox. Je dis en partie car après la fermeture du UserForm (malgré la propriété .EnableEvents que je règle sur False au déclenchement de _QueryClose) une InputBox apparaît quand même (pas à chaque fois bizaremment). Sinon durant l'exécution le problème ne se présente plus.

Je vais suivre ta suggestion car elle me semble plus adaptée. Une idée de pourquoi la propriété .EnableEvents ne se met pas à jour ? Ou alors elle se met à jour mais l'inputbox se lance avant la fermeture et persiste car c'est celle de l'application ce qui ferait qu'arrêter la macro ne la tue pas ?
30/07/2018, 22h47
patricktoulon

re

re
bonsoir certain control comme le speadsheet ,listview on un handle/HDC car ils sont des fenetres a part entieres en fait
donc quand l'un de ces controls prend le focus par modif de quelque maniere que se soit en perdant le focus le focus revient soit au premier controls du userform voir (tabindex)soit au dernier qu'il avait cette reaction est differente sur 2007 et 2013 soit l'un soit l'autre
et forcement si il y a du code dans l'event "enter" banco rebelotte va y que je récapepete
30/07/2018, 23h15
Nagel Tha

Ah d'accord. Donc effectivement l'évènement _Enter n'est pas un bon choix dans ce cas. Merci pour tes éclaircissements Patrick :)

Pour mois tu es le membre en or du mois de juillet :)

Bonjour,

Pour contourner ce problème, il te faut déclarer une variable Booléenne en entête de ton module d'userform et t'en servir pour ne pas exécuter les codes événementiels.

Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Private EnableEvents As Boolean
 
Private Sub CommandButton1_Click()
   EnableEvents = True
   Unload Me
End Sub
 
Private Sub TextBox1_Enter()
   If Not EnableEvents Then
      MsgBox "coucou"
   End If
End Sub
 
Private Sub UserForm_Activate()
   EnableEvents = False
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   EnableEvents = True
End Sub

Validation de la solution booléenne

Citation:

Pour contourner ce problème, il te faut déclarer une variable Booléenne en entête de ton module d'userform et t'en servir pour ne pas exécuter les codes événementiels.

J'y ai pensé mais je voulais éviter si possible

C'est une bonne idée en tout cas :)

La solution telle que proposée renvoie une erreur. Je n'ai sûrement pas compris, mais en tout cas je valide le principe.

Voici la solution que j'ai trouvée en m'inspirant de vos conseils :

J'ai défini une variable booléenne

Code:

Dim DesactiverEvenementEnter As Boolean '= False à l'initialisation

Sa valeur initiale est la condition d'exécution du code de l'évènement _Enter

Code:

Private Sub TextBoxPression_Enter()[*] If Not DesactiverEvenementEnter Then[*] Pression = Application.InputBox(Prompt:="Pression (mbar) =", Title:="Pression (mbar)", Top:=Me.TextBoxPression.Top, Type:=1)[*] Me.TextBoxPression.Value = Pression[*] DesactiverEvenementEnter = True[*] End If[*]End Sub

La dernière instruction désactive ensuite l'évènement :

Code:

DesactiverEvenementEnter = True

Le bouton de validation est activé par l'évènement _Change avec une subtilité : son code ne se lance que si la TextBox est activée

Code:

Private Sub TextBoxPression_Change()[*] If Me.TextBoxPression.Enabled Then[*] Me.CommandeValiderWEP.Enabled = True[*] End If[*]End Sub

Dans le code du bouton de validation je m'assure de désactiver la TextBox et de la réinitialiser ensuite (pas d'exécution du code de _Change) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Extrait du code du bouton de validation : Dim WEP As Double WEP = Pression Me.TextBoxPression.Enabled = False Me.SpreadsheetWEP.Cells(Me.SpreadsheetWEP.Range("WEP").Row, _ Me.SpreadsheetWEP.Range("WEP").Column) _ .Offset(RowOffset:=NumeroPastille, ColumnOffset:=0).Value = WEP Me.TextBoxPastille.Value = "Pastille " & NumeroPastille + 1 Me.CommandeValiderWEP.Enabled = False Me.TextBoxPression.Text = "" Me.TextBoxPression.Enabled = True DesactiverEvenementEnter = False End If End Sub
J'espère que cela pourra en inspirer ^^

Merci de vos précieux conseils ! :)

31/07/2018, 10h11
eriiic

Bonjour à tous,

Citation:

J'y ai pensé mais je voulais éviter si possible

Tu n'as guère le choix, EnabledEvents ne s'applique pas aux ActiveX.

Et même pour les objets feuilles, classeurs, etc c'est intéressant comme technique.
Tu ne restes pas avec EnabledEvents=False quand tu es en débogage et que ça plante.
Tu l'appliques à un événement précis au lieu de tous.
eric