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]

re
ha!!! là mon ami, il va te falloir faire du hooking api oblige
ca vaut pas le coup surtout que c'est assez complexe et difficile a maintenir entre version d'excel
fait ton propre input alors dans un userform je te donne des exemple si tu veux

dis moi un peu en plus du gaz tu ferais pas le gazoil des fois ??? je demande ça au cas ou hein si tu peux me faire un bon prix

 

[Usine à gaz]

Re-Patrick,
Merci pour ton humour

Au moins, n'est-il pas possible d'enlever la X de sortie pour ne sortir qu'au clic sur OK ou Annuler ?
lionel

 

[Usine à gaz]

J'connais "antony mais pas hooking api lol

 

[Usine à gaz]

re
ha!!! là mon ami, il va te falloir faire du hooking api oblige
ca vaut pas le coup surtout que c'est assez complexe et difficile a maintenir entre version d'excel
fait ton propre input alors dans un userform je te donne des exemple si tu veux

dis moi un peu en plus du gaz tu ferais pas le gazoil des fois ??? je demande ça au cas ou hein si tu peux me faire un bon prix

J'suis preneur de ton exemple

 

[patricktoulon]

re attend je suis entrain d'essayer une solution avec api mais plus simple
je vais tenter d'adapter ma méthode du msgbox temporaire dessus
je reviens

 

[Usine à gaz]

Merci Patrick

 

[patricktoulon]

tu reve!!!!
bon allez bingo mon idée était bonne
j'ai une methode msgbox temporaire qui consiste a fermer le msgbox apres une durée
j'utilise pour ça l'api settimer qui execute une sub en addressOF
(meme avec une autre fenetre modale affichée )
le principe et de lancer le timer en pre lancement de l'input

alors dans ma feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If TimerID = 0 Then TimerID = SetTimer(0, 0, 1000, AddressOf ShootbuttonCloseOfInputbox)
    Dim V$, Nom$
    V = CStr(Target.Value)
    If Not Intersect(Target, Range("a1:zz10000")) Is Nothing Then
        Nom = InputBox("Saisir ou modifier", "", V)
        If StrPtr(Nom) > 0 Then Target.Value = Nom
    End If

    
End Sub

et dans un module Standard

'
'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 VBA7 Then
    Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
    Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
    Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

#Else
    Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Declare Function KillTimer Lib "user32.dll" (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

et voila ton input s'affiche et tu va voir le bouton disparaître
it's Magic
si tu veux que ce soit plus rapide change 1000 pour 200 dans le select change

en voila une idée tiens hein !!???
puré ca va péter en Belgique

RE LOL

 

[Usine à gaz]

Merci Patrick,
Je regarde dès que j'ai un p'tit moment

 

[patricktoulon]

re
tu veux toujours un exemple avec un userform ????

 

[Usine à gaz]

OUI, je veux bien
car c'est bizarre :
Quand l'inputBox est ouvert, je peux cliquer n'importe où et ça ferme excel sauvagement
lionel

 

[patricktoulon]

a bon !!????
c'est quoi ce excel prout
je t'en fait un vite fait

 

[Usine à gaz]

Je sais pas :
Je suis sur office 365 et j'ai modifié après "else" ses lignes sinon ça beugait :l
#Else
Declare Function en Declare PtrSafe Function
les 4 lignes

 

[patricktoulon]

oui peut etre ai je deconné avec les adapte 32/64
ca marche alors ????

 

[TooFatBoy]

Bonjour,

car c'est bizarre :
Quand l'inputBox est ouvert, je peux cliquer n'importe où et ça ferme excel sauvagement
lionel

Ça n'a rien de bizarre : depuis le temps que ton usine à gaz devait te péter à la tronche...