Discussion :

[tonnick]

Bonjour,
La synthaxe pour remplir la première case à la première ligne, à la première colonne du premire tableau march très bien:

Code :

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

ActiveDocument.Tables(1).Columns(1).Cells(1).Range.Text = essai

Mais dès que je veut faire un test et non une action, ça ne marche jamais:

Code :

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

1
2
3
If ActiveDocument.Tables(1).Columns(1).Cells(1).Range.Text = "essai" Then
ActiveDocument.Tables(1).Columns(2).Cells(2).Range.Text = "marche"
End If

Pour résumé, j'arrive à écrire quelquechose dans un tableau, mais pas à tester si ce quelquechose est écrit!!!

[Heureux-oli]

Code :

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

1
2
 
ActiveDocument.Tables(1).Columns(1).Cells(1).Range.text = "essai"

C'est un peu normal, parce qu'avec une cellule, tu reçois aussi un Cr & Lf à la fin de ton texte.

Donc, il faut éliminer ces caractères.
La solution est de compter le nombre de caractère de ta sélection et ensuite ne prendre que les caractères du début.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub testTable()
Dim l As Integer
 
ActiveDocument.Tables(1).Cell(1, 1).Range.Select
Debug.Print Selection
 
l = Len(Selection)
Debug.Print l
 
If UCase(Trim(Left(Selection, (l - 2)))) = "ESSAI" Then MsgBox "OK"
 
End Sub

l pour la longeur du texte
UCase pour éliminer les éventuelles différences de casse
Trim pour éliminer les espaces
Left pour ne prendre que les premiers caractères.

[tonnick]

Merci beaucoup, ça marche nikel

[ippo_master]

Cool, je viens d'apprendre quels étaient ces 2 caractères non reconnus à la fin d'une sélection issue d'un tableau
Parce qu'en passant par la message box, il ne t'affiche que des ptits carrés bizarres ^^