Discussion :

[top smart]

moi j'ai un problem
je voudrai que mon macro goto 500 si la réponse ne se trouve pas exemple
j'ai 3 feuil
1- janv
2- mars
3- avril

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
sub hh()
     critère = InputBox("Tapez le nom du feuil svp")
  sheets(critère).select
     range("A1")=critère
     goto 600
500
     range("A1")=0
600
end sub

[Thautheme]

Bonjour Top, bonjour le forum,

Essaie comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub hh()
critère = InputBox("Tapez le nom du feuil svp")
On Error GoTo 500
Sheets(critère).Select
Range("A1") = critère
GoTo 600
500
Range("A1") = 0
600
End Sub

Ou avec la Méthode plutôt que la Fonction InputBox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub hh()
Dim O As Variant
 
deb:
O = Application.InputBox("Tapez le nom de l'onglet svp !", "NOM", Type:=2)
If O = False Then Exit Sub
If O = "" Then MsgBox "Vous devez taper le nom de l'onglet !": GoTo deb
On Error GoTo fin
Sheets(O).Select
Range("A1") = O: Exit Sub
fin:
Range("A1") = 0
End Sub