Dim Var As String Var = "help" For i = 1 To Len(RTF) Mot = RTF.Find(Var) RTF.SelStart = Mot RTF.SelLenght = Len(Var) RTF.SelColor = vbBlue Next i
Dim Var As String Var = InputBox("Chercher :", "Recherche...") For i = 1 To Len(RTF) Mot = RTF.Find(Var, i) If Mot > 0 Then RTF.SelStart = Mot RTF.SelLength = Len(Var) RTF.SelColor = vbBlue End If Next i
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question