Probléme avec la suppression de ligne dans un tableau

Bonjour,

Avec ce que j'ai pu trouver sur le forum j'ai fait un petit code qui devrait me permettre de supprimer les lignes où les cellules sont vides.
Voilà ce que ça donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Set tableau = ActiveDocument.Bookmarks("tableau1")     Dim Numlignes As Variant Dim J As Integer Dim I As Integer Dim cellvide As Boolean   I = 16   Do Until I = 2 cellvide = False For J = 2 To 5 If ActiveDocument.Tables(1).Columns(J). _ Cells(I).Range.Text = Chr(13) & Chr(7) Then cellvide = True End If Next J If cellvide = True Then tableau.Rows(I).Delete End If I = I - 1 Loop

---

Le problème est qu'à l'exécution j'ai une erreur "5992" m'indiquant qu'il ne peut pas accéder aux colonnes car les largeurs de colonnes ne sont pas les mêmes.

Merci d'avance.

Si au lieu d'utiliser un bookmark, j'utilise le numéro du tableau ça marche. Peut-être que j'assigne mal le signet au tableau, comment fait-on ça dans les règles de l'art ?
Ou peut-on nommer un tableau ?
Merci d'avance pour vos réponses.

Essaie, de sélectionner tout le tableau, lorsque tu te trouve dans le tableau, tu as un petit symbole carré avec un flèche quatre directions.
Si tu cliques sur ce symbole et que tu assigne le signet, ça devrait le faire.

Malheureusement ça ne marche pas, il me dit : erreur 438, ce type d'objet ne permet pas d'effectuer cette propriété ou méthode. Et il me surligne l'endroit où il y a le mot collonnes.

Est-il possible de donner un nom à un tableau ?

Comme ça, ça marche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Set r = Doc.Bookmarks("tableau1").Range Set t = r.Tables(0)   Do Until I = 1 cellvide = False For J = 2 To 5 If t.Columns(J). _ Cells(I).Range.Text = Chr(13) & Chr(7) Then cellvide = True End If Next J If cellvide = True Then t.Rows(I).delete End If I = I - 1 Loop

---

Essayez de passer en mode de visualisation Normale. J'ai pu éviter ce message par ce chemin.