Bonjour,

je dispose d'un tableau créé dans un document word qui est rempli à partir d'excel via automation.

dans certains cas (car il n'y a pas de données dans excel), une ou plusieurs lignes du tableau word sont vides. Je cherche donc à supprimer les lignes correspondantes dans le tableau.

J'ai donc écrit une fonction qui me permet de tester les lignes d'un tableau et de me dire si l'une des cellules de la ligne est vide.

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
 
Sub SupprimerLignesTableau(NumTableau, NumLignes, DebutCol, FinCol)
 
Set Tableau = ActiveDocument.Tables(NumTableau)
 
'Récupération dans une variable du nombre de lignes
NbLignes = Tableau.Rows.Count
 
 
 
For I = NumLignes To NbLignes
    réponse = True
        For J = DebutCol To FinCol
                If Tableau.Cell(I, J).Range.Text = Chr(7) Or Tableau.Cell(I, J).Range.Text = " " & Chr(7) Then
                    réponse = False
                End If
 
        Next J
 
If réponse = False Then
    MsgBox ("La ligne est vide")
End If
 
Next I
 
End Sub
Ces cellules vides qui correspondent soit juste à un espacement et une marque de fin de cellule soit juste à une marque de fin de cellule ne sont pas reconnues par la fonction.

Comment faire pour que VBA reconnaisse le caractère de fin de cellule d'un fichier word ?