Discussion :

[tim69000]

Bonjour, je cherche des caracteres avec la fonction InStr et je veux savoir comment faire pour que si je les trouve, je les supprime.

Merci

[Megaxel]

Salut.
Dans une version "suffisante", tu as la fonction REPLACE. Et tu n'as qu'à lui dire de remplacer ton caractère par "" (rien!)

[tim69000]

J'ai hésité a prevenir que j'avais deja fait ca mais en fait, le probleme c'est qu'aprés, j'ai trop d'espace pour rien, alors je voudrait vraiment y supprimer

[Megaxel]

Mais si tu mets bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

""

et pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

" "

tu n'as pas d'espace!

[ouskel'n'or]

Si tu indiquais si le texte à remplacer se trouve dans Word, Excel, si ton code est VB, VBA, s'il s'agit d'un mot, d'une phrase, d'une plage, si la plage de recherche est importante, si le nombre de remplacements est important, on pourrait être plus efficace pour te répondre à coup sûr...

Bref, précise !

A+

[tim69000]

Mon texte est dans une listview, et plus precisement dans le tag d'une listliew.
C'est en fait, qd je clic, je veux qu'un texte se mette dans le tag et si je reclic, qu'il s'enleve.
J'ai pour le moment ceci mais ca ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CheckPhoto_Click()
    If CheckPhoto.Value = 1 Then
        If InStr(ListeAction.SelectedItem.Tag, "PH") Then
        Else
            ListeAction.SelectedItem.Tag = ListeAction.SelectedItem.Tag & "PH"
        End If
    End If
    If CheckPhoto.Value = 0 Then
            Replace ListeAction.SelectedItem.Tag, "PH", ""
    End If
End Sub

[Bigyork]

Et ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    If CheckPhoto.Value = 1 Then
        If InStr(ListeAction.SelectedItem.Tag, "PH") = 0 Then
        ListeAction.SelectedItem.Tag = ListeAction.SelectedItem.Tag & "PH"
        End If
    Else
        Replace ListeAction.SelectedItem.Tag, "PH", ""
    End If

Ca marche ?

[pc75]

Bonjour,

La finction InStr() renvoie la position de l'occurrence trouvée. Il faut donc que tu testes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If InStr(ListeAction.SelectedItem.Tag, "PH") > 0 Then

[tim69000]

Et ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    If CheckPhoto.Value = 1 Then
        If InStr(ListeAction.SelectedItem.Tag, "PH") = 0 Then
        ListeAction.SelectedItem.Tag = ListeAction.SelectedItem.Tag & "PH"
        End If
    Else
        Replace ListeAction.SelectedItem.Tag, "PH", ""
    End If

Ca marche ?

Non ca ne marche pas, c'est pareil

[tim69000]

Bonjour,

La finction InStr() renvoie la position de l'occurrence trouvée. Il faut donc que tu testes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If InStr(ListeAction.SelectedItem.Tag, "PH") > 0 Then

Même avec cela, ca ne marche pas

[tim69000]

en fait, inutile de se casser la tete
un simple Listview.selectItem.tag = Replace(Listview.selectItem.tag, "PH", "" ) suffit


Mercia tous pour votre rapidité de reponse

[Bigyork]

ok désolé allé un peu vite

avec ça moi ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
If CheckPhoto.Value = 1 Then
        If InStr(ListeAction.SelectedItem.Tag, "PH") = 0 Then
           ListeAction.SelectedItem.Tag = ListeAction.SelectedItem.Tag & "PH"
        End If
Else
        ListeAction.SelectedItem.Tag = Replace(ListeAction.SelectedItem.Tag, "PH", "")
End If