Microsoft 365 InputBox : ne pas afficher le haut

[Usine à gaz]

Bonjour à toutes et à tous, re-le Forum,

Casse-neurones du dimanche lol
Peut-être (salaud que je suis lol), une question pour notre cher mapomme,
( j'en ai tout plein d'autres pour les dimanches matin à venir)

Sans passer par un UserForm, est-il possible de ne pas faire apparaître la "X" de l'InputBox ? :

J'ai cherché ... cherché... etc...
et pas trouvé

Merci à toutes et à tous,
lionel

 

[TooFatBoy]

Si je n'interdit pas la fermeture par la "X" les codes suivants ne s'exécuterons pas

Pourtant croix ou annuler, c'est pareil normalement.

Challenge: retrouver dans le forum la plus vielle réponse qui faisait cela
Et double challenge: retrouver ce même bout code sur le vaste net

Et ultime challenge, trouver l'intérêt de la question d'origine : interdire la fermeture par la croix...

 

[Staple1600]

Re

Alors mon idée de challenge m'a replongé 12 ans en arrière.

Sub Exemple_du_24102010()
1 rep = InputBox("Test")
If rep = "" Then GoTo 1
End Sub
Sub Exemple_Bis()
'pas OK on peut cliquer sur la croix
1 rep = Application.InputBox("Test")
If rep = "" Then GoTo 1
End Sub

Code emprunté à job75
Ce qui m'a permis de m'apercevoir (ou me trompe-je) que le moteur de recherche du forum se limite à 10 pages de résultats
Je ne suis pas arrivé à remonter avant 2010
Et vous ?

EDITION: je viens de trouver le pourquoi du comment
Il fallait que je coche : Tri par : [x] Date
(alors que par défaut, c'est par : Pertinence)

 

[mapomme]

Je ne suis pas arrivé à remonter avant 2010
Et vous ?

Je n'étais pas né moi (sur XLD tout du moins)

 

[Usine à gaz]

Excel Downloads : Votre centrale de telechargement

Telechargements de programmes pour Excel classés par categories : convertisseurs Euro, applications professionnelles, utilitaires, jeux... Mais aussi une newsletter, un forum et des actualités.

web.archive.org

Excel Downloads : Votre centrale de telechargement

Telechargements de programmes pour Excel classés par categories : convertisseurs Euro, applications professionnelles, utilitaires, jeux... Mais aussi une newsletter, un forum et des actualités.

web.archive.org

 

[Phil69970]

Bonjour à tous

Perso j'ai pas tout lu je me suis arrêter ici

Mais non JM, c'est pas pareil
Après le OK : il y aura un code qui va s'exécuter,
ou
Après l'annulation : il y aura un autre code qui va s'exécuter,

Je suis pas un pro du codage comme certain mais on doit assez facilement récupérer le clic sur la croix et donc exécuter le reste du code "annulation"

Lionel je ne comprends pas donc pas pourquoi déployer toute cette usine à gaz à part pour te voir dans une glace quand tu reliras le code

@Phil69970

 

[Bernard_XLD]

Perso j'ai pas tout lu je me suis arrêter ici

ça c'est ben vrai, ça !

Bonjour le fil, le forum

Là, Lionel, je ne comprends pas trop ton problème
essaie le code ci joint avec ok annuler et fermeture par la croix, tu verras que le retour est le même pour l'annulation et la fermeture, tu peux donc exécuter le code que tu veux !

Bien cordialement, @+

Sub Test_inputbox()
Dim Retour_Inputbox
Retour_Inputbox = Application.InputBox(Prompt:="Entrez une valeur", Type:=2)
MsgBox "Type retour : " & TypeName(Retour_Inputbox) & vbLf & "Valeur retour : " & Retour_Inputbox
End Sub

 

[Phil69970]

Re

Bernard j'ai eu la même idée que toi sans le savoir (Pour Staple ==> comme Mr Jourdain) mais cela m'a paru évident.

@Phil69970