Discussion :

[Diagonale974]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim sstop As Boolean

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Diagonale974]

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

cordialement

[eriiic]

Bonjour,

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

[unparia]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 0 To n
     f.Range("O" & lgn + i) = a + i
  Next i

[Docmarti]

Bonjour.

Remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = True