Bonjour,

J'ai découvert le tutoriel de Thierry Gasperment sur les fenêtre de message étendues.
J'ai essayé, sans succès.

Puis j'ai lu la discussion Création fenêtre de message étendue (MsgBoxEx).

J'ai suivi le conseil de ouskel'n'or qui consiste à attribuer la fonction MsgBoxEx à une variable.
Mais la fonction n'attribue aucune valeur à la variable.

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
Private Sub Commande183_DblClick(Cancel As Integer)
 
Dim int_Quest As Integer
 
    Select Case int_Quest = MsgBoxEx("Essai de MsgBoxEx", vbQuestion Or vbAbortRetryIgnore Or vbDefaultButton3, "Que faire maintenant ?", , , , 650, , , , "Nouveau n° de ctrl", "Ouvrir le dernier n° de ctrl", "Menu général")
 
        Case 32
        MsgBox "Choix 1 réussi"
 
        Case 2
        MsgBox "Choix 2 réssi"
 
        Case 512
        MsgBox "Choix 3 réussi"
 
    End Select
 
End Sub
Les valeurs des case sont données par l'info bulle dans l'éditeur VBA.
Les actions des case sont termporaires.

Quelqu'un pourrait-il m'aider à utiliser cette fonction ?
Je vous remercie par avance,
Christophe