MsgBox personalisée Fermé

Question

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?? 


Configuration: Windows XP / Internet Explorer 7.0

Patrice33740 · Answer

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)

Ttomax · Answer

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

m@rina · Answer

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

Patrice33740 · Answer

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

MsgBox personalisée

4 réponses

Discussions similaires