Text couleur

Signaler
Messages postés
50
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
6 juillet 2003
-
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003
-
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

Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

RichTextBox1.SelStart = 15
RichTextBox1.SelLength = 2

RichTextBox1.SelColor = vbRed
0
Messages postés
50
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
6 juillet 2003

salut merci pour ton truc mais si le "59"
change de place ca marche pas!

456 456 59 200 69 84 96 35 85
0
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

-------------------------------
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
> >
>
0
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

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
0
Messages postés
50
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
6 juillet 2003

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
0
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

et tu veux mettre tous les 59 en rouge ?
0
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

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
0
Messages postés
50
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
6 juillet 2003

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
0
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

-------------------------------
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
> > > >
> > >
> >
>
0
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

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