Microsoft 365 InputBox : ne pas afficher le haut

Usine à gaz · 27 Février 2022

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 · 27 Février 2022

Usine à gaz à dit:
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.

Staple1600 à dit:
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 · 27 Février 2022

Re

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

VB:

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 · 27 Février 2022

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

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

Usine à gaz · 27 Février 2022

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 · 27 Février 2022

Bonjour à tous

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

Usine à gaz à dit:
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 · 27 Février 2022

Phil69970 à dit:
Perso j'ai pas tout lu je me suis arrêter ici

ça c'est ben vrai, ça !

Bernard_XLD à dit:
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, @+

VB:

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 · 27 Février 2022

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

Microsoft 365 InputBox : ne pas afficher le haut

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Excel Downloads : Votre centrale de telechargement

Excel Downloads : Votre centrale de telechargement

Phil69970

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Discussions similaires