stopper une procédure en cours

Version imprimable

Bonjour

J'ai le code suivant mais je n arrive pas à stopper la procédure une fois lancée
j ai créé un bouton stop mais je n ai pas la possibilité de l'actionner
merci pour votre aide
cordialement

Code:

Dim sstop As Boolean

Code:

1
2
3
4
5
 
Sub Bouton16_Clic()
sstop = True
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub CommandButton3_Click()
Dim f As Worksheet, ln%, lgn%, n%, i%, a%, j%
    Set f = Worksheets("Feuil2")
    sstop = False
    f.Range("A1").CurrentRegion.Offset(2).Clear
    lgn = 3
    Application.ScreenUpdating = False
    With Me
        For ln = 3 To .Range("A" & .Rows.Count).End(xlUp).Row
             a = Year(.Range("D" & ln)): n = Year(.Range("G" & ln)) - a
            .Range("A" & ln & ":AE" & ln).Copy f.Range("A" & lgn & ":A" & lgn + n)
            For i = 0 To n
            f.Range("O" & lgn + i) = a + i
            Next i
            lgn = lgn + n + 1
                DoEvents
                If sstop Then
                MsgBox "arrêt": Exit Sub
                End If
        Next ln
    End With
    f.Activate
 
End Sub

Bonjour,

quel est le but exact ?

car tu as une variable au niveau du module : OK
ton bouton, au clic, met cette variable en position où on pourra détecter l'arrêt : OK
dans la procédure que tu nous montres, tu commences d'emblée par remettre la variable à False ... donc jamais elle ne pourra stopper quoi que ce soit

et au passage, le bouton n'est pas la bonne solution. Ta variable doit "détecter" dans la procédure la condition qui la fera changer de valeur pour devenir un vrai moteur d'arrêt.

Un exemple parfaitement futile (pas besoin de variable Stop pour faire ça), mais juste pour comprendre ce que j'explique
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Test_Toto() Dim LaChaine As String, LaCellule As Range Dim Sstop As Boolean LaChaine = "CeQueJeCherche" Set LaCellule = Feuil1.UsedRange.Columns(1).Find(LaChaine) If LaCellule Is Nothing Then Sstop = True If Sstop Then Exit Sub MsgBox "On a trouvé quelque chose" End Sub

04/02/2017, 17h26
Diagonale974

merci pour votre réponse
je souhaite simplement me donner la possibilité d'arrêter la procédure si besoin...

cordialement
04/02/2017, 17h48
eriiic

Bonjour,

Citation:

tu commences d'emblée par remettre la variable à False ... donc jamais elle ne pourra stopper quoi que ce soit

D'autant plus que rien n'indique que tu l'aies déclarée globale ou publique.

Mais il me semble que tu avais démarré cette question ailleurs. Pourquoi ne pas avoir continué au même endroit ? Le helper se serait fait un plaisir de répondre.
eric
04/02/2017, 18h03
unparia
Bonjour

J'observe que tu as deux boucles imbriquées et qu'aucune arrêt n'est prévue dans celle-ci :
Code:

1 2 3 For i = 0 To n f.Range("O" & lgn + i) = a + i Next i
05/02/2017, 14h53
Docmarti

Bonjour.

Remplace

Code:

Application.ScreenUpdating = False

par

Code:

Application.ScreenUpdating = True