création d'une fonction vba

[julien]

bonjour chers internautes,
j'ai une toute petite fonction ridicule à réaliser mais je ne sias pas pkoi, mais je n'arrive pas à la faire. Je dois chercher trop compliqué à force.
Enfin bref, à partir d'une fonction vba en sub() obligatoirement, il me faut créer une boite dialogue dans laquelle je dois inscrire un nombre compris par exemple entre 0 et 5. Si dans le cas contraire ce nombre n'est pas saisie, la fenêtre se ferme en en ouvrant une autre qui indiquerait un message d'erreur.

Cette fonction pourrait, dans le cas de l'erreur, indiqué ce message d'erreur et permettre de resaisir un autre chiffre. Prévoir aussi un bouton annulé. On peut aussi n'autoriser que 3 erreurs. Au bout de 3 erreurs, le programme s'arrête.

merci d'avance pour votre aide. Si possible, si je n'en demande pas trop, faite moi un fichier de ce programme pour ainsi voir quelles sont toutes les fonctions utilisées.

un grand merci d'avance

 

[Charly2]

Bonsoir Julien,

Décidément, c'est la soirée des DM

Voici un code possible mais ce n'est pas le seul, par contre, je te laisse créer le fichier (on va pas tout faire non plus ) :

Sub NombreEntre_0_et_5()
'
Dim Nb As Integer
Dim Essai As Byte
Dim NbOk As Boolean
'
  Essai = 0
  NbOk = False

  Do
    Nb = Application.InputBox(prompt:='Entrez un nombre entre 0 et 5 :', Type:=1)
    Essai = Essai + 1
    If Nb >= 0 And Nb <= 5 Then
      NbOk = True
    Else
      MsgBox 'Nombre non valide !!!'
    End If
  Loop Until NbOk Or Essai = 3
End Sub

Bon courage

Amicalement
Charly