Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 285 fois - Téléchargée 65 fois
Private Function HLW(rtb As RichTextBox, sFindString As String, Lcolor As Long) Dim LfoundPos As Long Dim LfindLenght Dim LorigSelStart Dim LorigSelLenght Dim ImatchCount As Integer LorigSelStart = rtb.SelStart LorigSelLenght = rtb.SelLength LfindLenght = Len(sFindString) LfoundPos = rtb.Find(sFindString, 0, , rtfNoHighlight) While LfoundPos > 0 ImatchCount = ImatchCount + 1 rtb.SelStart = LfoundPos rtb.SelLength = LfindLenght rtb.SelColor = Lcolor LfoundPos = rtb.Find(sFindString, LfoundPos + LfindLenght, , rtfNoHighlight) Wend rtb.SelStart = LorigSelStart rtb.SelLength = LorigSelLenght HLW = ImatchCount End Function
Je sais que cela fait longtemps que ce code est là...
Une petite amélioration possible serait de typer les variables et non pas seulement 2
Dim LfoundPos As Long
Dim LfindLenght As Long
Dim LorigSelStart As Long
Dim LorigSelLenght As Long
Dim ImatchCount As Integer
De plus si tu sais ce que retourne la fonction, type le aussi plutot que de mettre du Variant.
Private Function HLW(rtb As RichTextBox, sFindString As String, Lcolor As Long) As Integer
Voila.
Sinon à part cela, il semble que ce soit ce que je cherchais.
Alors Merci.
Private Function HLW(rtb As RichTextBox, sFindString As String, Lcolor
ça me dit que j'ai un type non défini par l'utilisateur.
Qqn peut m'aider ?
Ouais. mais je te conseille de remplacer Private par Public sion t'auras du mal a l'utiliser
********************************************************************
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.