Text couleur

cs_jackky Messages postés 50 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 6 juillet 2003 - 1 janv. 2003 à 04:56
Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003 - 3 janv. 2003 à 16:14
bonjour jai une petite question!

dans un richtextbox jai un text numerique, juste des chiffre!

genre:
456 456 52 200 59 84 96 35 85

je voudrais changer juste le chiffre 59 en rouge vif

comment faire svp

merci

10 réponses

Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003
1 janv. 2003 à 07:26
RichTextBox1.SelStart = 15
RichTextBox1.SelLength = 2

RichTextBox1.SelColor = vbRed
cs_jackky Messages postés 50 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 6 juillet 2003
2 janv. 2003 à 23:51
salut merci pour ton truc mais si le "59"
change de place ca marche pas!

456 456 59 200 69 84 96 35 85
Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003
3 janv. 2003 à 00:42
-------------------------------
Réponse au message :
-------------------------------

>
> salut merci pour ton truc mais si le "59"
> change de place ca marche pas!
>
>
> 456 456 59 200 69 84 96 35 85
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> >
> > RichTextBox1.SelStart = 15
> > RichTextBox1.SelLength = 2
> >
> > RichTextBox1.SelColor = vbRed
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > bonjour jai une petite question!
> > >
> > > dans un richtextbox jai un text numerique, juste des chiffre!
> > >
> > > genre:
> > > 456 456 52 200 59 84 96 35 85
> > >
> > > je voudrais changer juste le chiffre 59 en rouge vif
> > >
> > > comment faire svp
> > >
> > > merci
> >
>
Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003
3 janv. 2003 à 00:46
Ce qui est logique ! il faut rechercher la position du 59 si il n'y a qu'un 59 dans le rich text box c facile exemple

posi = instr(1,richtextbox1.text,"59")

RichTextBox1.SelStart = posi
RichTextBox1.SelLength = 2

RichTextBox1.SelColor = vbRed

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_jackky Messages postés 50 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 6 juillet 2003
3 janv. 2003 à 04:55
en effet jen ai plusieurs c'est des text assez long sur plusieurs ligne et j'en ai au moins un bon paquet d'environ 25-30

merci encore pour ton aide
Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003
3 janv. 2003 à 05:54
et tu veux mettre tous les 59 en rouge ?
Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003
3 janv. 2003 à 05:55
si oui tu dois faire :

for i = 1 to len(richtextbox) step 2
if mid$(richtextbox.text,i,2) = "59" then
RichTextBox1.SelStart = i
RichTextBox1.SelLength = 2

RichTextBox1.SelColor = vbRed
next i
cs_jackky Messages postés 50 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 6 juillet 2003
3 janv. 2003 à 06:19
si je compile ca:

Private Sub Command1_Click()
For i = 1 To Len(richtextbox) Step 2
If Mid$(richtextbox.Text, i, 2) = "59" Then
RichTextBox1.SelStart = i
RichTextBox1.SelLength = 2

RichTextBox1.SelColor = vbRed
Next i
End Sub

ca donne un erreur next sans for?

que faire
Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003
3 janv. 2003 à 16:14
-------------------------------
Réponse au message :
-------------------------------

>
> si je compile ca:
>
> Private Sub Command1_Click()
> For i = 1 To Len(richtextbox) Step 2
> If Mid$(richtextbox.Text, i, 2) = "59" Then
> RichTextBox1.SelStart = i
> RichTextBox1.SelLength = 2
>
> RichTextBox1.SelColor = vbRed
> Next i
> End Sub
>
> ca donne un erreur next sans for?
>
> que faire
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> > si oui tu dois faire :
> >
> > for i = 1 to len(richtextbox) step 2
> > if mid$(richtextbox.text,i,2) = "59" then
> > RichTextBox1.SelStart = i
> > RichTextBox1.SelLength = 2
> >
> > RichTextBox1.SelColor = vbRed
> > next i
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > >
> > > et tu veux mettre tous les 59 en rouge ?
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > >
> > > > en effet jen ai plusieurs c'est des text assez long sur plusieurs ligne et j'en ai au moins un bon paquet d'environ 25-30
> > > >
> > > > merci encore pour ton aide
> > > >
> > > > -------------------------------
> > > > Réponse au message :
> > > > -------------------------------
> > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > Ce qui est logique ! il faut rechercher la position du 59 si il n'y a qu'un 59 dans le rich text box c facile exemple
> > > > >
> > > > > posi = instr(1,richtextbox1.text,"59")
> > > > >
> > > > > RichTextBox1.SelStart = posi
> > > > > RichTextBox1.SelLength = 2
> > > > >
> > > > > RichTextBox1.SelColor = vbRed
> > > >
> > >
> >
>
Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003
3 janv. 2003 à 16:14
> for i = 1 to len(richtextbox) step 2
> if mid$(richtextbox.text,i,2) = "59" then
> RichTextBox1.SelStart = i
> RichTextBox1.SelLength = 2
>
> RichTextBox1.SelColor = vbRed
end if
> next i
Rejoignez-nous