cs_jackky
Messages postés50Date d'inscriptionmardi 8 janvier 2002StatutMembreDerniè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
Nektanebos
Messages postés62Date d'inscriptionmercredi 4 décembre 2002StatutMembreDernière intervention27 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és62Date d'inscriptionmercredi 4 décembre 2002StatutMembreDernière intervention27 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