Bonsoir à tout le monde,
J'ai un petit problème le bouton annuler d'un inputbox. J'ai essayé de le gérer en indiquant dans mon code de sortir de la procédure lorsque l'on cliquait dessus. Le problème c'est que le système sort de la procédure même quand on clique sur le bouton OK. Je pense que c'est un problème de syntaxe voir de code pour le bouton annuler. Vous trouverez ci-dessous mon code (la gestion du bouton annuler se fait à partir de seconde ligne) :
reponse = InputBox("Entrez le n° de le commande recherchée :", "RECHERCHE", "")
If vbCancel Then
Sheets("BC").Select
Range("E8").Select
Else
Sheets("Base cde").Visible = True
Sheets("Base cde").Select
If Range("A3:A1048576").Find(reponse) Is Nothing Then
Sheets("Base cde").Visible = False
Sheets("BC").Select
reponse = MsgBox("Aucune commande identifiée à ce numéro. Vérifier votre saisie ou le numéro recherché", vbOKOnly)
Exit Sub
Else
Sheets("DUPLICAT").Visible = True
Sheets("DUPLICAT").Select
Range("I4").Value = reponse
End If
End If
Une idée ?
Bonne soirée et merci d'avance.
J'ai un petit problème le bouton annuler d'un inputbox. J'ai essayé de le gérer en indiquant dans mon code de sortir de la procédure lorsque l'on cliquait dessus. Le problème c'est que le système sort de la procédure même quand on clique sur le bouton OK. Je pense que c'est un problème de syntaxe voir de code pour le bouton annuler. Vous trouverez ci-dessous mon code (la gestion du bouton annuler se fait à partir de seconde ligne) :
reponse = InputBox("Entrez le n° de le commande recherchée :", "RECHERCHE", "")
If vbCancel Then
Sheets("BC").Select
Range("E8").Select
Else
Sheets("Base cde").Visible = True
Sheets("Base cde").Select
If Range("A3:A1048576").Find(reponse) Is Nothing Then
Sheets("Base cde").Visible = False
Sheets("BC").Select
reponse = MsgBox("Aucune commande identifiée à ce numéro. Vérifier votre saisie ou le numéro recherché", vbOKOnly)
Exit Sub
Else
Sheets("DUPLICAT").Visible = True
Sheets("DUPLICAT").Select
Range("I4").Value = reponse
End If
End If
Une idée ?
Bonne soirée et merci d'avance.