Caractères (бωψε) dans un macro

Résolu
kikou93 Messages postés 416 Date d'inscription   Statut Membre Dernière intervention   -  
kikou93 Messages postés 416 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai une question :

Est-ce que c'est possible d'insérer des caractères comme (бωψε) dans un macro?

Si c'est oui alors comment on fait
A voir également:

2 réponses

Réponse 1 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Insérer dans une macro : Non

Définir avec une macro : Oui
Exemple : 
Option Explicit
Sub test()
Dim s As String
  s = ChrW(1073) & ChrW(969) & ChrW(968) & ChrW(949)
  Range("A1").Value = s
End Sub
1
kikou93 Messages postés 416 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci de m'avoir répondu

ça marche quand je le mets dans une cellule, mais moi je veux pas mettre dans une boîte dialogue et ça ne marche pas, voici le macro que j'ai créé : 

Sub Bouton8478_Cliquer()
Dim mess As String
mess = ""
If Range("I3") = 1 Then
  mess = mess & "Plaque rectangulaire longue en béton à bords simples :" & Chr(10) & Chr(10) & "Résultat :" _
         & Chr(10) & "Le paramètre" &*****& " u :" & Chr(10) & "u = " & Range("C19") & Chr(10) & "Les Coefficients" &*****& " :" & "Wo = " & Range("C26") & Chr(10) & "fo = " & Range("C27") & Chr(10) & "Moment maximal" &*****& "en :" & Chr(10) 
  MsgBox mess
  End If
End Sub


Je veux que ces caractères apparaissent là où j'ai mis des &*******&.

Une autre question si tu le permets. Où tu as trouvé ça :(ChrW(969) & ChrW(968) & ChrW(949)), tu pourrais m'indiquer je pourrais utiliser d'autres caractères.

Merci d'avance pour votre aide
0
Réponse 2 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Au lieu d'utiliser MsgBox, il suffit que tu utilises ton propre formulaire d'affichage. Par exemple :
https://www.cjoint.com/c/ELzmdUCJ8xs

La fonction chrW() permet de définir un caractère unicode, le nombre correspondant au numéro décimal du caractère :
Table des caractères grecs et coptes

Note : Les boites de dialogues VBA (MsgBox, ...) peuvent aussi afficher les caractères Unicode d'une seule autre langue. Il faut définir les options régionales correspondantes mais attention, ce n'est pas sans conséquences sur les autres fichiers (certains peuvent afficher un message d'erreur à l'ouverture) : Panneau de configuration / Région et Langue / Administration / Langue pour les programmes non Unicode - Modifier les paramètres régionaux / Grec. Je te déconseille cette option.
1
kikou93 Messages postés 416 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci beaucoup Patrice33740
à la prochaine fois
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
[URL] Trouvé une URL avec partie manquante
Powo2 -
lami20j -

57 réponses