Caractères (бωψε) dans un macro
Résolu
kikou93
Messages postés
438
Statut
Membre
-
kikou93 Messages postés 438 Statut Membre -
kikou93 Messages postés 438 Statut Membre -
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
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
2 réponses
-
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-
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
-
-
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.
