Discussion :

[eric4459]

Bonjour,
Y-t-il un moyen de modifier le texte des boutons vbYesNoCancel pour les traduire en anglais par exemple?
S'agissant d'une TextBox je ne sais pas comment accéder aux propriétés.
Merci pour votre aide et votre collaboration
Eric

[Thautheme]

Bonjour Eric, bonjour le forum,

Je crois que non mais avec les experts qui rôdent ici je le dis mais alors, tououout doucement... Sinon le plus simple c'est d'utiliser une UserForm à la place et là, tu auras toute liberté pour les textes des boutons puisque c'est toi-même qui les crées...

[Invité]

bonjour,
rien ne t'interdis de le dessiner!

Code UserForm :

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
Public Function InputText(T As String)
Me.Label1 = T
Me.Show vbModal
On Error Resume Next
InputText = Me.Tag
If Err <> 0 Then InputText = vbCancel
Err.Clear
On Error GoTo 0
Unload Me
End Function
 
Private Sub CommandButton1_Click()
Me.Tag = vbYes
Me.Hide
End Sub
 
Private Sub CommandButton2_Click()
Me.Tag = vbNo
Me.Hide
End Sub
 
Private Sub CommandButton3_Click()
Me.Tag = vbCancel
Me.Hide
End Sub
 
Private Sub UserForm_Click()
 
End Sub

Code Module standard :

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

1
2
3
4
5
Sub test()
result = UserForm1.InputText("Har you sur!")
If result = vbYes Then MsgBox "ha bon !"
MsgBox result
End Sub

[pgz]

Bonsoir.

Juste une remarque : la boîte de message affiche les boutons en langue choisie par l'utilisateur du poste.
Si un utilisateur travaille avec l'anglais en option linguistique, les boutons s'afficheront en anglais.

Cordialement,

PGZ