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
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
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
1 janv. 2003 à 07:26
RichTextBox1.SelStart = 15
RichTextBox1.SelLength = 2
RichTextBox1.SelColor = vbRed
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
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
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
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
> >
>
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
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
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
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
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
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
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
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
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
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
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
> > > >
> > >
> >
>
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
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
> if mid$(richtextbox.text,i,2) = "59" then
> RichTextBox1.SelStart = i
> RichTextBox1.SelLength = 2
>
> RichTextBox1.SelColor = vbRed
end if
> next i
