Comment avec un inputbox utiliser le bouton Annuler ?

  • Initiateur de la discussion Initiateur de la discussion Paritec
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Paritec

XLDnaute Barbatruc
Bonjour a tous,
j'aimerais dans un inputbox si je clique sur annuler commander GoTo
pour le moment si je clique sur OK même si l'inputbox n'est pas renseigné je prend ma dernière valeur de variable et je fais +1 mais si je clique sur Annuler j'aimerais revenir en arrière
j'ai actuellement
Code:
rep=inputbox ("entrer le numéro de programme")
il faut certainement if rep = ????? then Goto départ mais quoi justement???????????
dans l'attente de vos réponses
a+
papou🙂
 
Re : Comment avec un inputbox utiliser le bouton Annuler ?

Bonjour papou,
Code:
rep = InputBox("entrer le numéro de programme")
MsgBox rep 'renvoi "" - chaine nulle
rep = Application.InputBox("entrer le numéro de programme")
MsgBox rep 'renvoi false
A+
kjin
 
Re : Comment avec un inputbox utiliser le bouton Annuler ?

Bonjour à tous
Salut kjin


Ci dessous un exemple de procédure qui gère les réponses.
Voir l'aide pour le paramètrage.

Code:
'
Dim reponse As Variant



'expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)
Do
        reponse = Application.InputBox(Prompt:="Veuillez indiquer la périodicité", Type:=1, Default:="1 :  pour mensuel 2 : pour trimestriel")
        Select Case reponse
            Case ""
                MsgBox "vous n'avez pas  fait de saisies!" & Chr(13) & "recommencez!", vbCritical, ""
            Case False
                Exit Sub
            Case 1
                
                Exit Do
            Case 2
                
                Exit Do
            Case Else
                Call MsgBox("Réponse erronée", vbExclamation, "")
        End Select
 Loop
End With

JP
 
Re : Comment avec un inputbox utiliser le bouton Annuler ?

Bonjour Papou, kjin, JP,

Bon, s'il faut impérativement entrer une valeur numérique :

Code:
1 rep = InputBox("entrer le numéro de programme")
If Not IsNumeric(rep) Then GoTo 1

Le bouton Annuler en fait ne sert à rien...

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour