Discussion :

[ESVBA]

bonsoir le forum,

je vais devoir écrire des formules chimiques avec leurs indices type H2O

La saisie se fait depuis une "UserForm", comment ?
et je compte transcrire le résultat une cellule Excel qui sera imprimée.

Je ne trouve plus de controle "RichTextBox" avec office 2007.

Comment dois-je m'y prendre ?

MErci.

ESVBA

[Didier Gonard]

Bonjour,

A première vue, il est supprimé et si on arrive à bricoler, dangereux pour la maintenance et la pérennité...

voir ces liens...

http://www.developpez.net/forums/d27...e-richtextbox/

http://support.microsoft.com/kb/838010

Vois sinon si des caractères spéciaux peuvent être utiles ?

http://alis.isoc.org/codage/iso10646/index.html

cordialement,

Didier

[ESVBA]

merci ormonth.
C'est ce que j'avais lu.


aucun moyen simple proposé par microsoft depuis ces années ?


Ou faire du HTML et l'affichage dans un contrôle Webrowser ?

Je n'ai aucune idée de l'interface :

• Il faut un bouton par mise en forme du texte sélectionné
• il faut pour mettre les balises dans la textbox
• Ecrire les changements dans un fichier HTML
• Afficher sur le côté dans le controle WebBrowser le fichier HTML enregistré
• Transcrire les balises en code caractères spéciaux dans les cellules Excel

C'est lourd.

ESVBA

[Didier Gonard]

jamais eu à utiliser en VBA, les gens que je connais fonctionnaient avec matlab...

ce que tu veux utiliser dépend d'une police (ou des) ou est très spécifique ?

quels genre de choses as-tu à saisir ?

cordialement,

Didier

[ESVBA]

rien de très spécifique.

Je souhaite afficher directement la mise en forme pour éviter les erreurs de saisie.


La saisie restera simple :
KMO4
CH3COCOOH
(CH3)2O2
CH3-C6H4-CH3, C8H10 <- 2 chiffres
Mn2+ <-Exposant
Fe3+ <-Exposant
C16H34S2O3Cl
Cr2O72- <- Cr(2indice) O(7indice) 2-(exposant)



Je souhaite faire un "truc" comme cette boite de saisie de texte avec l'option indice et exposant.

Une solution temporaire (non essayé) convertir la chaine saisie en texte "C16H34S2O3Cl" en la scannant et en mettant par VBA les codes spéciaux de formatage de cellule (indice/exposant). Reste le problème des indices et exposants qui se suivent (en partant par la droite et un espace obligatoire pour distinguer "2-" de "72-".

Quand à la proposition de caractères spéciaux unicode ! Ce n'est pas supporté par la textbox, d'après ce que je sais. Comment faire alors ?

Merci.

ESVBA

[babaothe]

salut

en ascii, tu as déjà les exposants 1, 2 et 3 ainsi que le signe + ou - :

Code :

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

TextBox1.Text = "exposant1" & Chr(185) & vbCrLf & "exposant2" & Chr(178) & vbCrLf & "exposant3" & Chr(179) & vbCrLf & "signe + ou moins " & Chr(177)

[Didier Gonard]

rien de très spécifique.

Quand à la proposition de caractères spéciaux unicode ! Ce n'est pas supporté par la textbox, d'après ce que je sais. Comment faire alors ?

ESVBA

Si,si c'est d'ailleurs une des raisons invoquée lors de l'abandon de RichText je crois (textbox Acces).

Le mieux est de construire ton propre Editeur, je t'en propose une maquette grossière, mais opérationnelle dans l'idée.

le principe, ici, est que le clic sur indice ou exposant transforme le dernier caractère entré.

Code :

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
30
31
32
33
34
35
36
37
'Dans l'USF
Option Explicit
Dim objPass
Dim strpass As String
 
Private Sub CommandButton1_Click()
Cells(1, 1) = objPass.Text
End Sub
 
Private Sub Labexp_Click()
Dim strcaract As String
 
strcaract = Right(objPass.Text, 1)
strpass = objPass.Text
objPass.Text = Left(objPass, Len(objPass) - 1) & Convertisseur(strcaract)
End Sub
 
Function Convertisseur(strcaract As String)
Select Case strcaract
   Case 1
      Convertisseur = ChrW("&H00B9")
   Case 2
      Convertisseur = ChrW("&H00B2")
   Case 3
      Convertisseur = ChrW("&H00B3")
   Case Else
      Convertisseur = strcaract 'construire les filtres voulus...
End Select
End Function
 
Private Sub TextBox1_Enter()
Set objPass = Me.ActiveControl
End Sub
 
Private Sub TextBox2_Enter()
Set objPass = Me.ActiveControl
End Sub

les index ne sont opérationnels que jusqu'à 3 et les indices ne sont pas implémentés.

cordialement,

Didier