Discussion :

[Beber39]

Bonjour,

où puis je trouver la syntaxe du code VBA nécessaire pour modifier la mise en forme d'une partie de texte dans un contrôle d'un formulaire en texte enrichi ?
Exemple : changer la police d'un mot, la taille, ...

Merci

[jimbolion]

Beber bonjour,

Pour commencer déjà une bonne lecture de ce document concernant les bases du HTML

http://j-willette.developpez.com/tut...bases-du-html/

Ensuite en utilisant les syntaxes du VBA et la concaténations de tes valeurs pour formater ton champ comme tu le souhaites !

Afin de simuler tes premiers essais, une zone de texte en format enrichi (du gras, couleurs..). Tu modifies ensuite cette zone en texte brut afin de voir le résultat avec html. Le reste n'est que pur programmation.

Bonne continuation

Jimbolion

[Beber39]

Merci Jimbolion,
je vais tester ... après lecture.
Mais, pour l'instant, je ne vois pas trop comment utiliser les mises en forme html à partir de VBA.
Si tu peux m'éclairer par un petit exemple ...

A+

[Robert1957]

Bonjour Beber39, Jean Marie,

Voici un exemple qui modifie le texte de la boite de texte txtLeNomDeTonControle.
Texte original: Première ligne en gras. Deuxième ligne en rouge. Troisième ligne en 16.
Pour:
Première ligne en gras.
Deuxième ligne en rouge.
Troisième ligne en 16.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnHTML_Click()
 
Dim strTexte As String
 
strTexte = Me.txtLeNomDeTonControle
 
strTexte = Replace(strTexte, "Première ligne en gras.", "<div><strong>Première ligne en gras.</strong></div>") 'Ici on met la première ligne en gras
strTexte = Replace(strTexte, "Deuxième ligne en rouge.", "<div><font color=""#ED1C24"">Deuxième ligne en rouge.</font></div>") 'Ici on met la deuxième ligne en rouge
strTexte = Replace(strTexte, "Troisième ligne en 16.", "<div><font size=5>Troisième ligne en 16.</font></div>") 'Ici on grossit le caractère
Me.txtLeNomDeTonControle = strTexte
 
End Sub

Tu pourrais remplacer la partie "Première ligne en gras" par une variable et ainsi de suite.

Bonne journée

[jimbolion]

Beber39 , Robert


Beber39 vérifie bien que ton champ est une zone de texte en format enrichi

Merci pour cet exemple Robert

Jm

[Beber39]

Super ; Merci Robert1957 et Jimbolion.

Reste un problème : si je traite un mot du texte de mon contrôle (par exemple mise en gras), un retour à la ligne s'insère après le mot.

Bonne journée

[Robert1957]

Bonjour Beber39,

Pour mettre juste un mot en gras:

Code :

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

strTexte = Replace(strTexte, "LeMotDésiré", "<strong>LeMotDésiré</strong>")

Tu trouveras ici quelques bases du HTML qui pourront t'aider.

Bonne journée

[Beber39]

Et bien, c'est génial.
Merci pour votre aide

Beber39