Afficher un msgbox après une inputbox

Question

Bonjour.

Dim s As String
        s = InputBox("Entrer le nombre de disques"...)
        n = CSng(Val(s))     'on transforme la chaîne s en Integer
        If 1 > n And n > 10 Then
            MsgBox("Veuillez rentrer un nombre de disque valable", vbOKOnly, "Erreur")
        End If

Avec ce code, si on met n'importe quelle valeur pour n, le MsgBox ne s'ouvre pas, comment faire ? 

Merci.

PCPT · Answer

salut, déjà, N n'est pas déclarée ensuite tu testes : 1>n ET n>10 comment N pourrait être à la fois <1 et >10 ? Dim s As String dim n as integer s = InputBox("Entrer le nombre de disques"...) n = Val(s) 'on transforme la chaîne s en numerique If not (n>0) And (n<10) Then MsgBox "Veuillez rentrer un nombre de disque valable", vbOKOnly, "Erreur" else msgbox "vous avez bien saisie une valeur entre 1 et 9 inclus" End If ++ [hr]

maxou1704 · Answer

Oui merci, fallait que je mette un Or! 
n est déclaré mais dans un module à part.

debbv · Answer

Comment veux tu ouvrir le msgbox ?
tu as déjà vu un nombre qui est en meme temps superieur à 10 et inferieur à 1...........Oui cogite un peu 
C'est sans doute ton erreur .................
Revois ta condition et tu verras ............

Afficher un msgbox après une inputbox

3 réponses

Votre réponse

Discussions similaires