Discussion :

[Jérôme5625]

Bonjour,
je me permets de revenir vers vous pour une question sur l'utilisation des MsgBox.
J'utilisais une fonction que j'avais trouvé sur Internet et qui fonctionnait bien pour l'affichage de msgbox à deux réponses ou trois avec un bouton annuler.
cependant je suis à la recherche d'une solution permettant de pouvoir personnaliser l'ensemble des boutons proposés.



Ci après mon code actuel ou je veux modifier true dans msgboxperso en "+20ans"
Merci de votre aide par avance.
bon après midi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Sub Boite de dialogue
Dim MonMessage As String
Dim Rep As Byte
 
    MonMessage = "Quel age as tu?" & vbLf & vbLf & "Cet article vous a-t'il plu ?"
 
    Rep = MsgBoxPerso(MonMessage, "mDF XLpages.com", vbQuestion, "-10ans ", "entre 10 et 20ans", true)
 
    Select Case Rep
    Case 0
        ' ici le traitement (éventuel) si Annulation
        ' ...
    Case 1
        ' ici le traitement si réponse = "-10ans !"
        ' ...
    Case 2
        ' ici le traitement si réponse = "Entre 10 et 20ans"
        ' ...
    End Select
 
 
end sub 
 
 
 
 
Option Explicit
 
Private Declare Function SetWindowsHookEx& Lib "USER32" Alias "SetWindowsHookExA" _
        (ByVal idHook&, ByVal lpfn&, ByVal hmod&, ByVal dwThreadId&)
Private Declare Function GetCurrentThreadId& Lib "kernel32" ()
Private Declare Function CallNextHookEx& Lib "USER32" _
        (ByVal hHook&, ByVal CodeNo&, ByVal wParam&, ByVal lParam&)
Private Declare Function GetWindow& Lib "USER32" (ByVal hWnd&, ByVal wCmd&)
Private Declare Function SetWindowText& Lib "USER32" Alias "SetWindowTextA" _
        (ByVal hWnd&, ByVal lpString$)
Private Declare Function UnhookWindowsHookEx& Lib "USER32" (ByVal hHook&)
Private msgHook&
Private TitreBtn$(1 To 2)
 
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
 
Private 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

[Zekraoui_Jakani]

J'aurais utilisé un simple formulaire Excel qui me donnerait un résultat simple à gérer via un bouton "Confirmer" qui lance une procédure: