[Resolu] Echappement des caracteres speciaux

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Resolu] Echappement des caracteres speciaux

guendalf

Bonjour,
Je cherche commment echapper les caracteres speciaux lors d'une recherche avec la methode Find.
Pourquoi ? Car j'ai une liste de noms et certains contiennent des '*' or pour excel, il s'agit d'un caractere special qui signifie n'importe quoi.

Exemple:
la case A1 contient "thomas lar" et la case A2 contient "thomas*"
Et je cherche a recuperer la ligne ou se situe "thomas*" ...

Or avec un Range("A1:A2" ).Find(what:="thomas*" ), il va me renvoyer la cellule A1 au lieu de A2 car il va interpretrer ma demande comme etant tout ce qui commence par "thomas".

Je pensais qu'il existait une sorte de caratere d'echappement (comment sur d'autre system..), mais je n'ai pas trouve.

Donc si quelqu'un a une solution, je suis preneur

Message édité par guendalf le 18-08-2005 à 11:05:31

---------------
Guendalf

Publicité

watashi

La démotivation : JAMAIS !

Salut guendalf,

j'ai eu un cas à peu près pareil. Ma sollution :

Code :

Sub cherc()
Dim a, b
a = 1
For a = 1 To 10
If Cells(a, 1).Text = "thomas*" Then b = a: GoTo 1
Next a
1 If b = "" Then MsgBox ("aucune occurrence" ) Else MsgBox ("ligne : " & b)
End Sub

C'est fastidieux, c'est pas find qui est utilisé mais jusqu'à présent j'ai pas eu la chance de tomber sur une autre sollution.

Je suis aussi prenneuse si un mieux existe

guendalf

watashi a écrit :

Salut guendalf,

j'ai eu un cas à peu près pareil. Ma sollution :

Code :

Sub cherc()
Dim a, b
a = 1
For a = 1 To 10
If Cells(a, 1).Text = "thomas*" Then b = a: GoTo 1
Next a
1 If b = "" Then MsgBox ("aucune occurrence" ) Else MsgBox ("ligne : " & b)
End Sub

C'est fastidieux, c'est pas find qui est utilisé mais jusqu'à présent j'ai pas eu la chance de tomber sur une autre sollution.

Je suis aussi prenneuse si un mieux existe

Ah! Goto!!!! Beurk!!!!!!!!!!! lol

Mais tu m'as donne une idee
Il suffit d'utiliser Find toujours, mais en verifiant si la case qu'il nous retourne contient le bon texte. Sinon on continue la recherche.

Voici un exemple qui permet de trouver la case contenant "dog*" dans la liste de mot "A1:A10"

Code :

Public Sub RechercheExacte()
Dim c As Range
Dim search_word As String
Dim next_line As Integer
search_word = "dog*"
With ActiveWorkbook.Worksheets(1)
Set c = .Range("A1:A10" ).Find(what:=search_word, LookIn:=xlValues)
If Not c Is Nothing Then
If c.Value <> search_word Then
Do
next_line = c.Row + 1
Set c = .Range("A" & next_line & ":A10" ).Find(what:=search_word, LookIn:=xlValues)
Loop While Not c Is Nothing And next_line <= 10 And c.Value <> search_word
End If
If c.Value = search_word Then
MsgBox "Found in " & c.Address, vbInformation
Else
MsgBox "Not found.", vbInformation
End If
Else
MsgBox "Not found", vbInformation
End If
End With
End Sub

P.S: J'aurai pu utiliser FindNext dans le bout de code precedent, mais j'ai remarque que le resultat etait incorrect avec FindNext si j'avais un appel de fonction entre le premier Find et le FindNext... et je n'ai pas encore compris pk ce n'etait pas possible (d'ou mon vieux hack pourri pour rechercher l'element suivant en reduisant la taille du Range). Mais je vous accorde qu'ici, n'ayant aucun appel de fonction, FindNext aurait tres bien fonctionne. (Au moins j'ai pu poser ma question sur FindNext qui me tarode depuis un ptit bout de tps maintenant...)

Bonne soiree a ceux qui ont pris le tps de tout lire

---------------
Guendalf

watashi

La démotivation : JAMAIS !

[quotemsg=1178268,3,279265]
Ah! Goto!!!! Beurk!!!!!!!!!!! lol
[quotemsg]

lollllll c'est vrai que c'est pas beau

guendalf

WaTaShi> Goto ne devrait jamais etre utilise, c'est quasiment impossible de maintenir un code contenant des sauts un peu partout. On peut (quasiment) tout le temps s'en passer a moins de faire de l'asm.

bon je viens de voir que le code que j'ai mis precedemment, sans utiliser findnext est faux (il ne marche pas dans le cas ou l'on cherche un "thomas*", qu'il y a bien des "thomas" dans le texte mais pas de "thomas*" )

Donc voici quelque chose qui marche (et tant pis pour mon soucis avec findnext, qui de toute facon est hors sujet ici)

Code :

' permet de rechercher le contenu exacte d'une chaine,
' en traitant les caracteres speciaux au meme titre que les autres
Public Sub RechercheExacte()
Dim c As Range
Dim search_word As String, firstAddress As String
search_word = "thomas*"
With ActiveWorkbook.Worksheets(1).Range("A1:A12" )
Set c = .Find(what:=search_word, LookIn:=xlValues)
If Not c Is Nothing Then
If c.Value <> search_word Then
firstAddress = c.Address
Do
Set c = .FindNext(c)
Loop While firstAddress <> c.Address And c.Value <> search_word
End If
If c.Value = search_word Then
MsgBox "Found in " & c.Address
Else
MsgBox "Not found"
End If
Else
MsgBox "Not found"
End If
End With
End Sub

Message édité par guendalf le 18-08-2005 à 11:26:16

---------------
Guendalf

watashi

La démotivation : JAMAIS !

Pour les goto c'est vrai que c'est parfois un peu risqué mais je me suis pas encore penche sur les autres boucles que for... et encore même pas les for each.
Va falloir que je m'y mette en voyant tes codes c'est évident. Va falloir que je me penche sur la synthaxe
merci pour le conseil

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Resolu] Echappement des caracteres speciaux

Sujets relatifs
[VB.NET] [ Resolu ]COnvertir Dataview en string	Comment récuperer $_GET['machin'] en $machin ? [résolu]
[résolu]probleme avec $_FILES lors d'un upload	[résolu]Overflow et firefox
[resolu][html]input type=file different entre ie et firefox !!	probleme avec sort [resolu]
[résolu]post ne s'affiche qu'apres en avoir posté un autre...	[Résolu] Séparateur de champ format CSV
Problème de caractères accentués via PHP	[résolu]Probleme PHP/Mysql bizzarre
Plus de sujets relatifs à : [Resolu] Echappement des caracteres speciaux

Page générée en 0.065 secondes