Discussion :

[thais781]

Bonjour,

Ci-dessous un petit bout de code qui ne marche pas mais va savoir pourquoi ????
le message Hello ne s'affiche pas ???

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub toto()
 
    test = "Salut"
    ActiveDocument.Tables(1).Cell(1, 1).Range.Text = test
    MyVal = ActiveDocument.Tables(1).Cell(1, 1).Range.Text
 
    If MyVal = test Then MsgBox "hello"
End Sub

Je n'ai peut être pas la bonne torche, donc n'hésitez pas à m’éclairer ...
PS : Le tout sous Word 2004
Thais

[QuestVba]

Bonjour,

Il récupère la valeur + un espace. Essaie avec ceci

Code :

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

1
2
3
4
5
6
7
Sub toto()
    test = "Salut"
    ActiveDocument.Tables(1).Cell(1, 1).Range.Text = test
    myval = ActiveDocument.Tables(1).Cell(1, 1).Range.Text
    valeur = Mid(myval, 1, Len(myval) - 2)   
    If valeur = test Then MsgBox "hello"
End Sub

[thais781]

Bonjour,

Effectivement, ça marche mieux, mais a quel moment c'est rajouté ?
Je ne suis pas certaine que c'est un espace, si je fais

Code :

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

1
2
 
valeur = Trim(myval)

Idem, ca marche pas .... encore un rajout de caractère bizarre et invisible ?

Thais

[Heureux-oli]

Salut,

C'est pas "rajouté", c'est présent dans le texte issu de la cellule, c'est la marque de fin de cellule.
Au même titre que le range d'un paragraphe comporte la marque de fin de paragraphe et pas simplement le texte qu'il contient.

Pour éviter de passer par une valeur intermédiaire, j'utilise un fonction de nettoyage qui renvoit le texte sans ces marques de fin de cellule.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub toto()
 
    test = "Salut"
    ActiveDocument.Tables(1).Cell(1, 1).Range.Text = test
 
 
    If NetText(ActiveDocument.Tables(1).Cell(1, 1).Range.Text) = test Then MsgBox "hello"
End Sub
 
Function NetText(stTemp As String)As String
NetText = Left(stTemp, Len(stTemp)-2)
End Function