Problème d?évènement entre une fonction et un évènement souris.

Question

Bonjour à tous J’ai une application Excel qui communique avec un serveur OPC (Tout fonction bien, stable) J’ai une procédure qui ai appelée par événement à chaque fois (qu’une variable abonné) a changée de valeur. Le problème ai que si la fonction n’ai pas terminé ET qu’un événement souris se produit par exemple : clique gauche sur la feuille et bien un message d’erreur se produit ????? (Un clique droit ne crée pas d’erreur) -------------------------------------------------------------------------------------------------------------- Voici l’erreur : Erreur d’exécution’50290’ Erreur définie par l’application ou par l’objet Voici la fonction : Sub GroupeReadWriteOnly_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date) ' We don't have error handling here since this is an event called from the OPC interface On Error GoTo Err_GroupeReadWriteOnly_DataChange Dim i As Integer For i = 1 To NumItems Worksheets("Feuil1").Range("B" & ClientHandles(i)).Value = ItemValues(i) <--- L’erreur se produit ici losqu’on a fait un clique gauche sur la feuille Next i GoTo SkipErr_GroupeReadWriteOnly_DataChange Err_GroupeReadWriteOnly_DataChange: MsgBox Err.Description + vbCrLf + "Erreur produite dans le programme: GroupeReadWriteOnly_DataChange" SkipErr_GroupeReadWriteOnly_DataChange: End Sub -------------------------------------------------------------------------------------------------------------- Pourquoi et comment résoudre se problème ? Merci beaucoup de votre aide Bonne journée Laurent

cs_MPi · Answer

Tu pourrais mettre une variable booléenne (déclarée globale) en début d'exécution et en fin d'exécution
Au début, tu la changes à True. À la fin, tu la remets à False

ex:
Public EnAction as boolean

Sub MaSub()
    If not EnAction  then
        EnAction = True
        ...Code
    end if
    En Action = False
End sub

MPi

cs_MPi · Answer

Ou plutôt comme ceci, avec le EnAction = False dans le IF, à la fin de l'action.

Sub MaSub()
    If not EnAction  then
        EnAction = True
        ...Code
        En Action = False

    end if
End sub

MPi

laurent1475 · Answer

Merci de ta réponse MPi J’ai fait le test mais rien n’est résolut toujours le même problème. De toute façon qui commande la variable EnAction ? Mais le problème n’ai pas un conflit entres mes fonctions (qu’il faudrait synchronisé) mais un problème entre la fonction à("Feuil1").Range("B" & ClientHandles(i)).Value = ItemValues(i) et la sélection de la souris. Ce que tu préconise c'est de mettre EnAction = True dans l’événement de la souris ? Pour ne pas exécuté l’autre fonction ? (Je perdrais la lecture de l’événement) Ou une autre manière, (qui serais mieux) sa serai de stopper l’événement de la souris pendant l’exécution de ma fonction (avec ta variable EnAction) Comment récupères tu l’évènement de la souris avec API windows dans Excel ? A+ laurent

Problème d?évènement entre une fonction et un évènement souris.

3 réponses

Votre réponse

Discussions similaires