Tester une donnée entrée dans un inputBox

Version imprimable

30/06/2008, 17h01
AVNAIM

Tester une donnée entrée dans un inputBox
J'ai un inputBox pour lequel la donnée à entrer doit être un integer
Code:

1 2 Dim Quantite As Integer Quantite = InputBox("entrez la quantité en grammes ","Quantité ingrédient")
Si je tape un entier pas d'erreur mais en cas de fausse manœuvre, pour tester la donnée j'ai tapé le code suivant (que je trouve dans mes bouquins)
Code:

1 2 3 4 5 6 7 On error goto ErreurDonnee ………………. ErreurDonnee: If Err = 13 then Msgbox "vous devez taper uniquement un nombre à l'exception de tout autre type. Recommencez" End If ……..
pour tester j'ai tapé dans l'input Box, le bouton OK puis le bouton Cancel puis la touche Entrée
Excel ne semble pas comprendre le Goto car j'ai toujours le message: Erreur de compilation Erreur 13 Type incompatible

J'ai copié textuellement ce qui est écrit dans les bouquins et je ne vois vraiment pas ce qui se passe.
Si quelqu'un pouvait m'éclairer je l'en remercie d'avance
Avnaim
30/06/2008, 17h13
ucfoutu

Bonjour,

ouvre cette discussion :

http://www.developpez.net/forums/sho...d.php?t=572881

lis tout, puis adapte à ton cas, au besoin
30/06/2008, 17h31
ilcocodrillo

Code:

On error goto ErreurDonnee

se situe au début de la procédure ?

Salut AVNAIM et le forum
sans plus d'explication, une proposition :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim Rep As Variant
Saisie_1:
Rep = Application.InputBox("nombre entier", "Saisie", 1000, , , , , 1)
If Rep = 0 Then Exit Sub 'correspond à annuler
If Rep - Fix(Rep) <> 0 Then
    MsgBox "on t'a dit un ENTIER, ce qui veut dire :" & Chr(13) & _
       "un nombre sans décimale, Clown", vbQuestion + vbOKOnly, _
       "Problème de compréhension de lecture"
    GoTo Saisie_1
End If
'traitement après --------------------------
End Sub

Si on déclare Rep en Long ou en Integer, il ne tiendra pas compte des décimales.
Une autre variante

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
Dim Rep As Variant
Saisie_1:
Rep = InputBox("nombre entier", "Saisie", 1000)
If IsNumeric(Rep) Then
    If Rep - Fix(Rep) <> 0 Then
         MsgBox "on t'a dit un ENTIER, ce qui veut dire :" & Chr(13) & _
           "un nombre sans décimale, Clown", vbQuestion + vbOKOnly, _
           "Problème de compréhension de lecture"
        GoTo Saisie_1
    End If
Else
    If Rep = "" Then Exit Sub
    MgsBox "vous devez taper uniquement un nombre à l'exception de tout autre type" _
            & Chr(13) & "Recommencez!!!!", vbQuestion + vbOKOnly, _
            "Problème de saisie"
End If
'traitement après --------------------------
End Sub

EDIT*****************
et comme ça ne me plaisait pas, j'ai oublié de mettre la plus proche de la demande :mrgreen: :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
On Error GoTo Err_Test
Dim Quantite As Integer
'traitement avant ---------
Saisie_1:
Quantite = InputBox("entrez la quantité en grammes ", "Quantité ingrédient")
'traitement après ---------
Exit Sub
Err_Test:
If Err.Number = 13 Then
    MsgBox "vous devez taper uniquement un nombre à l'exception de tout autre type. Recommencez"
    Resume Saisie_1
End If
MsgBox Err.Description, vbOKOnly, "ERREUR n°" & Err.Number
End Sub

Tu ne distingue pas annuler et le fait que tu ais rentré du texte :evilred:. Donc, tu peux annuler indéfiniment
A+

02/07/2008, 09h31
AVNAIM

Bonjour et merci à tous mes sauveteurs du Forum et en particulier à Gorfael pour toutes ses suggestions codifiées. Je les ai toutes essayées. Elles fonctionnent parfaitement et j'ai fait ma petite adaptation sur mon application. Eureka ça colle pilepoil mon utilisateur pourra faire toutes les bêtises qu'il veut, ces petites lignes de code le remettra sur le bon chemin
Merci encore
Bonne journée et à +
Avnaim