Supprimer des lignes selon le mot et les conditions ..

  • Initiateur de la discussion Initiateur de la discussion Guido
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour