none
Debug sur VBA RRS feed

  • Question

  •  

    Bonjour,

     

    Pourquoi lorsque j'ai une erreur du style Division par ZEROS, la fenetre s'affiche, mais je ne tombe pas en mode DEBUG automatiquement ?

     

    je ne perviens pas à trouver la réponse. Es-ce un paramètrage ? Es-ce une version trop ancienne je suis en 6.3, version 9969.

     

    J'apprends VBA, d'ôù ce niveau de question sûrement peu élévé

     

    Merci si une personne a la réponse.

     

    Michel JOLLY

    mercredi 13 février 2008 13:35

Toutes les réponses

  • Bonjour,

     

    Où provoquez-vous cette division ?

    Par code ?

    Dans une cellule ?

     

    En VBA, vous pouvez tester ce petit bout de code... Vous appelez la procédure testDivision.

    Code Snippet

    Function DiviserAvecErreur(Nombre1 As Single, Nombre2 As Single) As Single
    Dim sngResultat As Single
        sngResultat = Nombre1 / Nombre2
        DiviserAvecErreur = sngResultat
    End Function

     

    Function DiviserSansErreur(Nombre1 As Single, Nombre2 As Single) As Single
    Dim sngResultat As Single
       
        If Nombre1 Then
            If Nombre2 Then
                sngResultat = Nombre1 / Nombre2
            End If
        End If
        DiviserSansErreur = sngResultat
    End Function

     

    Sub testDivision()
    Dim sngResultat As Single

        On Error GoTo Erreur
       
        sngResultat = DiviserSansErreur(10, 0)
        If sngResultat Then
            MsgBox "DiviserSansErreur = " & sngResultat
        Else
            MsgBox "Pas possible d'effectuer cette division !"
        End If
       
        sngResultat = DiviserAvecErreur(10, 0)
        If sngResultat Then MsgBox "DiviserAvecErreur = " & sngResultat
       
    Sortie:
        Exit Sub
    Erreur:
        If Err.Number = 11 Then
            MsgBox "C'est pas bien de diviser par 0 !", vbExclamation
        Else
            MsgBox "L'erreur " & Err.Number & " a été rencontrée !" & vbCrLf & Err.Description, vbExclamation
        End If
        Resume Sortie
    End Sub

     

     

    Est-ce compréhensible pour vous ?

     

     

    jeudi 14 février 2008 17:11
    Modérateur