Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Créer un msgbox à 4 choix

Usine à gaz

XLDnaute Barbatruc
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,
 

Pièces jointes

  • msgbox.xlsm
    51.6 KB · Affichages: 15
Réactions: cp4
Trier par date Trier par votes

Jacky67

XLDnaute Barbatruc
Bonjour,
A ma connaissance, le seul "4ème bouton" que l'on peut ajouter est le bouton aide
VB: 
Sub AjoutBouton()
  MsgBox "ajout bouton", 16387, "Bouton supplémentaire"
End Sub
Si tu peux t'en contenter
Sinon ===>>userform
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
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
 
Dernière édition:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Bonsoir Jean-Marie
Je n'ai pas su également,
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
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
VB: 
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 ?
 
Vote positif 0 Vote négatif
J

jm.andryszak

XLDnaute Occasionnel

Pièces jointes

  • MsgBox peronnalisé.xlsm
    31.9 KB · Affichages: 12
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
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)
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question Question
XL 2021 Activer classeurs ouverts
2 3
Réponses
38
Affichages
2 K
Usine à gaz
  • Résolu(e)
XL 2021 Mettre en numérique une cellule texte
2
Réponses
26
Affichages
1 K
TooFatBoy
  • Résolu(e)
XL 2021 copier en B7 la valeur de la cellule active (Cells(ActiveCell.Row, 7)) de la feuille "Appels"
Réponses
12
Affichages
516
Usine à gaz
  • Résolu(e)
XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5
Réponses
6
Affichages
591
Usine à gaz
R
  • Question Question
Microsoft 365 VBA Excel PowerPoint
Réponses
5
Affichages
298
Rem6610
R
F
  • Question Question
XL 2016 Recherche multi classeurs
Réponses
5
Affichages
210
mromain
  • Résolu(e)
XL 2021 Créer un pdf en deux pages pour 2 plages d'une même feuille
2
Réponses
19
Affichages
977
Usine à gaz
  • Résolu(e)
XL 2021 Est-il possible d'activer ou désactiver un gif en vba ?
2 3
Réponses
39
Affichages
2 K
Dranreb
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
146
escudo
E
E
  • Résolu(e)
Microsoft 365 power query recup en tete dans colonne personnalisee
Réponses
4
Affichages
376
eric72
E
L
  • Question Question
Microsoft 365 Créer un tarif multi entrées Excel
Réponses
5
Affichages
408
Efgé
  • Question Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
586
Usine à gaz
  • Résolu(e)
XL 2021 Calendrier : à l'affichage ne pas sélectionner de date
2
Réponses
29
Affichages
1 K
Usine à gaz
R
  • Question Question
XL 2021 Formule dans un tableau
Réponses
10
Affichages
400
rampon
R
  • Résolu(e)
XL 2021 Cellule vide : sélectionner et atteindre
2
Réponses
15
Affichages
1 K
Usine à gaz
L
  • Question Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
691
l.et.lilou
L
Z
  • Question Question
Microsoft 365 Reporter sur chaque ligne un code en fonction du numéro de département (INDEX_Eqiv ???)
Réponses
4
Affichages
370
Zougoulou
Z
  • Question Question
XL 2021 [Résolu] : Désactiver la sélection d'une forme (Rectangle) sur une feuille
Réponses
2
Affichages
348
Zdz16
  • Résolu(e)
XL 2021 Coller des données d'une page web OUVERTE vers feuille Excel
2 3
Réponses
43
Affichages
2 K
job75
  • Résolu(e)
XL 2021 Formules que je n'arrive pas à faire
2
Réponses
29
Affichages
1 K
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…