XL 2010 Code VBA filtrage

[solide84]

Bonjour

Je recherche un code VBA permettant de supprimer tout les ticket Résolue

Si Statut N°Semaine = N° Semaine fermé ne pas supprimer.

Merci d'avance pour votre aide

 

[vgendron]

Hello
avec l'enregistreur de macro, ca donne ceci

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.

 

[solide84]

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.

 

[Lone-wolf]

Bonjour solide, vgendron

A mettre dans le module de la feuille.

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

 

[vgendron]

Autre essai avec ceci.. surement plus long

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

 

[vgendron]

Hello Lone-Wolf :-D

 

[solide84]

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

 

[Lone-wolf]

Re

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

 

[solide84]

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.

 

[Lone-wolf]

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

 

[solide84]

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

 

[vgendron]

Hello

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

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

 

[solide84]

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.