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.

 

[fhoest]

Bonjour,

ici:
mon code avec input
msgbox ("blablabla")
if ... = no then goto ici

A+

 

[Dranreb]

Bonsoir.
Utilisez la MsgBox d'une manière permettant de tester la réponse, du style :

        If MsgBox("Vous avez demandé l'annulation.", _
           vbYesNo + vbInformation, "Confirmer.") = vbYes Then Exit Sub

 

[soan]

Bonjour Electron24, le fil,

Ton fichier en retour.

soan

 

[Electron24]

Bonjour Soan, Bonjour Dranreb, Bonjour fhoest et Bonjour le Forum

Merci à vous pour votre aide.
Fhoest, je ne comprends pas bien ton code, pas assez détaillé rapport à mes connaissances.
Dranreb, dans les deux cas la macro se termine pas la fermeture de la boîte.
Soan, Si je valide la saisie du texte dans la INPUTBOX, je reviens toujours sur la MSGBOX "Saisissez quelque chose SVP" rien ne s'inscrit dans la cellule I2 cela est du peut etre à la formulation Application.Inputbox ?

 

[Dranreb]

Bonjour.
Corrigez le reste en conséquence. Ne sortez plus de la boucle ni de la procédure autrement que par la If MsgBox( …, ,VbYesNo, … ) = vbYes then Exit Sub que j'ai indiquée.

 

[soan]

@Electron24

ah non, c'est pas normal ! sur mon PC ça marche correctement :

* clic sur INPUTBOX ➯ fenêtre Test ...

* saisir par exemple 50 et valider par OK ➯ message sur 2 lignes :
« 50 est votre saisie » et « à noter en I2 »

* clic sur bouton OK ➯ 50 est écrit en I2 !

* juste après : terminé, ça sort de la sub

soan

 

[Electron24]

Re,

Ok j'ai corrigé j'avais essayé avec la boucle Do Loop mais je tournais sans arrêt sur la msgbox
Merci de votre explication. Bonne journée.

 

[Electron24]

Re,
Cela fonctionne pour les chiffres mais pas pour du texte, je viens de refaire l'essai.
j'ai supprimé "Application." et cela est pareil.

1 Réponse = InputBox("Entrez votre date :", "Date.")

 

[soan]

dans mon code VBA, y'avait pas de Do .. Loop ! fallait pas en rajouter !

alors évidemment, si après tu modifies mon code et qu'ça marche plus,
j'en suis pas responsable, lollllllll !

soan

 

[Electron24]

Re

J'avais essayé Do Loop avant que tu ne m'envoie ton code.
C'est bien avec ton code.

Option Explicit

Sub TestInput() 'Test boîte INPUTBOX
  Dim Réponse, k%
1 Réponse = Application.InputBox("Entrez votre donnée :", "Test ...")
  If Val(Réponse) <> 0 Then
    MsgBox Réponse & " est votre saisie" & vbLf & vbLf & "à noter en I2", , "Valeur saisie."
    Range("I2") = Réponse: Exit Sub
  End If
  k = MsgBox("Voulez-vous annuler ?", vbYesNo + vbExclamation, "Confirmer")
  If k <> vbYes Then MsgBox "Saisissez quelque chose, SVP !": GoTo 1
End Sub

que j'ai ce souci.

 

[soan]

avec un MsgBox, tu peux tester, au retour de la boîte de dialogue, ces boutons :

mais avec ton Application.InputBox, il n'y a pas de possibilité de tester les boutons, même si
dans la boîte de saisie de l'InputBox, il y a 2 boutons "OK" et "Annuler" ; le seul retour de
InputBox est ce qui est dans la case blanche de saisie.

s'il n'y a pas eu de saisie, la case blanche est vide et au retour : valeur FALSE (qui vaut 0) ;
si tu appuies sur la touche Échap, ou si tu cliques sur le bouton "Annuler", retour : 0 aussi.

si tu saisis du texte, comme j'ai utilisé Val(), valeur de retour : 0 aussi.

donc dans tous ces cas, message "Voulez-vous annuler ?" ; c'est seulement si tu as saisi
une valeur numérique (autre que 0, positive ou négative), que c'est considéré comme
une donnée à écrire en I2.

ton énoncé ne précisait pas ce que tu voulais saisir ; tu aurais dû l'indiquer !

soan

 

[soan]

pour ton post #11, de quel souci parles-tu ?

* si c'est à propos d'une donnée numérique, relis mon post #7

* si c'est à propos d'une donnée alpha, relis mon post #12

soan

 

[Electron24]

Re,
Non, c'est bien une valeur numérique que je souhaite entrer dans ma INPUTBOX.
Dans mon post #1 je cherchais à trouver comment retourner sur mon INPUTBOX après avoir appuyé sur "annuler" ce qui me demanderai par un MSGBOX une confirmation de l'annulation.
En clair c'est comme si en appuyant sur "annuler" je voulais revenir en arrière et réafficher l' INPUTBOX. (Titre de mon post)
J'ai voulu essayer du texte pour savoir si c'était normal et tu viens de me donner la réponse dans ton explication claire et détaillée. Merci soan
Question :
Dans le cas ou je souhaitais pouvoir saisir du texte j'aurais pu créer un petit formulaire avec une TXTBOX ? Oui ou Non ?

 

[soan]

alors pour une valeur numérique, as-tu testé la manip de mon post #7 ?
ça marche sur mon PC, alors ça doit marcher sur ton PC aussi ... SAUF
si tu as modifié mon code VBA !!!

soan