XL 2010 Code VBA filtrage

vgendron

XLDnaute Barbatruc

• 13 Avril 2018

• #2

Hello
avec l'enregistreur de macro, ca donne ceci

VB:

Sub Macro1()
'
' Macro1 Macro

    ActiveSheet.ListObjects("Bdd_Extraction_redmine_29").Range.AutoFilter Field:=3, Criteria1:="Résolu"
    fin = ActiveSheet.ListObjects("Bdd_Extraction_redmine_29").Range.Rows.Count
    Rows("2:" & fin).Select
    Selection.Delete Shift:=xlUp
   
    ActiveSheet.ListObjects("Bdd_Extraction_redmine_29").Range.AutoFilter Field:=3
End Sub

Cette condition que je ne comprend pas, n'est pas prise en compte
Si Statut N°Semaine = N° Semaine fermé ne pas supprimer.

 

Vote positif 0 Vote négatif

S

solide84

Guest

• 13 Avril 2018

• #3

bonjour hello

je te joins le résultat en manuel .

Effectivement je me suis sans doute mal exprimer . Je garde les tickets résolue de la même semaine.

Si N°Semaine = N° Semaine fermé on supprime pas.

 

Pièces jointes

• Copie de excel.xlsx

  27.8 KB · Affichages: 34

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Avril 2018

• #4

Bonjour solide, vgendron 🙂

A mettre dans le module de la feuille.

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig&, i&

derlig = Cells(Rows.Count, 1).End(xlUp).Row

For i = derlig To 2 Step -1
If Cells(i, 3).Value = "Résolu" And Cells(i, 7).Value <> Cells(i, 2) Then Rows(i).Delete
Next i
Cancel = True
End Sub

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 13 Avril 2018

• #5

Autre essai avec ceci.. surement plus long

VB:

Sub Macro1()

Application.ScreenUpdating = False
fin = ActiveSheet.UsedRange.Rows.Count
For i = fin To 2 Step -1
    If (Range("B" & i) <> Range("G" & i)) And Range("C" & i) = "Résolu" Then Rows(i).Delete Shift:=xlUp
Next i
   
Application.ScreenUpdating = True

End Sub

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 13 Avril 2018

• #6

Hello Lone-Wolf :-D

 

Vote positif 0 Vote négatif

S

solide84

Guest

• 13 Avril 2018

• #7

Bonjour

Merci pour votre retour. Peux tu m'expliquer comment faire pour le mettre dans le module de la feuille.

Je suis toujours passer par le mode macro.

Je suis un gros novice désoler

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Avril 2018

• #8

Re

Clic-droit sur la feuille, visualiser le code. Là tu clique et tu colle la macro.

 

Vote positif 0 Vote négatif

S

solide84

Guest

• 16 Avril 2018

• #9

Bonjour

Désoler pour le retour tardif. Ta solution Lone Wolf ne fonctionne pas. J'ai trouver mon bonheur chez vgendron.

Merci beaucoup pour votre aide.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Avril 2018

• #10

Bonjour solide, vgendron 🙂

Bizarre, j'ai pourtant tester sans problèmes. Et elle fait la même chose que celle de vgendron, mis à part que lui il utilise UsedRange & Range("B").

 

Vote positif 0 Vote négatif

S

solide84

Guest

• 16 Avril 2018

• #11

j'ai copié ton code au même endroit que vgendron. Le code démarre pas . Je suis peut être pas doué lol.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 16 Avril 2018

• #12

Hello

j'ai copié ton code au même endroit que vgendron

Cliquez pour agrandir...

c'est la le problème
Mon code est une macro à mettre dans un module standard. Cette macro est appelée par un bouton
Le code de LoneWolf est une macro évènementielle.. qui se déclenche au double clic sur la feuille..(pas besoin de bouton), pour peu que tu mettes le code directement dans la feuille (et pas dans un module standard
Alt+F11 pour ouvrir l'éditeur
à gauche, double clic sur la feuille concernée, et à droite copier le code

 

Vote positif 0 Vote négatif

S

solide84

Guest

• 16 Avril 2018

• #13

Effectivement cela fonctionne parfaitement. Merci beaucoup pour votre aide. Il me reste un petit problème de msg box que je posterai demain. Ma macro fonctionne du tonnerre merci.

 

Vote positif 0 Vote négatif