Aller au contenu

Gérer les erreurs dans le VBA Compiler

Des erreurs d’exécution peuvent se produire lorsque votre code VBA compilé est exécuté. Alors que le VBA standard utilise l’instruction On Error pour la gestion des erreurs, le VBA Compiler de XLS Padlock utilise un bloc Try...Except.

Lorsqu’une erreur se produit dans le bloc Try (ou dans toute procédure qu’il appelle), le compilateur passe immédiatement au bloc Except pour la gérer.

Syntaxe

Try
    ' ... Code to execute ...
Except
    ' ... Code to run if an exception occurs ...
End

Exemple de code

NumberStr = ""
if InputQuery("Input", "Type an integer from 1 to 7", NumberStr) then
    try
        Number = StrToFloat(NumberStr)
    except
        raise("Not a valid number")
    end

    select case Number
        case 1
            ShowMessage("One")
        case 1 + 1
            ShowMessage("Two")
        case 4.5 / 1.5
            ShowMessage("Three")
        case 2 * 2
            ShowMessage("Four")
        case Length("xxxxx")
            ShowMessage("Five")
        case 3 + 3, 3 + 4
            ShowMessage("Six or Seven")
        case else
            ShowMessage("You did not type an integer from 1 to 7")
    end select
end if