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

 

[patricktoulon]

puré si un jour il t'arrive un soucis avec le ton usine à gaz ne m'appelle pas d'accords

 

[Usine à gaz]

Mais is ... mais si ... et "Prout" toi-même lol
Merci Patrick,
lionel

 

[Staple1600]

Re

[titillement du dimanche après-midi avant mon gouter]
Ce qui m'intéresserai (quoique) c'est de savoir l'utilité de la chose.
Toutes les applications qui tournent sous Windows adoptent le même "comportement"
Par exemple, si je regarde la fenêtre de mon navigateur.
Bah à droite, j'ai l'icone de réduction, d'agrandissement, et la croix
Idem, si je vais dans VBE.
C'est ce qu'y fait qu'intuitivement, quand j'ouvre un logiciel que je ne connais pas.
Je suis en terrain connu.

Mais il est vrai que pour réaliser une usine à gaz, le mieux est de s'acharner à faire du contre-intuitif et de repenser l'ergonomie de l'applicatif en dépit du bon sens.
[/titillement du dimanche après-midi avant mon gouter]

 

[Usine à gaz]

Re-JM,

Pour m'expliquer, il faudrait un tas d'explications concernant mes fichiers pour lesquels je tente de "tout automatiser".

Mes "sisines" sont à gaz mais grâce à vous tous, elles fonctionnent du tonnerre de Dieu
lionel

 

[patricktoulon]

du tonnerre de feu ouais!!!!!

tu ne m'a pas dit si l'input réel + api set timer ca fonctionnait

 

[Staple1600]

Re

Je ne vois pas en quoi supprimer le title bar d'une InputBox facilite l'automatisation.
(Surtout si il faut ajouter du code VBA pour faire appel aux API Windows ou créer un Userform pour simuler un InputBox)
Mais c'est vrai que ce faisant on respecte le cahier des charges d'une usine à gaz.
(alourdir le classeur avec du code surnuméraire, rendre l'application potentiellement "instable "(cf PtrSafe 32bits/64bits))

C'est vrai que Lionel n'a pas sa carte de membre du club K.I.S.S
(non pas le groupe, le principe)

 

[patricktoulon]

re
@Staple1600
rabajoie rabajoie rabajoie, rablablablajoie
pour une fois qu'on rigole un peu !!!

 

[Usine à gaz]

du tonnerre de feu ouais!!!!!

tu ne m'a pas dit si l'input réel + api set timer ca fonctionnait

Patrick : Si tu parles de celui du #post 24 = ça se ferme toujours "sauvagement" sans que je ne puisse rien faire

 

[patricktoulon]

ok il faudra que je cherche les bonnes declarations en 64 ou que je passe en macro4 tiens puisque j'y suis

 

[Usine à gaz]

re
@Staple1600
rabajoie rabajoie rabajoie, rablablablajoie
pour une fois qu'on rigole un peu !!!

Je connais JM maintenant, depuis tout le temps qu'on se parle, et il m'a lui aussi tellement aidé à construire mes "usines à gaz" lol

 

[Staple1600]

Re

=>Patricktoulon
Je cherche toujours à comprendre en quoi la titlebar est gênante.
Surtout que sa présence permets de déplacer l'InputBox à sa guise
Mais il semblerait qu'on ne puisse pas la supprimer comme on peut le faire sur un Userform (*), non?
Tu confirmes ?

(*) en utilisant les API Windows (ce qui d'ailleurs exclut les possesseurs de Mac, pour une fois bienheureux sur ce coup là )

 

[patricktoulon]

re
c'est pas la title qui est gênante il veut faire sauter la croix de fermeture c'est tout
tout pour forcer l'utilisateur a utiliser le bouton cancel si il le veux et non la croix

 

[Staple1600]

Re

Alors la copie d'écran du message#1 est incorrecte...

C'est bien toute la Titlebar qui est barrée, non?

Et l'explication ne parle pas de la seule croix

est-il possible de ne pas faire apparaître l'entête d'un InputBox

L'un dans l'autre, je ne vois toujours pas en quoi altérer l'inputBox automatise quoi que se soit ???

Mais puisqu'il semble que ce soit difficilement réalisable (je parle de supprimer la barre de titre de l'inputbox) même avec les API, je vous laisse dans le gaz.

 

[Usine à gaz]

Re

Alors la copie d'écran du message#1 est incorrecte...

C'est bien toute la Titlebar qui est barrée, non?
Ainsi que l'explication

pas complètement : on a un peu bifurqué
mais soyons puristes : je la remplace

 

[patricktoulon]

@Usine à gaz
voilà le bon code qui fonctionne en 64

'
'MODELE PATRICKTOULON
'======================================================
'       !! TEMPORISER LE VRAI MSGBOX DE VBA !!
'catégorie boite de dialogue
'Temporisation du vrai msgbox de vba
'Auteurs:patricktoulon sur exceldownload
'Version :1.0; de patricktoulon
'Utilisation des api setTimer et KillTimer
'======================================================
'adaptation sur inputbox pour lever le bouton dans la caption
Option Explicit
#If Win64 Then
    Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
    Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
    Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
    Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#Else
    Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
    Declare Function GetActiveWindow Lib "user32" () As Long
    Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If
'Dim MsgBoxTitle
'Dim MsgBoxCloseD As Boolean
Public TimerID&



Public Sub ShootbuttonCloseOfInputbox()
    Dim hwnd As Long
    hwnd = GetActiveWindow
    SetWindowLongA hwnd, -16, &H94C00080
    If TimerID <> 0 Then KillTimer 0, TimerID: TimerID = 0:
End Sub