InputBox bouton Annuler

Bonjour à tous,

Y-a t-il un code spécifique pour gérer le bouton Annuler

bon = Application.InputBox("Vérifiez Le N° de bon , corrigez si besoin", "   N° Bon", Range("m1"))
If bon = "" Then Exit Sub
Range("m1") = bon

- Dans cette exemple, j'ai la valeur par défaut affichée, mais si je clique sur "Annuler", çà n'annule rien !

Bonne journée

Claude.

Salut Claude,

le code en question à adapter:

Sub test()
Dim reponse As String
reponse = InputBox("entrez quelque chose")

Select Case reponse
Case Is = vbCancel
Exit Sub
Case Is = vbOK
....
End Select
End Sub

A te lire,

Souri84

Edit 2: désolé, je n'avais pas vu que tu avais fourni un code (je suis fatigué en ce moment....8h/19h tous les jours... c'est tendu un peu pour moi qui adore glander....)

Bonjour

A adapter aussi

Private Sub CommandButton1_Click()
  reponse = InputBox("tapez votre texte", "Essai bouton Annuler", " ")
  If reponse = "" Then
    MsgBox "vous avez appuyé annuler"
  ElseIf reponse = " " Then
    MsgBox "vous avez appuyé sur OK sans information"
    reponse = ""
  Else
    MsgBox "vous avez écrit " & Trim(reponse)
  End If
End Sub

Bonjour,

essaie ceci:

Sub test()
Dim bon
bon = Application.InputBox("Vérifiez Le N° de bon , corrigez si besoin", "   N° Bon", Range("m1"))
If bon <> 0 Then Range("m1") = bon
End Sub

Amicalement

Dan

re,

souri84, il doit manquer quelque chose dans ton code !

en cliquant sur OK il passe directement de :

Case Is = vbOK

à

End Select

en sautant ma ligne d'instruction !

finalement, je prends le code de Dan, Attention à ne pas oublier le Application. devant

InputBox, sinon çà efface.

Dim bon
bon = Application.InputBox("Vérifiez Le N° de bon , corrigez si besoin", "   N° Bon", Range("m1"))
If bon <> 0 Then
Range("m1") = bon
Else: Exit Sub
End If

j'ai pas tester celui de CB60

merci à tous

à+....Claude.