Sujet Précédent Sujet Suivant

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

Résolu/Fermé
kikou93 Messages postés 416 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 - 23 déc. 2015 à 21:11
kikou93 Messages postés 416 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 - 25 déc. 2015 à 16:57
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
24 déc. 2015 à 09:26
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 mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 1
Modifié par kikou93 le 24/12/2015 à 10:42
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
25 déc. 2015 à 13:37
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 mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 1
25 déc. 2015 à 16:57
Merci beaucoup Patrice33740
à la prochaine fois
0

Discussions similaires

1500 signes équivaut à combien de ligne dans un document wor
Thierrybidias -
Raymond PENTIER -

2 réponses