Interompre une macro

Résolu
Dandy_danbe Messages postés 108 Date d'inscription   Statut Membre Dernière intervention   -  
Dandy_danbe Messages postés 108 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
J'ai un jeu bingo avec un tirage que je lance avec un code
je voudrais mettre 2 bouton, 1 pour interompre ce code et 1 deuximme pour reprendre ce code la ou il a ete inerompu, j'ai essayer avec ctrl+pause et f9 mais cella eface cetaine celulles ce qui ne peut etre le cas
deja je remerci pour les eventuelle reponce
cordialement Dandy_dan



A voir également:

3 réponses

Réponse 1 / 3
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

Ce qui serait le plus logique c'est que ton code prévoit l'interruption et la reprise : tu ne crois pas ?
0
Réponse 2 / 3
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Interrompre ou arrêter ?

Pour interrompre c'est assez simple mais on ne peut pas reprendre à l'aide d'un bouton : 
Private Sub CommandButton1_Click()
  Stop
End Sub

Pour arrêter / redémarrer, il faut prévoir une procédure pour chacun qui mémorise / restitue le contexte (valeur des variables).
Cordialement
Patrice
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Salut Patrice,

Pour interrompre c'est assez simple
Tu es sûr que ton code va arrêter la procédure qui calcule aléatoirement un tirage ???
0
Dandy_danbe Messages postés 108 Date d'inscription   Statut Membre Dernière intervention  
 
Rebonjour;
ceci est le code qui genere un novaeu monber toutes les 15 seconde
mon souci est que l'orsqu'un joueur a les 4 coin je dois faire un pause et reprendre le tirage la ou il c'est arrete.
encore merci pour le temps que vous me consacre

Dim Interval, x

Sub Change_Formule()
' Touche de raccourci du clavier: Ctrl+k
Interval = 15 'modifiable
x = 1
Call Comptage
End Sub

Sub Comptage()
'adaptez le nom de feuille
Worksheets("Treking").Range("h5").FormulaLocal = "='blad1'!c" & x
'incremente pointeur cellule
x = x + 1
'sortie
If x > 90 Then Exit Sub
'attente relance macro
Application.OnTime Now + TimeValue("0:00:" & Interval), "Comptage"
End Sub
0
Réponse 3 / 3
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

Pour tes boutons je te propose ce code à adapter selon ta feuille 
Private Sub CommandButton1_Click() ' stop
    Sheets("Treking").[H6].Value = "stop"
End Sub

Private Sub CommandButton2_Click() ' go
    Sheets("Treking").[H6].Value = ""
End Sub

et pour tes procédures 
Sub Comptage()
'adaptez le nom de feuille
If Sheets("Treking").Range("H6").Value = "stop" Then
    Application.OnTime (Now + TimeValue("0:00:" & Interval)), "Arrêt"
Else
    Worksheets("Treking").Range("h5").FormulaLocal = "='blad1'!c" & x
    'incremente pointeur cellule
    x = x + 1
    'sortie
    If x > 90 Then End
    'attente relance macro
    Application.OnTime Now + TimeValue("0:00:" & Interval), "Go"
End If
End Sub
Sub Go()
    Call Comptage
End Sub

Public Sub Arrêt()
    Call Comptage
End Sub

0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonsoir,

Tu peux même simplifier ta macro ainsi 
Sub Change_Formule()
' Touche de raccourci du clavier: Ctrl+k
Interval = 15 'modifiable
x = 1
Call Comptage
End Sub

Sub Comptage()
'adaptez le nom de feuille
If Sheets("Treking").Range("H6").Value <> "stop" Then
    Worksheets("Treking").Range("h5").FormulaLocal = "='blad1'!c" & x 
    x = x + 1 'incremente pointeur cellule
    If x > 90 Then End    'sortie
End If
    'attente relance macro
    Application.OnTime Now + TimeValue("0:00:" & Interval), "Comptage"
End Sub
0
Dandy_danbe Messages postés 108 Date d'inscription   Statut Membre Dernière intervention   > gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour;
desole de repondre si tardivemnet.
j'ai essayer de copier les code, mais un problemme avec les bouton?
ca ne fonctionne pas, apparament je dois faire une erreur qulque part, en generale j'utilise des forme et j'ajoute une macro dans set forme, par conter dans ce code nous parlons de bouton, pour les bouton est ce que je dois est une macro ou un code progamme.
merci de votre patience
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour;

j'utilise des forme et j'ajoute une macro
Alors en utilisant ta méthode, voilà ce que cela peut donner comme code 
Option Explicit
Dim Interval As Integer, x As Integer, go As Boolean

Sub Change_Formule()
' Touche de raccourci du clavier: Ctrl+k
Interval = 15 'modifiable
x = 1: go = True
Call Comptage
End Sub

Sub arrêt() ' stop
   go = False
End Sub

Sub lancer() ' go
    go = True
End Sub
Sub Comptage()
'adaptez le nom de feuille
If go Then
    Worksheets("Treking").Range("h5").FormulaLocal = "='blad1'!c" & x
    x = x + 1    'incremente pointeur cellule
    If x > 90 Then End    'sortie
End If
    'attente relance macro
    Application.OnTime Now + TimeValue("0:00:" & Interval), "Comptage"
End Sub


Le classeur test : https://www.cjoint.com/c/GKpkThl73Yl
0
Dandy_danbe Messages postés 108 Date d'inscription   Statut Membre Dernière intervention   > gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour je voudrais vous dire un grand grand merci va fonctionne a merveille
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Merci du retour.
Si tu stoppes le comptage sans aller jusqu'à 90 tu auras une erreur. Pour sortir proprement il te faudrait une fonction qui arrête le 'ontime'.
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
EXCEL transformer chiffres en lettre -facture
roland -
JBB -

26 réponses
Arrêt d'exécution d'un code vba
amiro2017 -
amiro2017 -

6 réponses
convertir des chiffres en lettres avec une unique formule
FOUAD_9000 -
Mike-31 -

34 réponses