des capotes au chocolat

pete, tu vas bien ?

encore tes problemes de VB a ce que je vois . ...

lu hel

Coolman, non, introuvable en France

Hel, je t´ai envoyé qque sinfos sur l´effet de serre

ca peut se trouver ou ?

Oui, Pete, c´est possible avec seltext et sellength

merci bughen je les lis en fait all

Coolman, ça n´existe plus maintenant

Pete, un exemple:
Private Sub Form_Click ( )
´ Déclare les variables.
Dim Search, Where
´ Obtient la chaîne à rechercher de l´utilisateur.
Search = InputBox("Tapez le texte à rechercher :")
´ Cherche la chaîne dans le texte.
Where = InStr(Text1.Text, Search)
If Where Then ´ S´il la trouve,
Text1.SelStart = Where - 1 ´ définit le début de la
´ sélection
Text1.SelLength = Len(Search) ´ et définit sa longueur.

Else
MsgBox " Chaîne introuvable." ´ Informe l´utilisateur.
End If
End Sub

hey Oldbugenhagen c´est très très scientifique ton texte et je ne comprends pas tout heu quand t´aura fini les énigmes si tu veut te connecté!

J´ai fait fuir tout le monde?

Hel, si c´est possible oui, mais là il faut attendre pour savoir si Pete arrive au bout de ce qu´il veut obtenir, je ne peux pas basculer sur msn entre temps, je bosse aussi encore un peu.

Ca marche à peu près la première fois, mais une fois que le texte change ça le fait plus.

Pete, tu veux un véritable exemple sous forme de mini projet?

Et je dois mettre ça dans Gotfocus pour que ça le fasse au moment d´appuyer sur tabulation ?

Pete, je viens de t´envoyer un projet où ça fonctionne exactement comme tu l´as demandé,
projet: SelStart_SelLength.vbp
form: SelStart_SelLength.frm

Avec toi tout paraît si simple
Merci encore Jop

Le forum sert aussi à ça, c´est normal de se rendre service, tu m´as aussi dépanné pour la lance des braves.

C´est génial ça marche en plus
Bon j´ai plein de zones à modifier comme ça.
Au fait j´utilise GotFocus moi et pas LostFocus.

Puis je vais mettre ça dans les méthodes Click aussi, ça coûte rien.