Bonjour
j'ai besoin de supprimer une ligne dont la première cellule contient la lettre Z celles(i,1)="Z"
j'arrive pas a le faire, ma procédure plante car la première ligne de mon tableau est fusionnée.
voici le code de ma macro si vous pouvez me le corriger merci
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 Sub MacroSup( j = 1 While j <= ActiveDocument.Tables.Count i = 1 While i <= ActiveDocument.Tables(j).Rows.Count If ActiveDocument.Tables(j).Cell(i, 1).Range.Text = "Z" Then ActiveDocument.Tables(j).Rows.Delete End If i = i + 1 Wend j = j + 1 Wend End Sub
Partager