[RESOLU] Comment reconnaître un apostrophe???

Comment reconnaître un apostrophe??? [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 16-06-2006 à 11:17:27    

Bonjour,
Toujours avec mon problème de parcours d'un texte (ms ça avance peu à peu...). Cette fois ci je voudrais savoir si il y a un moyen de dire "si caractère en cours =  '  alors avancer".
En fait si je fais If Selection.text =" ' " Then bla bla bla le teste ne marche pas ça me retourne faux dc il faudrait que je connaisse soit le code de ce caractère, soit faire un test du genre If Selection.text <> lettre ms il me faudrait savoir ce qui me permettrait de trouver ttes les lettres...Capisci??
 
Merci


Message édité par acorsa le 16-06-2006 à 14:43:37
Reply

Marsh Posté le 16-06-2006 à 11:17:27   

Reply

Marsh Posté le 16-06-2006 à 11:23:00    

Aide en ligne VBA ASCII jeu de caractères 0 à 127 (39) ?

Reply

Marsh Posté le 16-06-2006 à 11:27:56    

merci!

Reply

Marsh Posté le 16-06-2006 à 11:39:13    

En fait j'ai bien essayé ms mon aide en ligne refuse de m'afficher la page (et uniquement cette page!!(grrrrrrrrrr)) quand je clique sur le lien "jeu de caractère".
A part ça tout va bien!

Reply

Marsh Posté le 16-06-2006 à 12:09:20    

Rassurez -moi...Pour comparer un caractère avec un code c'est bien: Selection.Text > Chr(0)?
 (si bien sur je sélectionne le caractère en question)
Parce-que la j'y arrive pas du tout, il m'affiche le caractère et je compare avec une quote ou un apostrophe et ça marche pas!!!
Vous ne connaissez pas un autre test que je peux faire? Ou un truc du genre: MsgBox Selection.codeASCII????
Un truc simple quoi!!

Reply

Marsh Posté le 16-06-2006 à 12:43:11    


Sub Test()
Dim i As Long, Taille As Long
Dim str As String
 
    ActiveDocument.Select
    str = Selection
    Taille = Len(str)
     
    For i = 1 To Taille
        If Selection.Characters(i) = Chr(146) Then
            Debug.Print i, Selection.Characters(i)
        End If
    Next
End Sub


Message édité par kiki29 le 16-06-2006 à 13:31:44
Reply

Marsh Posté le 16-06-2006 à 14:07:23    

Merci tu m'as sauvé la vie!!! Je testais avec Chr(46) donc ça ne marchait pas.
@+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed