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]

Marcel : voir ma réponse ci-dessus à JM

J'ai lu, mais ça ne dit pas pourquoi tu veux interdire la fermeture par la croix.


Sur ce, bonne soirée everybody

 

[Usine à gaz]

J'ai lu, mais ça ne dit pas pourquoi tu veux interdire la fermeture par la croix.


Sur ce, bonne soirée everybody

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

 

[Staple1600]

Re

Mon code n'est pas code de test
Il suffit de le tester dans un classeur vierge
(en veillant à faire la modification nécéssaire )

Mais en attendant je vais revenir avec un autre code qui distinguera OK et Annuler

 

[Usine à gaz]

Re

Mon code n'est pas code de test
Il suffit de le tester dans un classeur vierge
(en veillant à faire la modification nécéssaire )

Mais en attendant je vais revenir avec un autre code qui distinguera OK et Annuler

ok, je le fais de suite

 

[Bernard_XLD]

Bonjour le fil, le forum

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,
lionel

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

 

[patricktoulon]

re
je l'ai dis des le depart
pour différencier ok d'annuler STRPTR

 

[Staple1600]

Re

Voici un second code de test

Sub TEST_II()
Dim lRet As String
lRet = InputBox("Ceci est un test", "Test", Application.UserName)
If StrPtr(lRet) = 0 Then
    MsgBox "Annulation ou clic sur la croix", vbInformation
        Call Staple.TEST_II 'juste pour relancer le test
        ElseIf lRet = vbNullString Then
        MsgBox "Aucune saisie dans l'inputBox", vbCritical, "Erreur"
        Call Staple.TEST_II 'juste pour relancer le test
        Else
    MsgBox "Contenu de l'inputBox:" & vbCr & lRet
End If
End Sub

EDITION: Bonsoir Bernard, je vous avion pas vu passer

=>patricktoulon
Nous sommes dans une usine à gaz (et dans un fil avec plus de 5 pages)
Il y a belle lurette qu'on a oublié le début du fil

 

[Usine à gaz]

Re

Mon code n'est pas code de test
Il suffit de le tester dans un classeur vierge
(en veillant à faire la modification nécéssaire )

Mais en attendant je vais revenir avec un autre code qui distinguera OK et Annuler

Merci JM : ton code fonctionne
Mais je préfère l'InputBox :

Hou la : je sais ce que tu vas me dire

 

[Staple1600]

Re

Sois précis.
Tu préfères une Application.InputBox
Car ce qu'il y a dans mon code est justement une InputBox


Qu'à cela ne tienne
( la modificition était dans tes compétences)

Sub TEST_II()
Dim lRet As String
lRet = Application.InputBox("Ceci est un test", "Test", Application.UserName)
If StrPtr(lRet) = 0 Then
    MsgBox "Annulation ou clic sur la croix", vbInformation
        Call Staple.TEST_II 'juste pour relancer le test
        ElseIf lRet = vbNullString Then
        MsgBox "Aucune saisie dans l'inputBox", vbCritical, "Erreur"
        Call Staple.TEST_II 'juste pour relancer le test
        Else
    MsgBox "Contenu de l'inputBox:" & vbCr & lRet
End If
End Sub

 

[Usine à gaz]

Re

Voici un second code de test

Sub TEST_II()
Dim lRet As String
lRet = InputBox("Ceci est un test", "Test", Application.UserName)
If StrPtr(lRet) = 0 Then
    MsgBox "Annulation ou clic sur la croix", vbInformation
        Call Staple.TEST_II 'juste pour relancer le test
        ElseIf lRet = vbNullString Then
        MsgBox "Aucune saisie dans l'inputBox", vbCritical, "Erreur"
        Call Staple.TEST_II 'juste pour relancer le test
        Else
    MsgBox "Contenu de l'inputBox:" & vbCr & lRet
End If
End Sub

EDITION: Bonsoir Bernard, je vous avion pas vu passer

=>patricktoulon
Nous sommes dans une usine à gaz (et dans un fil avec plus de 5 pages)
Il y a belle lurette qu'on a oublié le début du fil

Re

Sois précis.
Tu préfères une Application.InputBox
Car ce qu'il y a dans mon code est justement une InputBox


Qu'à cela ne tienne
( la modificition était dans tes compétences)

Sub TEST_II()
Dim lRet As String
lRet = Application.InputBox("Ceci est un test", "Test", Application.UserName)
If StrPtr(lRet) = 0 Then
    MsgBox "Annulation ou clic sur la croix", vbInformation
        Call Staple.TEST_II 'juste pour relancer le test
        ElseIf lRet = vbNullString Then
        MsgBox "Aucune saisie dans l'inputBox", vbCritical, "Erreur"
        Call Staple.TEST_II 'juste pour relancer le test
        Else
    MsgBox "Contenu de l'inputBox:" & vbCr & lRet
End If
End Sub

Merci JM,
ça marche
Allé, j'arrête d'embêter tout le monde
lionel

 

[mapomme]

Bonsoir,

On m'a cité ? On voudrait que je travaille un dimanche ?!!!?

Alors vite fait (pour du 64 bits) sinon ôter les PTRsafe.

Il faut :

• déclarer dans un module une variable publique de nom RepMSGBOX
• dans ce module, on définit la sub maMsgbox(ByVal xcaption As String, Optional xdefault As String) où xcaption est le texte à à afficher au-dessus de la boite de saisie et xdefault est la valeur par défaut de la saisie (on peut s'en passer)
• Le résultat de la saisie est dans la variable publique RepMSGBOX.

Pour quitter la boite de dialogue, on peut:

• cliquer sur la croix rouge => annulation de la saisie)
• taper sur la touche Escape (Echap) => annulation de la saisie
• cliquer sur la coche verte => validation de la saisie
• tapez sur la touche entrée quand on est dans la zone de saisie => validation de la saisie

Quand on annule, la variable RepMSGBOX contient la valeur FALSE.
Quand on valise la saisie, la variable RepMSGBOX contient la saisie.

 

[Staple1600]

Bonsoir mapomme

a) Pourquoi vous nommez RepMSGBOX et non point RepINPUTBOX ?
Puisque vous simulez une InputBox
b)

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

c)
Quid de nos amis Macistes ?

Sinon bon appétit pour ce soir
Potage, salade, pignons de pin et lait de brebis
ou tout pareil que ce midi
(Faut bien finir la bouteille )

NB: je précise que j'ai testé ton fichier.

 

[Usine à gaz]

Bonsoir,

On m'a cité ? On voudrait que je travaille un dimanche ?!!!?

Alors vite fait (pour du 64 bits) sinon ôter les PTRsafe.

Il faut :

• déclarer dans un module une variable publique de nom RepMSGBOX
• dans ce module, on définit la sub maMsgbox(ByVal xcaption As String, Optional xdefault As String) où xcaption est le texte à à afficher au-dessus de la boite de saisie et xdefault est la valeur par défaut de la saisie (on peut s'en passer)
• Le résultat de la saisie est dans la variable publique RepMSGBOX.

Pour quitter la boite de dialogue, on peut:

• cliquer sur la croix rouge => annulation de la saisie)
• taper sur la touche Escape (Echap) => annulation de la saisie
• cliquer sur la coche verte => validation de la saisie
• tapez sur la touche entrée quand on est dans la zone de saisie => validation de la saisie

Quand on annule, la variable RepMSGBOX contient la valeur FALSE.
Quand on valise la saisie, la variable RepMSGBOX contient la saisie.

Bsr et Merci mapomme
lionel

 

[mapomme]

Re,

a) pour diminuer l'usure de mon clavier (une lettre de moins) et restreindre le déchargement de la batterie de mon clavier sans fil.
b) mal lu la question. Sans doute trop de jus de treille à midi. Question étrange par ailleurs. Ne suffirait-il pas de tester la réponse ?
c) Ce ne sont pas mes amis... (je plaisante bien sûr)
Cela me rappelle la comptine de Krosoft quand j'étais petit:
Pomme de reinette et pomme d'API
API, API rouge
Pomme de reinette et pomme d'API
API, API gris

 

[Staple1600]

d) ce fut salade de thon, lentilles, petits pois, pommes, fromage de brebis
Une verre de kefir
Et repomme pour ma pomme

e) Finalement après avoir lu la vie de Sainte-Blandine, me suis dit que je devais choisir un autre jour

f) Bonne soirée et effectivement le plus simple c'est faire ce que font tous les bouts de code qu'on trouve pour gérer la réponse d'un InputBox.
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
(il doit bien y avoir un code qui a été pondu du temps d'Excel 97 )