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