Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Stoper acquisition et pas seulement programme

  • Initiateur de la discussion Initiateur de la discussion AzoR
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

AzoR

XLDnaute Occasionnel
Bonjour à tous !

Je cherche des lignes de commande qui permettrai que, lorsque l'on clique sur un bouton, mes acquisitions de mesures (AGILENT 34980A) s'arrêtent. Avec toutes les commandes que j'ai trouver, je ne peux pas avoir la main et cliquer sur le bouton lorsque mon Agilent fait ses acquisitions, je peux cliquer seulement pendant le traitement de mes données.
J'ai déjà essayer ceci :

"Dans la procédure de ton bouton Stop, tu insères le code suivant

'----------------------------
Sub Bouton_Stop()
arrêt = true
End Sub
'----------------------------

Dans la procédure qui génère des nombres aléatoires, tu
insères dans ladite boucle les 2 commandes suivantes :
'----------------------------
For a = 1 to XXX
DoEvents
if Arrêt = True then
Arrêt = False
Exit sub
End if

'le reste de ton code
Next
'---------------------------- "

Mais impossible de cliquer sur mon bouton pendant l'acquisition ...

Auriez vous une idée s'il vous plais ?

Merci d'avance pour votre attention,

Cordialement
 
Re : Stoper acquisition et pas seulement programme

Bonjour AzoR,

Récupéré sur un autre site
A adapter donc !!!

Cordialement

VB:
Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim ArreterlaCapturedéfinitivement As Boolean

Sub Bidon()

  ArreterlaCapturedéfinitivement = False

  'While ArreterlaCapturedéfinitivement() = False
  While ArreterlaCapturedéfinitivement = False
    Call Sleep(100)
    Cells(1, 1) = "A"
    DoEvents
  Wend
  MsgBox "Terminé"
End Sub

Sub StopProcedure()
  ArreterlaCapturedéfinitivement = True
End Sub
 

Pièces jointes

Dernière édition:
Re : Stoper acquisition et pas seulement programme

Bonjour,

cela ne marche pas du tout. J'ai rajouter un bouton pour exécuter ceci mais je n'ai pas la main pour pouvoir cliquer sur le bouton, et je ne comprend pas trop ce qu'il fait dans ces lignes de commande ...

Si quelqu'un a une autre idée je suis preneur !

Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…