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 :
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.
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 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
Merci d'avance.
Partager