Plusieurs couleurs dans un même textbox

E

Enelos

Guest
Bonjour,

j'aimerais savoir s'il est possible de mettre plusieurs couleurs de texte (font) dans un même textbox ?
ex: 'le mot suivant est vert.'
Sinon, existe-t-il un autre contrôle susceptible de le faire ?

Merci d'avance.
 
F

Franck

Guest
Bonsoir Enelos

Je n'ai pas bien compris ce qui va motiver ton changement de couleur mais voila toujours une idée

If TextBox1.Value = 'VERT' Then
TextBox1.ForeColor = &HC000&
Else
TextBox1.ForeColor = &HFF0000 'Bleu
End If

PS Attention aux majuscules ou aux minuscules


A+ Franck
 

Hervé

XLDnaute Barbatruc
Supporter XLD
Bonsoir Enelos, franck

Je ne crois pas que tu puisses mettre plusieurs couleurs différentes dans une textbox (mais je peux me tromper).

Pour ceci, il faut passer par une richtextbox, qui est bien plus 'maniable' qu'une textbox classique.

En pièce jointe, une petite démo de ce que l'on peut faire avec ce type de controle.

Faire varier la couleur, le style, la taille ou meme la police du dernier mot de la textbox.

Avis aux forumeurs :

Je profite de ce post pour demander un test.
Merci de m'indiquer les soucis rencontrés avec ce fichier.

d'avance je vous en remercie

salut
[file name=richtextbox.zip size=14281]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/richtextbox.zip[/file]
 

Pièces jointes

  • richtextbox.zip
    13.9 KB · Affichages: 99

Robert

XLDnaute Barbatruc
Bonsoir Enelos, Franck, Hervé, bonsoir le forum,

Enelos, désolé d'utiliser ton Fil mais je réponds à la demande de test d'Hervé.

Hervé... Bug à l'ouverture de l'UserForm... Message : 'Erreur de Compilation : Membre de méthode ou de données introuvable'.
Tu nous as pas dit où on devait charger cette 'TextBox pleine aux as' gros malin... Du coup ça plante.
 
H

Hervé

Guest
re tout le monde, salut robert

:) gros : de plus en plus, malin : de moins en moins.

normalement, ce type de controle ne nécessite pas d'installation supplémentaire, il s'agit juste d'un controle complémentaire.

pourrais tu dans l'initialize du usf supprimer ce code :


With Application.CommandBars.FindControl(ID:=1728)
For i = 1 To .ListCount
ComboBox1.AddItem .List(i)
Next i
End With

je pense plus que le souci vient de ca.

par avance je t'en remercie.

salut
 

Robert

XLDnaute Barbatruc
Bonsoir le fil, bonsoir le forum,

Désolé Hervé mais même comnme ça ça buggue... C'est RichTextBox1 qui est surligné de bleu avec le message cité plus haut. De plus, quand je regarde l 'UserForm ce RichTextBox1 n'apparaît nulle part ???
 
F

Fanfan68

Guest
Bonjour Hervé, bonjour tout le monde,

Personnellement, j'ai testé ton fichier et je n'ai rencontré aucun soucis, j'ai office XP.

Intéressant ce contrôle 'richtextbox', je ne connaisais pas !

A bientôt
 

Discussions similaires