Bonjour tous,

J'ai un petit problème avec un code utilisant "On Error GoTo".
La première fois que je tombe sur une erreur, l'instruction "On Error" marche et je passe à la suite du code.
Par contre, la deuxième fois que je retombe sur une erreur, ça bug!!!!

Ci-après un code qui représente mon problème (sélectionne une feuille à partir de son nom si elle existe. Autrement, il repropose de réessayer)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub select_sheet()
 
Dim Msg As String           ' Message du MsgBox
Dim Title As String         ' Titre du MsgBox
Dim Response As String      ' Réponse du MsgBox
 
Début:
' Boîte de dialogue
 
    Msg = "Entrer le nom de la feuille"      ' Définit le message.
    Title = "Sélection de feuille"           ' Définit le titre.
 
    Response = Application.InputBox(Msg, Title, Type:=2)
 
If Response = "" Then
 
GoTo Début
 
End If
 
If Response <> "Faux" Then
 
    On Error GoTo Début
 
    ActiveWorkbook.Sheets(Response).Select
 
End If
 
End Sub

Merci d'avance de votre aide!