Salut,
dans un tableau word, je cherche à l'aide d'une macro suprimer les lignes où dans la deuxième colonne est affiché le chiffre 0.
Je m'y suis pris de la manière suivante:
Sub supressionligne()
Dim lignes As Integer
Dim i As Integer
Dim valeur As Integer
lignes = ActiveDocument.Tables(1).Rows.Count
For i = 1 To lignes
ActiveDocument.Tables(1).Cell(i, 2).Select
valeur = Left(Selection.Tables(1).Cell(i, 2).Range.Text, 1)
If valeur = 0 Then
Selection.Cells.Delete shiftcells:=wdDeleteCellsEntireRow
End If
Next i
End Sub
Cette macro fonctionne assez bien sauf que lorsqu'il y a 2 lignes consécutives dans mon tableau word avec un 0, une seule est suprimée.... s'il y en a 3 consécutives 2 sont suprimées... si bien que je suis obligé d'exécuter 2 fois ma macro pour suprimer toutes les lignes.....
savez vous d'où ca peut venir et comment corriger ca ??
merci d'avance..