Microsoft 365 Est-il possible de remplacer OUI NON par Affichées Toutes ?

[Usine à gaz]

Bonjour à toutes et à tous,
Je pense que le titre est explicite 🙂
Je ne sais pas si c'est possible ?
Malgré mes tests et recherches je n'ai pas trouvé 😡
Auriez-vous la solution ?
Je joins un fichier test.
Avec mes remerciements,
Je vous souhaite une belle journée,
lionel 🙂

 

[Staple1600]

Re

Tu parles de remplacer OUI NON sur un MsgBox ?
Si oui, alors c'est possible*
Et c'est dans les archives du forum

(Avec les API Windows)

 

[Staple1600]

Re

•>arthour973
Range ta chambre! 😉
(ou plutôt tes archives sur XLD)

XL 2013 - msgbox affichage oui et non

Bonjour à toutes et à tous, J'ai bcp hésité avant de poster LOL. Ma question pourra sembler un peu folle :confused:. C'est pour la présentation et pour le fun. Ma question : Les msgbox s'affichent avec le OUI et NON en dessous des textes ou propositions. Et, folle envie de ma part :p...

www.excel-downloads.com

 

[Usine à gaz]

Bjr JM, le forum,
Merci pour le rappel, mais je ne l'avais pas oublié et effectivement, les Apis, je préfère les éviter.
C'est pour cela que j'ai posé à nouveau la question en espérant une possible solution plus simple.
Mais si pas possible, je passerai par un UF,
Merci pour m'avoir répondu 🙂
Bonne journée,
lionelm,

 

[Staple1600]

Re

•>arthour973
1) Dans ce cas rien ne t’empêchait de mettre un lien vers cette discussion dans ton premier message.
(ou mieux de faire un up dans celle-ci)

2) Si il y avait une réponse plus simple on te l'aurait dit en 2017...
🙄

 

[Usine à gaz]

Re-Bonjour à toutes et à tous,

J'ai trouvé sur le net des possibilités sur ce site :

VBA Msgbox : Comment personnaliser ses boutons ? – Numamax

Personnaliser très simplement vos boutons VBA Msgbox pour créer une interaction plus efficace et originale avec vos utilisateurs.

numamax.com

Sub Tri_lign()
'##Personalisation du Msgbox (pas plus de 10 caractères)########################
MsgBoxCustomSet vbYes, "Bien" 'On échange le "oui" par défaut par "bien"
MsgBoxCustom_Set vbNo, "Pas bien" 'On échange le "non" par défaut par "Pas bien"
'###############################################################################
MsgBoxCustom ans, "Comment allez vous aujourd'hui ? ", vbYesNo + vbQuestion, "Numamax"
If ans = vbYes Then ' Si la réponse à notre questio est : oui
MsgBox "Super !" 'Alors répondre ça
Else
MsgBox "Mince" 'Sinon répondre ceci
End If
End Sub

mais ça beugue ici : "MsgBoxCustomSet"

Z'auriez-vous la solution ?
lionel,

 

[Staple1600]

Re

•>arthour973
Evidemment, ici aussi on utilise les API
(il faut tout lire et cliquer sur le bon lien)

' This module includes Private declarations for GetCurrentThreadId, SetWindowsHookEx, SetDlgItemText, CallNextHookEx, UnhookWindowsHookEx
' plus code for Public Sub MsgBoxCustom, Public Sub MsgBoxCustom_Set, Public Sub MsgBoxCustom_Reset
' plus code for Private Sub MsgBoxCustom_Init, Private Function MsgBoxCustom_Proc
' DEVELOPER: J. Woolley (for wellsr.com)
#If VBA7 Then
Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" _
() As Long

 

[Usine à gaz]

Tu as raison, je n'avais pas vu.
Toutefois le code est nettement plus simple ...
Mais il ne fonctionne pas lol,
tu aurais la solution pour le modifier ?
🙂

 

[Staple1600]

Re

Tout est écrit dans le message#7
(3ième ligne, mot en gras)
Et donc cela fonctionne

Sub MsgBox_Arthour()
    MsgBoxCustom_Set vbOK, "Affichées"
    MsgBoxCustom_Set vbCancel, "Toutes"
    MsgBoxCustom ans, "Cela marche, mais ça sent le gaz!", vbOKCancel, "Arthour973"
End Sub

 

[Staple1600]

Re

La preuve en image 😉

PS: 113 lignes de code VBA pour seulement afficher une MsgBox, c'est beaucoup, non ?
😉

 

[Usine à gaz]

Merci JM mais tu as raison, je laisse tomber ce code 🙂

 

[Staple1600]

Merci JM mais tu as raison, je laisse tomber ce code 🙂

Ca ne fera jamais que la deuxième fois (lol)
Pour infos, le code que je t'avais soumis en 2017 fonctionne toujours 😉

Sub UneMsgBoxPasCommeLesAutres()
Dim mReturn As String
mReturn = cMsgBox(1, _
vbYesNoCancel, _
"Personnaliser vos boutons", _
"C'est posssible grâce au API", _
, _
"Arthour973", _
"veut changer", _
"le Message")
cMsgBox 1, vbOKOnly, "Personnaliser vos boutons", "Vous avez cliquer sur le bouton: " & mReturn, , "OK, je note"
End Sub

(C'est celui qui se trouve dans la discussion* que tu n'avais pas oubliée
(mais si un peu quand même, non ?)
(cf lien dans le message#3 de cette discussion du 1er avril 😉)

 

[jmfmarques]

Bonjour à tous
Je plussoie les remarques fort sages de Staple et y ajoute que l'on ne ferait pas mieux si l'on voulait risquer de compromettre tout un tas de "fulitités" (euh...) : bonne portabilité, légèreté, performance, etc ...
N'ouvrant pas les classeurs tiers, j'ignore si l'on est sur une feuille de calcul ou sur un userform.
- dans le premier cas (feuille de calcul) il suffit d'utiliser des cellules (voire une liste déroulante) rendues "disponible(s)" de manière ad-hoc et que l'on ne peut quitter que si l'on y choisit.
- dans le second cas (userform) il suffit d'utiliser un Frame dont on met la propriété visible à true ou false et auquel on donne le zorder 0
Dans un cas comme dans l'autre on peut de surcroit exposer plus complètement les effets de chaque choix (encore que ... est-ce vraiment plus utile de bien renseigner l'utilisateur plutôt que de l'épater par du bling bling ? 😀 )

 

[Staple1600]

Re, Bonsoir jmfmarques

>jmfmarques
Je pense que ton post est destiné à celui de patricktoulon, non ?
(ExecuteExcel4Macro CALL)

 

[Usine à gaz]

"Pour infos, le code que je t'avais soumis en 2017 fonctionne toujours 😉
(C'est celui qui se trouve dans la discussion* que tu n'avais pas oubliée"
Merci JM mais cette fois-ci je laisse tomber les APIs
lionel 🙂