Microsoft 365 Créer un msgbox à 4 choix

[Usine à gaz]

Bonjour à toutes et à tous

Je voudrais créer un msgbox à 4 choix

Malgré toutes mes recherches et tentatives, pour l'instant je n'y arrive pas Grrrr !!!
A nouveau en demande vers nos ténors magiques ...
Vous auriez la solution ?
En cas, je joins un fichier test...
Je continue mes recherches.
Grands MERCIS à tous,
Amicalement,

 

[Jacky67]

Bonjour à toutes et à tous

Je voudrais créer un msgbox à 4 choix
Regarde la pièce jointe 1152131
Malgré toutes mes recherches et tentatives, pour l'instant je n'y arrive pas Grrrr !!!
A nouveau en demande vers nos ténors magiques ...
Vous auriez la solution ?
En cas, je joins un fichier test...
Je continue mes recherches.
Grands MERCIS à tous,
Amicalement,

Bonjour,
A ma connaissance, le seul "4ème bouton" que l'on peut ajouter est le bouton aide

Sub AjoutBouton()
  MsgBox "ajout bouton", 16387, "Bouton supplémentaire"
End Sub

Si tu peux t'en contenter
Sinon ===>>userform

 

[Usine à gaz]

Bjr Jacky67

Effectivement, je crois que je devrai passer par un UserForm sniffff
Si c'est possible, je préfère nettement un msgbox à 4 choix.
Merci pour m'avoir répondu...

 

[ChTi160]

Bonjour Lionel
Bonjour le Fil
as-tu regardé pour utiliser un Userform ?
Bonne fin de Journée
Jean marie

 

[Usine à gaz]

Bjr "le Retraité Chanceux"
Oui j'ai regardé et je saurai le faire ... Mais j'aimerais vraiment éviter l'UserForm

 

[Efgé]

Bonjour à tous
Voici l'ensemble des possibilités des MsgBox

Il n'y a pas de quatrième bouton "au choix".

Cordialement

 

[Usine à gaz]

Bjr Efgé
Je te remercie pour ce détail
Je vais donc être obligé de passer par un UserForm snifff...

 

[Staple1600]

Bonsoir le fil

[aparté]
Sinon depuis au moins 1997, il y a l'aide VBA fournie par Microsoft ...

MsgBox, fonction

support.microsoft.com

Ce serait peut-être une habitude à prendre avant que de poser ce type de question que de la consulter, non ?
(surtout quand on est barbatruc )

 

[ChTi160]

Bonsoir JM
il est donc possible de mettre quatre Boutons dans un Msgbox ?
Je ne vois pas d'exemple dans le Lien que tu fournis. (Que j'ai regardé il y a quelques Heures) .
J'avais bien vu ce "vbDefaultButton4" qui m'a fait penser au Quatrième Bouton, mais je n'ai pas réussi à Créer Quatre Boutons sur le MsgBox
Aurais-tu un exemple ?
Merci par avance
Jean marie

 

[Usine à gaz]

Bonsoir JM
J'ai bien vu ça mais je ne m'en suis pas sorti.
Il semblerait que je sois obligé de passer par un UserForm.
Je ne le souhaite pas mais ...

 

[Usine à gaz]

Bonsoir JM
il est donc possible de mettre quatre Bouton dans un Msgbox ?
Je ne vois pas d'exemple dans le Lien que tu fournis. (Que j'ai regardé il y a quelques Heures) .
J'avais bien vu ce "vbDefaultButton4" qui m'a fait penser au Quatrième Bouton, mais je n'ai pas réussi à Créer Quatre Boutons sur le MsgBox
Aurais-tu un exemple ?
Merci par avance
Jean marie

Bonsoir Jean-Marie
Je n'ai pas su également,

 

[Staple1600]

Bonsoir TChi160

Ce n'était pas le sens de mon message
Je voulais dire qu'il est des questions qui ne posent pas
Exemple
Je suis sur Excel 2000 et je voudrais 500 colonnes sur ma feuille
Sur mon classeur, je voudrais masquer toutes mes feuilles
etc...
L'aide en ligne permets de savoir ce qu'Excel sait et ne sait pas (ou ne peut pas faire)
Donc en lisant l'aide jusqu'au bout, on peut faire apparaitre ce fameux 4ième bouton

Sub ExempleAide()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Vous-voulez continuer?"
Style = 3 + 16384
Title = "MsgBox Demonstration"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' User chose Yes.
    MyString = "Oui"    ' Perform some action.
Else    ' User chose No.
    MyString = "Non"    ' Perform some action.
End If
End Sub

Et on comprends qu'une tripotée de développeurs et d'ergonones ont cogité pour définir que ce devait être le standard d'une MsgBox sous Windows.

Donc inutile de chercher à faire dans Excel ce qui n'est pas prévu nativement, non ?

 

[jm.andryszak]

Bonjour

Ce lien permet de créer des MsgBox personnalisés.
https://www.developpez.net/forums/i1477223/logiciels/microsoft-office/access/msgbox-personnalise-vba
Plein d'espoir et de naïveté, j'ai tenté en vain l'arrivée d'un quatrième bouton.
J'ai donc contourné cette impossibilité.
Le bouton3 du premier MsgBox crée un deuxième MsgBox personnalisé.
Je ne suis pas assez calé en API pour comprendre tout le code.
En espérant que ça peut vous convenir.
ci-joint un exemple.

 

[Usine à gaz]

bjr jm.andryszak , Le Forum
Merci pour ton fichier et tes liens.
Je vais regarder tout ça et je reviendrai,

 

[Staple1600]

Bonsoir le fil

Usine à Gaz (AKA Arthour973)
Ce serait bien de tenir à jour l'historique de tes discussions (*) plutôt que de reposer des questions que tu as déjà posé, non ?
De là où je suis, j'appelle cela de la miction dans un lira da braccio (comme dirait Monica B.)

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...

excel-downloads.com

NB: En 2017, déjà je te parlais des API

(*) : je parle de celles que tu créés (pas de tes réponses dans les fils tiers)