urgent:suppression de lignes

[stephane]

Bonjour à tous,

je voudrais supprimer toute les lignes repondant à un critere (toute les lignes qui contiennet le mot FAUX)
Quelqu'un peut il m'aider

sinon j'ai aussi la solution se supprimer une ligne sur 2 (lignes impaires) mais la encore je ne sais pas comment faire !!

merci de m'aider

 

[Francis]

Bonjour, une solution:

Supprimer les lignes dont la cellule sélectionnée est FAUX. Avant de lancer cette procédure, il faut sélectionner la première cellule de la colonne ou se trouve les "FAUX"

Sub SupprimeLigne()
While Compteur < ActiveCell.SpecialCells(xlLastCell).Row
If Selection = FAUX Then
Selection.EntireRow.Delete
Else: Selection.Offset(1, 0).Select
End If
Compteur = Compteur + 1
Wend
End Sub

Cordialement
Francis

 

[STéphane]

bonjour

tu trouveras une autre solution (il y en a beaucoup) dans ma page <http://xlbysteph.free.fr/aideinformatique/actioncellule.htm> pour sélectionner les cellules contenant un mot précis, puis utiliser une instruction comme celle employée par françis Selection.EntireRow.Delete


bye
stephane


ps : pour retrouver le code dont je parle, cherche le mot contenant