Plusieurs couleurs dans un même textbox

[Enelos]

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.

 

[Franck]

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é]

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]

 

[Robert]

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.

 

[Hervé]

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]

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 ???

 

[Hervé]

Bonsoir tout le monde

Merci beaucoup robert pour tes tests, je voulais utiliser ce type de controle dans un prog que je fais, je vais vite faire marche arrière.

Encore merci pour le temps passé.

salut

 

[Fanfan68]

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

 

[PascalXLD]

Bonjour

Hervé avec office 2000 ça ne passe pas je n'ai pas l'objet ni la bibliothèque

Je vais voir si je peux la trouver sur le net

Bon WE