Discussion :

[jeantrucmuche]

bonjour
Dans mon tableau word, chaque cellule de tableau comporte plusieurs lignes (d"écriture pas de tableau)
exemple cellule i:
0
123
0

cellule j :
"espace"
"espace"
bien
"espace"

Comment rechercher le texte valable (différent de 0 ou espace) dans mes cellules?
et obtenir le numéro de ligne d'écriture dans la cellule: 123 est à la ligne 2, bien est à la ligne 3.
Merci beaucoup

[Heureux-oli]

Essaie ceci et modifie le pour qu'il colle à ce que tu veux

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Sub TailleTableau()
Dim intLigne As Integer
Dim intCol As Integer
Dim i As Integer
Dim j As Integer
Dim para As Paragraph
Dim a
i = 0
j = 0
 
intCol = ActiveDocument.Tables(1).Columns.Count
intLigne = ActiveDocument.Tables(1).Rows.Count
 
For i = 1 To (intCol - 1)
    For j = 1 To (intLigne - 1)
        ActiveDocument.Tables(1).Cell(j, i).Range.Select
 
 
            For Each para In Selection.Paragraphs
            a = Len(para.Range.Text)
            Debug.Print " a : ", a
 
 
                    If a > 2 Then MsgBox para.Range.Text
            Next para
            Debug.Print "Cell : "; j, ",", i, "Nbre Para : ", Selection.Paragraphs.Count,
 
    Next j
 
Next i
 
End Sub