Controle d'un champ de saisie par inputbox

bonjour j'ai ecris le code suivant qui a l'air de marcher

Option Explicit
Sub controle()
Dim NomOk
Dim resultat As String
1: resultat = InputBox("Choix de la saisie entre VELO,STYLO,TABLE,CHAISE :", "question")
    NomOk = ",VELO,STYLO,TABLE,CHAISE,"
  If InStr(1, NomOk, "," & resultat & ",", vbBinaryCompare) = 0 Then
    MsgBox " saisie refusée"
  ' je voudrai placer ici une instruction de vidage du champ de réponse de l'inputbox
     goto 1 ' on recommence 
    Else
    MsgBox " saisie acceptée"
   End If
End Sub

il me reste à nettoyer le champs de réponse de l'inputbox lorsque la saisie n'est pas accepté , comment puis je faire puisqu'il ne s'agit pas d'une cellule à vider ?

Merci pour vos réponses

Bonjour,

Change la ligne du code suivant :

1: resultat = InputBox("Choix de la saisie entre VELO,STYLO,TABLE,CHAISE :", "question")

par :

1: resultat = InputBox("Choix de la saisie entre VELO,STYLO,TABLE,CHAISE :", "question", "")

Remarque : Prévoir une sortie de programme quand l'utilisateur clique sur "Annuler"

Merci raja je vais rester ca

........quel est l'interet des double quotes à la fin de l'instruction ? :

1: resultat = InputBox("Choix de la saisie entre VELO,STYLO,TABLE,CHAISE :", "question", "")

merci

rocket4 a écrit :

........quel est l'interet des double quotes à la fin de l'instruction ? :

Ce troisième paramètre de la fonction InputBox est le contenu par défaut. En le mettant "", on initialise le contenu à vide.

Daccord je ne comprenais pas , merci à toi Raja et bonne soirée