Microsoft 365 Supprimer ligne dés qu'il y a un mot dans la colonne

Staple1600

XLDnaute Barbatruc

• 1 Mars 2020

• #2

Re

Utilises le filtre avancé (avec un critère formulé)
(tu verras c'est indolore)

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 1 Mars 2020

• #3

Staple1600 à dit:

Re

Utilises le filtre avancé (avec un critère formulé)
(tu verras c'est indolore)

Cliquez pour agrandir...

Je l'ai fait en enregistrant macro en même temps mais j'ai des différences

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 1 Mars 2020

• #4

Sub SupprimerLignes()

Dim i As Long
Sheets("Synthèse").Select
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 6).End(xlUp).Row To 1 Step -1 ' 4 pour la colonne "D"
If Cells(i, 6) = "DIL A" Or Cells(i, 6) = "DIL C" Or Cells(i, 6) = "DIL G" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True

End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Mars 2020

• #5

Re

Tu as fait un truc de ce genre là ?

VB:

Sub NoPainNoGain()
[E2].FormulaR1C1 = "=MATCH(RC[-2],{""DO"";""HS"";""FV""},0)>0"
[C1:C24].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:E2"), Unique:=False
End Sub

Car j'avais précisé: (avec un critère formulé)

EDITION: Je viens de voir ton message.
Et donc de me rendre compte que tu n'avais pas utilisé le filtre élaboré

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 1 Mars 2020

• #6

Staple1600 à dit:

Re

Tu as fait un truc de ce genre là ?

VB:

Sub NoPainNoGain()
[E2].FormulaR1C1 = "=MATCH(RC[-2],{""DO"";""HS"";""FV""},0)>0"
[C1:C24].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:E2"), Unique:=False
End Sub

Car j'avais précisé: (avec un critère formulé)

EDITION: Je viens de voir ton message.
Et donc de me rendre compte que tu n'avais pas utilisé le filtre élaboré

Cliquez pour agrandir...

non sans critère formulé, il faut vraiment lire au mot près

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Mars 2020

• #7

Re

Bah, oui, il faut lire tous les mots.
Sinon pourquoi les écrire ?

En tout cas, mon filtre avancé fonctionne sur mon fichier de test
Reste ensuite à supprimer les lignes filtrées

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 1 Mars 2020

• #8

Sauf que ca se complique apres car une fois la donne D ou F est filtré il faut supprimer les lignes aussi en doublons c est à dire même code dans la colonne B car pour les doublons les colonnes DEF ne sont pas renseignées car les informations sont regroupées dans la colonne C d' où le renommage.

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 1 Mars 2020

• #9

j ai essayé le filtre formulé
ActiveSheet.Range("$A$1:$X$60").AutoFilter Field:=4, Criteria1:= _
"=*""DIL A"", ""SIL B"" ""A""*", Operator:=xlAnd
Application.Run "GRv65.xlsm!Clignote"
Application.Run "GRv65.xlsm!Clignote"
ActiveSheet.Range("$A$1:$X$60").AutoFilter Field:=4, Criteria1:= _
"=*""DIL A"", ""SIL B"" ""A""*", Operator:=xlAnd
Application.Run "GRv65.xlsm!Clignote"
Application.Run "GRv65.xlsm!Clignote"
Range("C68").Select

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mars 2020

• #10

Re

Oui, il faut lire tous les mots
Dans le message et dans le code VBA
Je parle de Filtre élaboré (pas de filtre automatique)
et de critère formulé (c'est à dire avec une formule)
Testes cet exemple sur une feuille vierge et tu comprendras

VB:

Sub CREER_TEST()
t = Array("=ROW()*COLUMN()", "=TODAY()+ROW()")
tt = Array(1, "DO", 2, "HS", 3, "FV")
[A1] = "ITEM_1": [A1].AutoFill Destination:=Range("A1:D1"), Type:=0
[D2:D7] = Application.Transpose(tt)
[D2:D7].AutoFill Destination:=Range("D2:D35"), Type:=0
[A2:B35].Formula = t
End Sub
Sub Suppression_Avec_Filtre()
Dim pf As Range
[F2].Formula = "=MATCH(D2,{""DO"";""HS"";""FV""},0)>0"
[D1:D35].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("F1:F2"), Unique:=False
Set pf = [_FilterDataBase]
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12).EntireRow.Delete
ActiveSheet.ShowAllData
End Sub

1) Tu lances d'abord CREER_TEST
puis la seconde macro.

NB: La formule pour le critère sera en F2

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2020

• #11

Bonjour @Moreno076, @Staple1600 ,

Une autre proposition qui ne fonctionne que si la base Synthèse ne comporte que des valeurs.

 

Pièces jointes

• Moreno076- suppr lignes- v1.xlsm

  316.6 KB · Affichages: 7

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2020

• #12

Re,

Avec suppression des doublons qui resteraient.

 

Pièces jointes

• Moreno076- suppr lignes- v2.xlsm

  559.5 KB · Affichages: 13

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 2 Mars 2020

• #13

Merci

 

Vote positif 0 Vote négatif