Excel
• •Planning 5 à 7 - V 1.0
• •Clé dynamométrique - V 1.0
• •Tour de Hanoï - V 1.0
• •WebRadio - V 1.1
• •ZipTi - V 2.3

PPS
• •PPS 24
• •PPS 23
• •PPS 22
• •PPS 21
• •PPS 20

OOo
• •Didactitiel OOo - V 2.0

Interrompre une procédure DO / LOOP

On utilise pour celà la propriété EnableCancelKey dont l'exemple ci dessous peut gérer les erreurs et même reprendre la boucle si on le souhaite :

Option Explicit

Sub Interruption()
'Ti 07-07-04 : xlti@wanadoo.fr
Dim Reponse, Bcle%
    On Error GoTo fin
    Application.EnableCancelKey = xlErrorHandler
    Do
        'pour passer le temps...
        Bcle = IIf(Bcle = 0, 1, 0)
    Loop
    Exit Sub
fin:
    If Err = 18 Then
        Reponse = MsgBox("Annuler la procédure ?", vbYesNo, "BcleTi")
        If Reponse = vbNo Then Resume
    ElseIf Err <> 0 Then
        MsgBox "Erreur durant le traitement", vbExclamation, "BcleTi"
    End If
End Sub

Date de création : 24/05/2005 - 19:08
Dernière modification : 25/05/2005 - 22:22
Catégorie : Evènements
Page lue 3242 fois

 Prévisualiser la page      Imprimer la page

Aujourd'hui :
Nativité

Un p'tit don ?

C'était aussi un 08 Septembre
1994

Les Soviétiques et les Alliés quittent Berlin après 49 ans d'occupation.

Né(e) un 08 Septembre 1910
Jean-Louis Barrault

  Membres: 1660

[ Mot de passe perdu ? ]

[ Devenir membre ]

  Membre en ligne: 0

  Anonymes en ligne: 46

1384477