Création d'un msgbox

Merci de ta remarque albkan, mais j'avais bien lu cette rubrique, et l'erreur ne venait pas de là.

J'ai refait quelques recherches à l'instant, et j'ai trouvé l'erreur, et je l'ai corrigé.

Le MsgBox s'affiche bien, sauf que les boutons ne sont pas personnalisés, peut-être ce code ne marche-t-il que pour des versions antérieurs de Excel ? Le mystère persiste...

hcp7kuz

 
Bonjour hcp7kuz,

Tu as écris : « Le MsgBox s'affiche bien, sauf que les boutons ne sont pas
personnalisés ».

Voici le tout début de la rubrique « Remarques importantes ! » :
«
Curieusement, les tests de cette procédure à base d'API Windows ne fonctionnent
pas lorsqu'on lance le code directement depuis l'éditeur VBE. Dans ce cas, les
boutons afficheront invariablement leur valeur par défaut (c'est à dire "Oui" et
"Non"). Il convient donc de lancer vos tests depuis l'interface Excel (comme le fera
l'utilisateur de votre projet) et non depuis l'éditeur de code VBA.
»

Donc il me semble que la citation de la rubrique explique ton problème, non ?
Si ça affiche invariablement "Oui" et "Non" depuis Microsoft Visual Basic,
les boutons ne sont donc pas personnalisés, comme tu l'as signalé. Tu dois
donc, pour que ça marche, exécuter la macro depuis la feuille Excel.

Mais si ce n'est pas ça, alors oui, effectivement, ça vient d'autre chose,
et le mystère persiste...

Cordialement.  😊
 

Boujour Albkan,

Encore merci pour ta remarque, car, comme tu as pu le remarquer, j'étais dans le feu de l'action, et j'en ai malencontreusement oublié ladite rubrique. Il est vrai que, lorsque que l'on exécute le code depuis l'interface excel, tout marche beaucoup mieux !

JULIEN, voici donc la fonction MsgBoxPerso, servant à afficher une MsgBox avec des boutons personnalisables. Ajoute déjà un module (insertion > module), dans lequel tu vas coller ce code :

Option Explicit

Public Declare Function SetWindowsHookEx& Lib "USER32" Alias "SetWindowsHookExA" _
        (ByVal idHook&, ByVal lpfn&, ByVal hmod&, ByVal dwThreadId&)
Public Declare Function GetCurrentThreadId& Lib "kernel32" ()
Public Declare Function CallNextHookEx& Lib "USER32" _
        (ByVal hHook&, ByVal CodeNo&, ByVal wParam&, ByVal lParam&)
Public Declare Function GetWindow& Lib "USER32" (ByVal hWnd&, ByVal wCmd&)
Public Declare Function SetWindowText& Lib "USER32" Alias "SetWindowTextA" _
        (ByVal hWnd&, ByVal lpString$)
Public Declare Function UnhookWindowsHookEx& Lib "USER32" (ByVal hHook&)
Public msgHook&
Public TitreBtn$(1 To 2)
 
Public Function MsgBoxPerso(Prompt$, Optional Title$, Optional Icon&, Optional Caption1$ = "Oui", _
    Optional Caption2$ = "Non", Optional Cancel As Boolean = False) As Byte
Dim Rep%, hInstance&
    TitreBtn(1) = Caption1
    TitreBtn(2) = Caption2
    msgHook = SetWindowsHookEx(5, AddressOf CaptionBoutons, hInstance, GetCurrentThreadId())
    Rep = MsgBox(Prompt, Icon + IIf(Cancel, vbYesNoCancel, vbYesNo), Title)
    MsgBoxPerso = Application.Max(Rep - 5, 0)
    Erase TitreBtn
End Function
 
Public Function CaptionBoutons&(ByVal nCode&, ByVal wParam&, ByVal lParam&)
Dim hWndChild&
  If nCode < 0 Then
    CaptionBoutons = CallNextHookEx(msgHook, nCode, wParam, lParam)
    Exit Function
  End If
  If nCode = 5 Then
    hWndChild = GetWindow(wParam, 5)
    Call SetWindowText(hWndChild, TitreBtn(1))
    hWndChild = GetWindow(hWndChild, 2)
    Call SetWindowText(hWndChild, TitreBtn(2))
    UnhookWindowsHookEx msgHook
  End If
  CaptionBoutons = False
End Function

Ensuite, pour utiliser la fonction, colle ce code :

    Dim Rep As Byte
    
    'A remplacer par : Rep = MsgBoxPerso("Bienvenue, êtes-vous client ou administrateur ?", "Bienvenue", vbQuestion, "Client", "Administrateur", True)
    '    si tu veux afficher le bouton annuler
    Rep = MsgBoxPerso("Bienvenue, êtes-vous client ou administrateur ?", "Bienvenue", vbQuestion, "Client", "Administrateur")
    
    Select Case Rep
    Case 0
        'ici le traitement (éventuel) si Annulation
        '...
    Case 1
        'ici le traitement si l'utilisateur clique sur le bouton Client
        '...
    Case 2
        'ici le traitement si l'utilisateur clique sur le bouton Administrateur
        '...
    End Select

Et, au risque de répéter, cela ne marche que depuis l'interface excel !

Cdlt

hcp7kuz

Désolé NHenry, mais pourquoi s'obstiner à utiliser une UserForm alors que la solution, proposée un peu plus haut, est celle demandée ?