Discussion :

[lunab54]

Bonjour,

pas trés dégourdi en VBA voilà mon code pour explorer la 2ème cellule d'un tableau qui contient "Annuel" ci ca contient ce texte ca doit renvoyer un MsgBox

Code :

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

1
2
3
4
5
6
 
Sub test()
Set myTable = ActiveDocument.Tables(1)
MyValue = InputBox("test", "test", myTable.Cell(2, 1).Range.Text)
If myTable.Cell(2, 1).Range.Text = "Annuel" Then MsgBox "Ca Marche !!"
end sub

en fait j'essaye de débugger mon code pour avoir le msgbox "Ca Marche !!"

mais ca ne marche pas

qd je remonte dans le InputBox le texte de la cellule j'ai un petit carré à la fin de la chaîne qui donc ne permet pas d'avoir l'égalité... d'où pas de message box

Attention ! y a pas de retour ligne à la fin du texte

merci de vos commentaires

Luna

[Heureux-oli]

C'est courrant !

Il faut mesurer le texte et prendre la partie gauche.

Code :

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

1
2
 
If Left(myTable.Cell(2, 1).Range.Text,(Len(myTable.Cell(2, 1).Range.Text)-2))  = "Annuel" Then MsgBox "Ca Marche !!"

Essaie de cette manière, mais une astuce en plus

Code :

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

If UCase(Left(myTable.Cell(2, 1).Range.Text,(Len(myTable.Cell(2, 1).Range.Text)-2)))  = "ANNUEL" Then MsgBox "Ca Marche !!"

On peut aussi ustliser un CleanString avec un Trim.

Mais essaie ce que j'ai donné si ça ne convient pas, on cherchera une autre solution.

[lunab54]

Ca marche !!

mais c'est incroyable que VB ne renvoit pas bêtement que le texte

merci en tout cas

[Sepia]

Salut,

En fait, la stratégie qu'utilise Word est la suivante : il stocke un grand nombre d'informations dans des éléments non visibles (de façon basique), comme les informations des styles (de paragraphes) qui sont stockées dans les marques de fin de paragraphe... Pour les afficher, il faut utiliser le menu "Outils-Options - Onglet Affichage" et dans ce panneau, il faut cocher "Tous" dans la zone "Marques de format" (cf. image dans le fichier joint). Dans le cas d'une tableau, il y a des marques dans chaque cellule, à chaque ligne, c'est un caractère qui se présente comme un cercle avec 4 petits traits situés sur les 4 angles (du carré qui entoure le cercle), un petit soleil quoi . C'est pourquoi parfois dans Word, si tu as une différence de comportement avec la fonction "Coller" si tu sélectionnes la cellule ou son contenu, ce qui, si tu n'affiches pas ces caractères est difficile à voir.