Supression ligne tableau word

[Résolu]
Signaler
Messages postés
5
Date d'inscription
lundi 13 novembre 2006
Statut
Membre
Dernière intervention
16 novembre 2006
-
Messages postés
5
Date d'inscription
lundi 13 novembre 2006
Statut
Membre
Dernière intervention
16 novembre 2006
-
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:
<hr />
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
<hr />
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..

2 réponses

Messages postés
60
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
6 septembre 2012
2
Salut, essaye comme ça

Dim ligne As Integer
Dim valeur As Integer
   
ligne = 1
While ligne <= ActiveDocument.Tables(1).Rows.Count
        ActiveDocument.Tables(1).Cell(ligne, 2).Select
        valeur = Left(Selection.Tables(1).Cell(ligne, 2).Range.Text, 1)
        If valeur = 0 Then
            Selection.Cells.Delete shiftcells:=wdDeleteCellsEntireRow
        Else
            ligne = ligne + 1
        End If
DoEvents
Wend
Messages postés
5
Date d'inscription
lundi 13 novembre 2006
Statut
Membre
Dernière intervention
16 novembre 2006

Salut,

effectivement ta solution marche très bien....

merci beaucoup...

juste par curiosité, qu'est ce qui n'allait pas dans mon code????

a++