0/5 (4 avis)
Vue 9 241 fois - Téléchargée 666 fois
'Dans général déclaration de la form Dim Found As String Private Sub cmdSearch_Click() 'Recherche si ce qui est écrit dans txtSearch existe dans txtTexte Found = InStr(txtTexte.Text, txtSearch.Text) 'Si le mot est trouvé If Found <> 0 Then 'Donne le focus au textbox text1 txtTexte.SetFocus 'Commence à selectionner txtTexte.SelStart = Found - 1 'Selectionne la longueur (len) du text dans txtsearch txtTexte.SelLength = Len(txtSearch) Else txtSearch.Text = "Aucun texte trouvé" End If End Sub Private Sub cmdReplace_Click() 'Recherche si ce qui est écrit dans txtSearch existe dans txtTexte Found = InStr(txtTexte.Text, txtSearch.Text) 'Si le mot est trouvé If Found <> 0 Then 'Donne le focus au textbox text1 txtTexte.SetFocus 'Commence à selectionner txtTexte.SelStart = Found - 1 'Selectionne la longueur (len) du text dans txtsearch txtTexte.SelLength = Len(txtSearch.Text) 'Le texte selectionné se fait remplacer par le texte de txtReplace txtTexte.SelText = txtReplace.Text Else txtSearch.Text = "Le mot recherché est introuvable" End If End Sub
7 juin 2003 à 18:04
Pour le reste, je n'ai pas regardé...
2 janv. 2003 à 15:57
petit détail aussi, pour que ca fonctionne dès qu'un caractere est tapé dans un textbox, il faux que ce code soit dans l'evenement "TextChanged" de ce textbox.
(scusez moi)
2 janv. 2003 à 15:53
Dim remplacer
remplacer = InStr(mht.Text, ".")
' la variable "remplacer" est égale au nombre de fois que "." est présent dans le texte du textbox "mht"
If remplacer <> 0 Then ' si le nombre de fois que "." est présent dans mht.text, alors ...
mht.Focus() ' le focus est sur mht
mht.SelectionStart = remplacer - 1 ' je selectionne a partir du dernier caractere se trouvant juste avant le 1er qui "." qui a été trouvé
mht.SelectionLength = Len(",") ' la longueur du texte séléctionné est egale a la longueure du / des caractere a remplacer
mht.SelectedText = "," ' le texte selectionné (c'est a dire ".") est remplacé par ","
End If
Désolé si je suis pas très compréhensible ;) encore merci a l'auteur de ce sujet !
8 mai 2002 à 13:52
Si qqun le sait n'hésitez pas à m'écrire!!!
g.miserez@net2000.ch
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.