Discussion :

[EstelleG]

Bonjour à tous,

j'utilise depuis peu la très utile fenêtre de message étendue (MsgBoxEx), que j'ai trouvé sur le site :
ici
C'est très pratique, je m'en sers pour afficher principalement des messages d'aide en 2 langues. Maintenant j'aimerais aussi m'en servir comme une MsgBox standard et résuperer la valeur du bouton sur lequel a cliqué l'utilisateur.
J'ai bien trouvé ce sujet dans le forum, mais la réponse était: "utilise les Userform", ce que je voudrais éviter.

Est-ce que quelqu'un aurait une petite idée?
Par avance merci,
Estelle

[Marc-L]

Bonjour, bonjour,

comme indiqué dans la documentation, cette fonction est similaire au MsgBox standard …

Elle renvoie donc le bouton cliqué via une valeur numérique de type Integer, rien qu'en lisant le code aussi !

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Theze]

Bonjour,

La boite MsgBox standard retourne la valeur du bouton cliqué qu'il est possible d'utiliser de cette façon :

Code :

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

1
2
3
4
5
6
 
If MsgBox("Quel bouton est cliqué !", vbAbortRetryIgnore) = vbIgnore Then
 
    MsgBox "Le bouton 'ignorer' à été cliqué !"
 
End If

Cette valeur est passée à la boite de message étendue donc il suffit de procéder de la même façon :

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
 
Sub Test()
 
    Dim ltexte As String
 
    ltexte = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fcharset0 Arial;}}" & vbCrLf & _
             "{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs20 " & vbCrLf & _
             "Ceci est un texte \ul format\'e9\ulnone  \'e9crit \b dans Worpad.\par" & vbCrLf & _
             "Utilisez par exemple NotePad pour visualisez le texte RTF.\par" & vbCrLf & _
             "\b0\par" & vbCrLf & _
             "}"
    If MsgBoxEx(ltexte, vbQuestion Or vbAbortRetryIgnore Or vbDefaultButton3, "Test MsgBoxEx", , , _
                  RGB(250, 250, 240), , 20, " ([Time] sec)", True) = vbIgnore Then
 
        MsgBox "Le bouton 'ignorer' à été cliqué !"
 
    End If
 
End Sub

ou alors avec un SelectCase :

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
 
Sub Test()
 
    Dim ltexte As String
    Dim Retour As Long
 
    ltexte = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fcharset0 Arial;}}" & vbCrLf & _
             "{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs20 " & vbCrLf & _
             "Ceci est un texte \ul format\'e9\ulnone  \'e9crit \b dans Worpad.\par" & vbCrLf & _
             "Utilisez par exemple NotePad pour visualisez le texte RTF.\par" & vbCrLf & _
             "\b0\par" & vbCrLf & _
             "}"
    Retour = MsgBoxEx(ltexte, vbQuestion Or vbAbortRetryIgnore Or vbDefaultButton3, "Test MsgBoxEx", , , _
                  RGB(250, 250, 240), , 20, " ([Time] sec)", True)
 
    Select Case Retour
 
        Case vbIgnore
 
            MsgBox "Ignorer !"
 
        Case vbCancel
 
            MsgBox "Annuler !"
 
        Case vbRetry
 
            MsgBox "Recommancer !"
 
        Case vbAbort
 
            MsgBox "Abandonner !"
 
        'etc...
    End Select
 
End Sub

Hervé.

[Theze]

Oups, désolé Marc, pas rafraîchi !

[EstelleG]

Merci à tous les 2,

effectivement c'etait "tout bête", j'avais une autre erreur dans la syntax de la MsgBoxEx du coups je croyais que c'etait le select case qui ne fonctionnait pas.

Bref, je ferais plus attention la prochaine fois avant de poser une question.

En tout cas merci d'avoir pris le tremps de regarder.