Se connecter avec
S'enregistrer | Connectez-vous

Aide sur la récupération d'événement de souris API ou autre - VBA Excel

Tags :
Dernière réponse : dans Programmation
Partagez

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


Comment avoir l’évènement de souris clique gauche en VBA sous excel ?

Y'a t-il un moyen de inhiber le clic gauche de la souris pendant l’exécution de ma procédure ?

sceenUpdating ne change rien


Voici le code de la procédure qui est appelé a chaque fois qu'un évènement ce produit sur le changement d'état d'une des variables :

Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, _
ByVal NumItems As Long, _
ClientHandles() As Long, _
ItemValues() As Variant, _
Qualities() As Long, _
TimeStamps() As Date)

Dim i As Integer

For i = 1 To NumItems
Cells(ClientHandles(i), 4) = ItemValues(i)
Next i

End Sub


Il me plante sur le Cells(ClientHandles(i), 4) = ItemValues(i).

Je crois qu il est perdu lorsque je lui demande de sélectionner une cellule avec le clic gauche et en même temps d'écrire sur une autre.

C'est pour ça que je cherchais un moyen pour que l'utilisateur ne puisse pas cliquer au moment ou il y a un évènement.. une réponse ?
Posez votre question