Discussion :

[CaraLePoke]

J'ai un tableau avec une colonne [GM]. Je cherche à retirer toutes les ligne qui ont un 0 dans cette colonne.

j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
LigneFin = Application.WorksheetFunction.CountA(Columns(2))
macol = NumCol("[GM]")
For I = 1 To LigneFin
    If Cells(I, macol).Value = "0" Then
        Cells(I, macol).EntireRow.Delete
        End If
Next

La fonction NumCol() est juste une fonction qui me donne le numéro de la colonne contenant le string passé en paramètre.

Mon problème c'est que mon script me laisse toujours un ligne qui a un 0 et si je relance ma macro elle la retire... je ne voit pas ce que j'ai fait de travers... -_-

[Daniel.C]

Bonjour,

Quand on supprime, il faut commencer par la dernière ligne pour terminer par la première :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For I = LigneFin To 1 Step -1

[CaraLePoke]

effectivement, je suis idiot -_-' j'aurais pu m'en rendre compte

Merci beaucoup Daniel C.

[Daniel.C]

Tu n'es pas le premier à te faire avoir (j'ai fait l'erreur plus d'une fois).