Inputbox problème dépendance bouton

Question

Bonjour, 

J'aimerais faire dépendre la suite d'une procédure du bouton cliqué dans une input box mais je ne trouve pas comment faire. Mon code est le suivant
 Sub UK()
    
    salesnmrmri = InputBox("What are your sales (in k€) for NMR/MRI market segment ?", "NMR/MRI")
    
    Do Until IsNumeric(salesnmrmri) = True And salesnmrmri <> ""
    
    MsgBox "Be careful, a numeric value is expected"
    salesnmrmri = InputBox("What are your sales (in k€) for NMR/MRI market segment ?" , "NMR/MRI")
    
    Loop
    
Si l'utilisateur du fichier qui rempli la input box clique sur annuler alors on lui demande si il est sur et si oui on quitte la procédure
Si il appuie sur OK on continue avec la suite (C'est ça que je n'arrive pas à faire):

    Range("C11").Value = salesnmrmri

Merci par avance si quelqu'un a une idée.

cs_MPi · Answer

Regarde du côté de Application.InputBox
C'est un peu différent du InputBox traditionnel.
Tu peux lui ajouter un paramètre (Type) qui force la valeur numérique, entre autres...

Si tu regardes l'aide, tu verras les différentes possibilités de ce paramètre.

ucfoutu · Answer

Bonjour,
je déplace cette discussion, qui n'a absolument rien à voir avec VB6 (qui ignore même l'objet Application).
A rafi382 : c'est sous VBA, que tu développes, et non sous VB6 !
===>> regarde où j'ai déplacé cette discussion. Vouilà où tu dois ouvrir tes prochaines discussions/VBA.

Inputbox problème dépendance bouton

2 réponses

Votre réponse

Discussions similaires