Discussion :

[AVNAIM]

J'ai un inputBox pour lequel la donnée à entrer doit être un integer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Bonjour,

ouvre cette discussion :

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

lis tout, puis adapte à ton cas, au besoin

[ilcocodrillo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On error goto ErreurDonnee

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

[Gorfael]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 . Donc, tu peux annuler indéfiniment
A+

[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