Discussion :

[Soycd]

Bonjour,

Je cherche à surligner une une chaîne passée en paramètre dans un texte.
Pour cela j'ai trouvé mes idées sur ce forum et mon code donne quelque chose comme ça :

Code :

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

1
2
3
    TexteCode.SetFocus
    TexteCode.SelStart = InStr(TexteCode.Value, Arguments(1))
    TexteCode.SelLength = Len(Arguments(1))

Avec Arguments(1) étant évidemment la chaîne recherchée.

Cela fonctionne ... presque ! En effet quelque soit le texte dans lequel je cherche cette occurence, le surlignage est toujours légèrement décalé de quelques caractères par rapport au mot recherché. Ce décalage varie de 1 à plusieurs caractères suivant le texte dans lequel je recherche.

Exemple :

Texte complet :
1) "Blanche neige et les sept nains"
2) "Il y a longtemps qu'il n'y avait pas eu tant de neige par ici"

Texte à rechercher :
"Neige"

Ma fonction me surligne (c'est un exemple fictif, je n'ai pas testé) :
1) "e nei"
2) "eige "


D'où vient ce décalage ? Et comment résoudre ce problème ? Peut-être est-ce un problème lié à mon autre problème posté tout à l'heure concernant l'interprétation des retours chariots dans mon Textbox ?

Merci

[Tonioyo]

Bonjour,

Le problème réside dans l'indexation de chaque caractère dans une chaine. InStr renvoie le nombre de caractère depuis le début de la chaine mais pas la position du premier caractère à trouver.

Un chaine de caractère commence avec l'indice 0 donc il faut retrancher 1.

Voici un petit exemple avec manipulation de chaine de caratères :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Sub manipulationDeChaines()
  Dim positionMotTrouve As Long
  Dim longueurDuMot As Long
  Dim longueurDeLaChaine As Long
  Dim partieDroite As String
 
 
  positionMotTrouve = InStr("Blanche neige et les sept nains", "neige") - 1
  longueurDuMot = Len("neige")
  longueurDeLaChaine = Len("Blanche neige et les sept nains")
  partieDroite = Right("Blanche neige et les sept nains", longueurDeLaChaine - positionMotTrouve)
  'Le résultat
  MsgBox ("résultat " & Left(partieDroite, longueurDuMot))
 
End Sub

Cordialement,

[Soycd]

Merci Tonyo. Je connaissais le coup du -1 mais le problème chez moi vient du fait que le surlignage n'est pas tout le temps décalé d'1 caractère, quelquefois c'est de 3 d'autre fois de 5 etc. : /

[Soycd]

En fait ça va plus loin que ça. C'est un problème de visualisation je pense, car quand j'ouvre ma table dans access et que je surligne un mot et que je le copie, quand je le colle autre part, ce n'est pas ce mot là qui est copié mais des caractères qui se retrouvent 5 ou 6 caractères avant.

[Tonioyo]

Effectivement, là il y a un soucis.

Je pense qu'un petit coup de vérification des processus en cours d'exécution et d'antivirus ne ferrai pas de mal.

Il faudrait aussi tester la mémoire. Access est sensible aux problèmes de mémoire.

Je ne pense pas que ce problème vienne d'Access même, mais plutôt du système d'exploitation.