Supprimer des lignes selon le mot et les conditions ..

vgendron

XLDnaute Barbatruc

• 13 Septembre 2017

• #2

Hello

avec ces deux macros à placer dans un module standard

VB:

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

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 13 Septembre 2017

• #3

Re

Merci vgendron ca fonctionne.

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

Merci

Amitiés

Guido

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 13 Septembre 2017

• #4

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é

 

Pièces jointes

• testWB.xlsm

  15.7 KB · Affichages: 36

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 13 Septembre 2017

• #5

hello all

oui il suffit de mixer les deux

VB:

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

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 13 Septembre 2017

• #6

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

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 14 Septembre 2017

• #7

Guido à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Capture bug 2em macro..PNG

  14.2 KB · Affichages: 48

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 14 Septembre 2017

• #8

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??

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 14 Septembre 2017

• #9

vgendron à dit:

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??

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 14 Septembre 2017

• #10

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 14 Septembre 2017

• #11

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

VB:

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

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 15 Septembre 2017

• #12

Bonjour le Forum
Bonjour vgendron

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

A plus Guido

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 15 Septembre 2017

• #13

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..

 

Pièces jointes

• Comment supprimer les lignes non (1).xlsm

  288.6 KB · Affichages: 38

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 15 Septembre 2017

• #14

Re

Merci vgendron pour le fichier,

il fonctionne super bien,

A bientôt pour d'autres demandes.

Amitiés

Guido

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 20 Septembre 2017

• #15

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

 

Pièces jointes

• Vider le contenu d'une celulle ,si 3 conditions.xlsx

  79.9 KB · Affichages: 29

Vote positif 0 Vote négatif