Fonction cherche et selectionne ds un textbox

Télécharger le projet
Commenter

Description

Slt si joint une petite fonction que je me suis faite pour rechercher et selectionner une chaine de caractéres dans un textbox :

J'ai joint une capture et un exemple d'utilisation de la fonction(source)

Source / Exemple : 


'Dans un Module

Public Nb As Integer
'Fonction pour recherche et selectionner un text dans un textbox
Public Function ChercheEtSelect(source As TextBox, Txt As String, Optional RespetMajMin As Boolean = True)
If Nb = 0 Then Nb = 1 'le premier caractére de la textbox
If Nb >= Len(source) Then Nb = 1  'Si on a parcouru tous le textbox alors on recommence

For i = Nb To Len(source) 'boucle

    If RespetMajMin = True Then
    
        If Mid(source, i, Len(Txt)) = Txt Then ' si on rencontre le text recherche
        'Pas de respet Min/maj
        source.SetFocus 'Prend le focus
        source.SelStart = i - 1 'debut de la selection
        source.SelLength = (Len(Txt)) 'longueur de la selection
        Nb = (i + Len(Txt)) 'position = i+longeur de txt
        Exit Function
        End If
    Else
    
        If Mid(LCase(source), i, Len(Txt)) = LCase(Txt) Then ' si on rencontre le text recherche
        source.SetFocus 'Prend le focus
        source.SelStart = i - 1 'debut de la selection
        source.SelLength = (Len(Txt)) 'longueur de la selection
        Nb = (i + Len(Txt)) 'position = i+longeur de txt
        Exit Function
        End If
    

End If
If i = Len(source) Then Nb = 1: MsgBox "Fin de la recherche"

Next i
End Function

'Pour utiliser la fonction

ChercheEtSelect Text1, "Vbfrance", False
'Cherche le texte Vbfrance dans Text1 sans Respect des Min/maj

ChercheEtSelect Text1, "Vbfrance", true
'Cherche le texte Vbfrance dans Text1 avec Respect des Min/maj

'Ps: a chaque lancement de la fonction, c'est le texte suivant qui est recherché, a la fin de la recheche dans text1 une msgbox s'affiche, et au prochain lancement, la recherche repart du début!!

Conclusion :


Voila, Jespére que ca va servir a quelqu'un aussi!!!! Laissez moi un commentaire ou une suggestion d'évolution de la fonction!!!!!!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (pcpunch)