Discussion :

[olivepao]

Salut tout le monde,

J'ai un petit soucis avec mes MsgBox.

Mon Excel est en français, mon Windows itou et lorsque je fais une MsgBox, le texte des boutons est en anglais.

Comment faire ?

Existe-t-il une variable "cachée" qu l'on ajouté à

.... vbYesNoCancel + vbQuestion + vbDefaultButton1, ....

Merci de votre aide et à bientôt

[helios77]

Bonjour,

C'est bizarre ton truc...
si tu es vraiment coincé, tu n'as qu'à créer ta propre msgbox

[olivepao]

Bonjour,

C'est bizarre ton truc...
si tu es vraiment coincé, tu n'as qu'à créer ta propre msgbox

Tchô

Le problème c'est que je créé ma MsgBox dans un module. A part en créer une avec un USF je ne vois pas comment faire !

Est-ce un problème d'API ?


A++

[ucfoutu]

Bonjour,

Tu "crées ta msgbox dans un module" à l'aide de quoi, exactement ?
Si tu n'utilises pas Msgbox de ton VBA directement, mais autre chose, notamment une fonction de l'Api de Windows, la langue utilisée sera celle de ta version de Windows, bien évidemment.
Ce sera par exemple le cas avec les fonctions MessageBox et MessageBoxEx de la librairie user32 de l'Api de Windows.

[olivepao]

Ucfoutu helios77

Voici ma MsgBox

Code :

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

1
2
3
4
5
OuiNon = MsgBox("Message" + Chr$(13) + Chr$(13) + Chr$(13) _
                     & "Message" + Chr$(13) + Chr$(13) _
                     & "Message" + Chr$(13) + Chr$(13) _
                     & "Message" + Chr$(13) + Chr$(13), _
                     vbYesNoCancel + vbQuestion + vbDefaultButton1, " TITRE MSGBOX ")

Je ne comprends pas pourquoi j'ai ce petit bug !

[zazaraignée]

Je ne comprends pas. J'ai testé ton code et il marche très bien chez moi (msOffice et Windows en français) en affichant, comme il se doit, les boutons en français. Et ce malgré que tu utilises l'opérateur + (addition) plutôt que l'opérateur & (concaténation), ce qui marche aussi bien sur, mais qui peut parfois provoquer des erreurs.

Code :

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

1
2
3
4
5
6
OuiNon = MsgBox("Message" & vbCr & vbCr & vbCr _
                     & "Message" & vbCr & vbCr _
                     & "Message" & vbCr & vbCr _
                     & "Message" & vbCr & vbCr , _
                     vbYesNoCancel + vbQuestion + vbDefaultButton1, _
                     " TITRE MSGBOX ")

vbCr étant une constante de caractère pour le retour de charriot.

Mais je crois que le problème est ailleurs.
Qu'y a-t-il d'autre dans ta procédure (ou ta fonction) de ce module ?