Microsoft 365 réaficher une INPUTBOX

[Electron24]

Bonsoir le Forum,

Après plusieurs recherches, j'ai trouvé une macro sur une INPUTBOX
Dans cette INPUTBOX, j'ai 2 boutons OK et ANNULER
Si je clique sur OK tout va bien j'ai mes instructions qui fonctionnent.
Si je clique sur ANNULER, j'ouvre une MSGBOX me demandant de confirmer l'annulation avec un bouton OUI et un Bouton NON
Si je clique sur OUI j’arrête la macro c'est correct.
Et c'est là que je plante, en appuyant sur NON je souhaiterai ré afficher mon INPUTBOX mais ça arrête aussi la macro
Comment y parvenir.
Merci d'avance pour votre aide.

 

[Electron24]

Re
OUI la valeur numérique de ton code fonctionne parfaitement.
ET je n'ai rien changé à ton code.
Le texte était juste un essai afin de savoir si j'avais un message d'erreur en cas de saisie autre que du numérique.
L'InputBox peut aussi recevoir du texte selon la déclaration de la variable obligatoire . ?

 

[soan]

ajout :

* boîte « Test ... » : clic sur Annuler ➯ Confirmer : Voulez-vous annuler ?
Oui ➯ sortie de la sub

* boîte test : clic sur Annuler ➯ Confirmer : Voulez-vous annuler ?
Non ➯ message : « Saisissez quelque chose, SVP ! » ; clic sur OK
➯ retour à la boîte de saisie « Test ... »

soan

 

[soan]

pour du texte, il faut une autre macro, car sa valeur 0 équivaut au 0 du FALSE
quand on clique sur le bouton Annuler, ou si on appuie sur la touche Echap ;
et comme faut bien sortir de la sub dans les 2 derniers cas, le PC ne peut pas
deviner qu'il faut rester dans la sub pour du texte.

soan

 

[Electron24]

OK Ok tout est clair et limpide comme de l'eau de roche.
Merci beaucoup soan pour ta patience et tes explications
Bonne journée à toi
Guy
PS:
Je mets en résolu

 

[fhoest]

bonjour,
bien que la solution est ok voici ce que je voulais dire par goto ici.

Sub TestInput() ' Test boîte INPUTBOX
Dim Réponse As Variant
Dim Message, Title, Default, MyValue

Message = "Entrez votre donnée"    ' Set Texte.
Title = "Test ..."    ' Set Titre.
Default = "1"    ' Set Valeur par défaut.

Do
ici:
    Réponse = Application.InputBox(Message, Title)
    If Réponse = False Then
        If MsgBox("Vous avez demandé l'annulation.", vbYesNo + vbInformation, "Confirmer.") = vbYes Then
            Exit Sub
        Else: GoTo ici
        End If
    End If
    If Réponse = "" Then MsgBox "Saisissez quelque chose, SVP!"
Loop Until Réponse <> ""
    MsgBox Réponse & ": est votre saisie à noter en I2", , "Valeur saisie."
Range("I2") = Réponse

End Sub

A+

 

[Electron24]

Bonsoir fhoest (Et Hourra pour le LOSC 2ème excequo) (Je suis un Cht'i)

C'est super, j'ai même l'option d'inscrire du texte.
Je conserve ce code sous la main au cas ou.
Bonne soirée à toi et un grand merci.