Probléme avec la suppression de ligne dans un tableau [Résolu]

[Tintou]

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.

[Tintou]

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.

[Heureux-oli]

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.

[Tintou]

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.

[Tintou]

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

[Tintou]

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

[kStar]

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