MsgBox personalisée

Fermé

Ttomax Messages postés 60 Date d'inscription vendredi 13 novembre 2009 Statut Membre Dernière intervention 26 juin 2012 - Modifié par Ttomax le 25/10/2011 à 14:04
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 26 oct. 2011 à 15:05

Bonjour,

J'ai trouver un code que j'ai essayer d'adapter pour moi, qui consiste à effecuter une msgbox personnalisée:

Sub demande2() 

    Dim MonMessage As String 
    Dim P As Byte 
    MonMessage = "Choisir une action..." 
    P = MsgBox10(MonMessage, "Consultation de la fiche qualité", vbQuestion, "Consulter la fiche", "Imprimer la fiche", "Fermer la fiche") 
    Select Case rep 


Case 0 
Exit Sub 


Case 1 
msgbox2 "ok" 


Case 2 
Sheets("Fiche qualité").Select 
With Sheets("Fiche qualité") 

 'lancement d'une macro de mon fichier' 
Application.Run "'Saisies et suivis.xls'!Macro6" 


End With 
End Select 
End Sub

j'ai un message d'erreur Erreur de compilation, Sub ou fonction non defineie, quelqu'un a une idée svp??

A voir également:

MsgBox personalisée
Msgbox range ✓ - Forum Excel
Msgbox vbokcancel ✓ - Forum VB / VBA
Msgbox html ✓ - Forum HTML
Msgbox vba afficher variable - Forum VB / VBA
Msgbox vbyesnocancel ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
25 oct. 2011 à 14:26

1 ) Tu utilises « MsgBox10 » et « MsgBox2 » mais tu n'as pas fourni le code de ces fonctions qui déclenchent peut-être l'erreur !!!

2) Tu affectes la réponse de « MsgBox10 » à « P » et tu exploites « rep » dans le select case (au lieu de P)

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
25 oct. 2011 à 14:28

PS :
3) le With Sheets("Fiche qualité") ne sert à rien !

Réponse 2 / 4

Ttomax Messages postés 60 Date d'inscription vendredi 13 novembre 2009 Statut Membre Dernière intervention 26 juin 2012 1
26 oct. 2011 à 09:35

merci, j'ai fait quelques modification sur mon code, mais en fait je plante à chaque fois sur ma msgbox perso

P = MsgBox10(MonMessage, "Consultation de la fiche qualité", vbQuestion, "Consulter la fiche", "Imprimer la fiche", "Fermer la fiche")

je voudrais une msgbox avec trois boutons "Consulter la fiche", "Imprimer la fiche", "Fermer la fiche" mais la je sèche...

Réponse 3 / 4

m@rina Messages postés 20027 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 18 avril 2024 11 269
26 oct. 2011 à 09:56

Bonjour,

Ce n'est plus une msgbox que tu veux faire !
Pour mettre des boutons particuliers qui ont des actions particulières, il faut faire une userform.
Une msgbox c'est basique, ça permet juste d'afficher un message avec des boutons prédéfinis, et de dire oui ou non, annuler, ignorer...

De plus ton code ne ressemble à rien, tu n'as pas lu ce que t'a dit Patrice33740.

m@rina

Ttomax Messages postés 60 Date d'inscription vendredi 13 novembre 2009 Statut Membre Dernière intervention 26 juin 2012 1
26 oct. 2011 à 10:13

Alors OUI j'ai lu ce que t'a dit Patrice33740!! sinon je n'aurai pas répondu, et de plus je te mettrais ce soir le lien ou j'ai trouvé de quoi faire une msgbox personnalisée, je ne l'ai pas sur le moment.

Si je pose une question, c'est que j'ai un problème sur un code alors.... "De plus ton code ne ressemble à rien" ca m'avance pas vraiment.

bonne journée

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
26 oct. 2011 à 10:19

Bonjour,

msgbox() est une fonction avec des parametres pour la gérer, c'est tout.
Fait F1 dessus pour avoir le rôle de chaque paramètre.

P = MsgBox10(... n'existe que si tu as créé une fonction personnalisée appelée msgbox10.

eric

Réponse 4 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié par Patrice33740 le 26/10/2011 à 15:06

Bonjour,

Sur le site où tu as trouvé le morceau de code qui génère l'erreur, tu as oublié de copier la fonction MsgBox10 qui commence par quelque chose comme :
Private Function MsgBox10(...
et termine par
End Function

D'autre part je confirme ce que dit m@rina : « ... ton code ne ressemble ... »

Voici quelques sites à consulter :
https://vb.developpez.com/faqvba/
http://www.info-3000.com/vbvba/index.php
https://www.lecompagnon.info//vba-excel/index.html
http://boisgontierjacques.free.fr/index2.htm
https://apprendreexcel.com/
https://vb.developpez.com/cours/

Cordialement
Patrice

Discussions similaires

Msgbox dans un .bat

[VB]MsgBox avec variable

MessageBox en PHP

Vbs: MsgBox avec bouton personnaliser ?

afficher MessageBox avec java

Discussions similaires

Newsletters