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
) :
Citation:
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