[VBA] Problème récup texte d'une cellule dans un tableau

Bonjour,
J'essaye, sous Word 2003 SP2, de récupérer le texte d'une cellule d'un tableau avec

Code:

---

strMaChaîne = ActiveDocument.Tables(1).Rows(1).Range.Text

---

Le problème, c'est que j'ai systématiquement deux caractères inconnus (qui s'affichent avec un carré) à la fin de strMaChaîne.
Par exemple, si dans la première colonne de la première ligne de mon tableau, j'ai le mot Tableau, je me retrouve avec Tableauoo dans strMaChaîne (oo correspondant à deux carrés représentant deux caractères inconnus).
Comment faire pour simplement récupérer le contenu d'une cellule?
Merci,

Marc

bonjour
tu a essayé en enregistrant une macro pour voir se que sa te propose ?

Citation:

---

Le problème, c'est que j'ai systématiquement deux caractères inconnus (qui s'affichent avec un carré) à la fin de strMaChaîne.

---

Ce sont certainement des cr ou lf ou crlf que tu as en fin de ligne
Tu peux les écarter avec

Code:

---

1 2 3

if inst(LaLigne,chr(13)) <>0 then LaLigne = Left(LaLigne, inst(LaLigne,chr(13))-1) endif

---

Juste pour l'idée

A+

Edit
Je crois savoir que inst(LaLigne,vbcrlf) ne fonctionne pas :?:

Citation:

---

Envoyé par ouskel'n'or

Ce sont certainement des cr ou lf ou crlf que tu as en fin de ligne

---

Exact.

Pour info, le bon code est

Code:

---

If InStr(strMaChaîne, Chr(13)) <> 0 Then strMaChaîne = Left$(strMaChaîne, InStr(strMaChaîne, Chr(13)) - 1)

---

Merci beaucoup,

Marc

Pour info, les caractères de fin dans une cellule de tableau Word sont 0D et 07 en hexa

et ta syntaxe ne récupère pas une cellule mais la ligne entière
c'est le résultat de ton left qui fait que tu n'a que la première valeur

pour une cellule :

Code:

---

strMaChaîne = ActiveDocument.Tables(1).Cell(1, 1).Range.Text

---

Bonjour tous,
mais si la cellule contient un retour chariot avec du texte aprés
la syntaxe

Code:

---

If InStr(strMaChaîne, Chr(13)) <> 0 Then strMaChaîne = Left$(strMaChaîne, InStr(strMaChaîne, Chr(13)) - 1)

---

n'est pas valable

Code:

---

1 2	FinText = Chr(13) & Chr(7) If InStr(strMaChaîne, FinText) <> 0 Then strMaChaîne = Left$(strMaChaîne, InStr(strMaChaîne, FinText) - 1)

---

celle-ci est ok avec ou sans retour chariot

@+

Citation:

---

FinText = Chr(13) & Chr(7)

---

Je suppose que chr(7) est le zigouïgouï se trouvant en fin d'une ligne sans cr...
Effectivement, j'avais shunté la possibilité d'un saut de ligne dans la cellule.
Bien vu mais :wink: s'il y a deux cr ? alors il faut tester de nouveau... ? :wink:

A+

Donc, il faut une boucle dans laquelle on corrige strMaChaîne tant qu'elle contient Chr(13)...

Code:

---

1 2 3

do While instr(strMaChaîne , FinText )<>0 ... Loop

---

Hi hi !

Edit
J'ai corrigé (!)

Citation:

---

Bien vu mais s'il y a deux cr ? alors il faut tester de nouveau... ?

---

je crois bien !!!!
@+

chr(7) marque la fin du texte dans la cellule (c'est pratique, un éditeur hexa :wink: )

Après, tout dépend de ce que l'on veut faire du texte récupéré

On peut traiter ou pas les chr(13), les remplacer, les virer,... enfin ca dépend, quoi :!:

Quelque soit le nombre de retour chariot
utilisons InStrRev au lieu de InStr

Code:

---

If InStrRev(strMaChaîne, fintext) <> 0 Then strMaChaîne = Left$(strMaChaîne, InStr(strMaChaîne, fintext) - 1)

---

En plus cela fontionne !!!
@+