[VBA-W] énigme pour les tableaux [Résolu]

[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 :

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 :

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 :

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 :

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 ^^