Supprimer des lignes selon le mot et les conditions ..

[Guido]

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

 

[vgendron]

Hello

avec ces deux macros à placer dans un module standard

Sub TestGarder()
With Sheets("Test")
    For i = .Range("AA" & .Rows.Count).End(xlUp).Row To 3 Step -1
        If .Range("AA" & i) <> "Gardé" Then
            .Range("AA" & i).EntireRow.Delete
        End If
    Next i
End With

End Sub


Sub PageGarder()
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
End Sub

 

[Guido]

Re

Merci vgendron ca fonctionne.

Penses tu que l'on peux adapter les deux macros en une seule ???ou pas...???

Merci

Amitiés

Guido

 

[herve62]

Bonjour
Une idée parmi ..... x !
Macro dans ThisWorkbook , comme ça tu laisses tes 2 sub dans le module
J'ai mis ACtivate donc à chaque changement de feuille ta macro s'execute
tu peux changer le mode à ton gré

 

[vgendron]

hello all

oui il suffit de mixer les deux

Sub TestGarder()
With Sheets("Test")
   For i = .Range("AA" & .Rows.Count).End(xlUp).Row To 3 Step -1
       If .Range("AA" & i) <> "Gardé" 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
End Sub

 

[Guido]

Re

Un peu occupé pour venir sur le site...

Donc j'ai tester avec un bouton pour les deux macros est cela fonctionne ,

Merci a Vous deux

A bientot

Guido

 

[Guido]

Re

Un peu occupé pour venir sur le site...

Donc j'ai tester avec un bouton pour les deux macros est cela fonctionne ,

Merci a Vous deux

A bientot

Guido

Re

Après avoir insérer les deux macros dans le fichier principale

la première est Ok

la deuxième bug

Voir capture d’écran..

Merci

Guido

 

[vgendron]

Hello
Je vois pas pourquoi la seconde plante et pas la première. alors qu'elles sont strictement identique à la feuille près..
aurais tu changé le nom de la feuille??

 

[Guido]

Hello
Je vois pas pourquoi la seconde plante et pas la première. alors qu'elles sont strictement identique à la feuille près..
aurais tu changé le nom de la feuille??

Re

Merci pour ta réponse vgendron ,non je n'ai pas changé le nom des onglets,

je me permet de te demander si tu peux adapter les deux macros en une sur le premier

fichier posté,Merci d’avance

Amitiés

Guido

 

[vgendron]

tu n'as apparemment pas vu mon post #5 :-D

 

[vgendron]

et re nouvelle modif pour éviter de voir les lignes disparaitre les unes après les autres
donc plus rapide

Sub TestGarder()
Application.ScreenUpdating = False
With Sheets("Test")
   For i = .Range("AA" & .Rows.Count).End(xlUp).Row To 3 Step -1
       If .Range("AA" & i) <> "Gardé" 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]

Bonjour le Forum
Bonjour vgendron

Ben ,je ne comprend pas c'est toujours en rouge chez moi...???

A plus Guido

 

[vgendron]

Re,

Voici ci joint ton fichier origine (sauvegardé en xlsm pour les macro)
un bouton "GARDER3 dans la feuille Test
je viens de tester. ca fonctionne parfaitement..

 

[Guido]

Re

Merci vgendron pour le fichier,

il fonctionne super bien,

A bientôt pour d'autres demandes.

Amitiés

Guido

 

[Guido]

Bonjour le Forum

Me revoici avec une nouvelle demande

,mais cette fois avec plusieurs condition de suppressions des

lignes et max sur une plage de 36 lignes

Dans la colonne AA le mot Gardé est mis manuellement

Dans les colonnes AB et AC j'ai mis aussi manuellement

Donc si les cellules des colonne V.W.X.Y.Z sont vide

la ligne ou les lignes seront supprimée.

Merci d'avance

Guido