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