Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

Guido

XLDnaute Accro
Re


je ne vois pas bien à quoi servent tes colonnes AA AB, AC et AD. ???

Re

c'est juste pour ma demande..Mais ces colonnes seront vide dans le fichier originale..


Salut vgendron

Je vais adapté et je te donnerais le retour...

Merci

Guido
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…