Excel VBA - Suspendre des événements lors de la mise à jour de ComboBox

Question

J'ai une application écrite en VBA pour Excel qui prend en charge un flux de données en direct. Chaque fois qu'il y a un changement dans les données, divers événements sont déclenchés dans VBA. J'ai aussi quelques UserForm avec ComboBoxes sur eux. Mon problème est que lorsque je clique sur la flèche vers le bas sur le ComboBox et essaie de faire une sélection, le moment où je reçois une mise à jour du flux de données, les réinitialisations ComboBox. Ce que je voudrais faire est de mettre en pause les événements pendant que je fais ma sélection dans le ComboBox et de le réactiver quand j'ai terminé. Comment puis-je générer cette fonctionnalité?

Answer 1

Peut-être que vous pouvez mettre un drapeau pour contourner la veille de mise à jour nt sur votre combobox jusqu'à ce qu'une sélection soit faite.

Private bLock as boolean ' declare at module level 

' When a user clicks on the combobox 
Private Sub DropDownArrow_Click() ' or cboComboBox_Click() 
    bLocked = True 
End Sub 

' This procedure is the one that does the updating from the data source. 
' If the flag is set, do not touch the comboboxes. 
Private Sub subUpdateComboBoxes() 
    If Not bLocked then 
     ' Update the comboboxes 
    End If 
End Sub 


' When the selection is made, or the focus changes from the combobox. 
' check if a selection is made and reset the flag. 
Private Sub cboComboBox_AfterUpdate() ' Or LostFucus or something else 
    if Format(cboComboBox.Value) <> vbNullString Then 
     bLocked = False 
    End If 
End Sub 

Espérons que ça aide.

Answer 2

Essayez cette option pour désactiver:

Application.EnableEvents = false

Et cela se rallume:

Application.EnableEvents = true

Answer 3

Pour mettre en pause et afficher un message et continuer à travailler pendant la pause. enfin appuyer sur le bouton

Public Ready As Boolean 

Private Sub Command1_Click() 
Ready = True 
End Sub 

Private Sub Form_Load() 
Me.Show 
Ready = False 
Call Wait 
Label1.Visible = True 
End Sub 

Public Function Wait() 
Do While Ready = False 
    DoEvents 
Loop 
End Function