Supprimer des lignes selon le mot et les conditions ..

Guido

XLDnaute Accro
Bonjour le Forum

J'aimerais finalisé pour avoir un résultats final...

1° Dans la Page " test ":

De cette page j'aimerais garder que les lignes qui ont le

mot "Gardé" et supprimé les autre lignes .

2°Dans la page " PAGE ":

De cette page j'aimerais garder que les lignes qui ont le

meme chiffre dans la colonne x et z ,et

supprimé les lignes qui non pas le même contenu …???

Merci d'avancs

Guido
 

Pièces jointes

  • Comment supprimer les lignes non.xlsx
    280.6 KB · Affichages: 37

vgendron

XLDnaute Barbatruc
Bonjour
tu aurais du garder le fichier précédent avec les macros
maintenant. si la condition pour supprimer une ligne c'est lorsque les colonnes V W X Y et Z sont vides, il suffit de changer la condition dans le code (du coup. je ne vois pas bien à quoi servent tes colonnes AA AB, AC et AD.

VB:
Sub TestGarder()
Application.ScreenUpdating = False
With Sheets("Test")
   For i = .Range("AA" & .Rows.Count).End(xlUp).Row To 3 Step -1
       If .Range("V" & i) = "" And .Range("W" & i) = "" And .Range("X" & i) = "" And .Range("Y" & i) = "" And .Range("Z" & i) = "" Then
            .Range("AA" & i).EntireRow.Delete
       End If
   Next i
End With

'With Sheets("Page")
'   For i = .Range("AA" & .Rows.Count).End(xlUp).Row To 3 Step -1
'       If .Range("X" & i) <> .Range("Z" & i) Then
'            .Range("AA" & i).EntireRow.Delete
'       End If
'   Next i
'End With
Application.ScreenUpdating = True
End Sub
 

Discussions similaires