Probleme VBA On Error Fermé

Question

Bonjour, 

j'ai une question sans doute de débutant, mais j'aimerai comprendre.
Dans le programme suivant, si je n'entre pas de chiffres, j'obtiens bien un message d'erreur, mais ensuite le programme s'arrete au lieu de revenir me demander un chiffre (ie il ne revient pas à la ligne theNumber = Inputbox etc..pourquoi ne fait-il pas la boucle?

Sub Myfirstprocedure()
    Const dataSheetName = "Kappa" ' name of sheet
    Const raiseToPower = 2 ' square the number
    Dim theNumber As Integer ' from user
    Dim theResult As Integer ' calculated value
        On Error Resume Next
        theNumber = InputBox("Enter a whole number", "Integer Input", 0)
            If Err.Number <> 0 Then
            MsgBox "Your Input was not numeric. Please enter an Integer Value", vbOKOnly, "Error"
            On Error GoTo 0
            Err.Clear
            Exit Sub
            End If
        On Error GoTo 0 ' allows errors to be handled by the system again
    theResult = theNumber ^ raiseToPower
    Worksheets(dataSheetName).Range("A1") = theResult
    MsgBox theNumber & " raised to the power of " & raiseToPower & " = " & theResult
End Sub

J'utilise le Visual Basic editeur d'Excel 2010.
Configuration: Windows 7 / Firefox 13.0.1

Merci par avance,

D

michel_m · Answer

Bonjour,   

Il y a plusieurs manières de gérer l'erreur en voici une 

  

Dim flag as boolean

While flag = False   
     On Error Resume Next   
     theNumber = InputBox("Enter a whole number", "Integer Input", 0)   
     If Err.Number <> 0 Then   
          MsgBox "Your Input was not numeric. Please enter an Integer Value", vbOKOnly, "Error"   
          On Error GoTo 0   
      Else   
          flag = True   
     End If   
Wend

 Michel

Probleme VBA On Error

1 réponse

Discussions similaires

Newsletters