Boucle On Error GoTo

import:

On Error GoTo erreur

 
With ActiveSheet.QueryTables.Add(Connection:=url_page, Destination:=Sheets("YAHOO" ).Range("A1" ))

 
 
erreur:

toto = InputBox(ksbvflo)

Sheets(1).Cells(1, 1) = toto

Sheets(1).Cells(2, 1) = toto / 2

'si toto n'est pas un nombre, erreur est relancé

resume import

sortie:

  exit sub

import:

    On Error GoTo erreur

 
erreur:

   toto = InputBox(ksbvflo)

   tata = toto / 2

 
  Resume import

sortie:

  Exit Sub

On Error GoTo erreur

 
erreur:

   toto = InputBox(ksbvflo)

   tata = toto / 2

'on revient a erreur tant que toto/2 donne une erreur  

 
...

...  'suite du code

Sub solucecradejenaihonte()
    On Error GoTo erreur
 
revenir:
    toto = InputBox(ksbvflo)
    tata = toto / 2
    On Error GoTo 0
 
    ' // suite du code
Exit Sub
erreur:
    GoTo revenir
End Sub

Sub solucepropre()
    Dim toto As String
 
    Do
    	toto = InputBox(ksbvflo)
    Loop While Not IsNumeric(toto)
 
    ' // suite du code
End Sub

Sub solucepropre()

 
        Dim toto As Range

 
        Do

            Set toto = Sheets(1).Cells.Find("toto", lookat:=xlWhole)

        Loop While toto Is Nothing

 
               toto.Select

        ' // suite du code

    End Sub