XL 2016 VBA suppression lignes dans tableau [Résolu] par 2 contributeurs :)

[ROCHER]

Bonjour,

Malgré de nombreuses recherches et de nombreux tests, je suis bloqué sur un code VBA.

Je souhaite filtrer des lignes dans un tableau (sur 2 champs pour les filtres) puis supprimer les lignes visibles. J'ai trouvé la syntaxe qui semble adaptée, mais j'ai systématiquement une erreur d'exécution.

Voici mon code :

Sub Purger3()

Dim DernLigne As Long
Dim Exercice As Integer ' Declare la variable Exercice
Dim wS As Worksheet
   
    Set wS = Sheets("Ecritures analytiques")
   
    With Worksheets("Ecritures analytiques")
     If Not .AutoFilterMode Then .Range("A1").AutoFilter
    End With
   
    Exercice = InputBox("Quel exercice voulez vous purger ?")
   
    DernLigne = wS.Range("A" & Rows.Count).End(xlUp).Row
   
    wS.Range("A1").AutoFilter Field:=14, Criteria1:=Exercice
    wS.Range("A1").AutoFilter Field:=28, Criteria1:="Réalisé"
   
    wS.Range("A2:AB" & DernLigne).SpecialCells(xlCellTypeVisible).EntireRow.Delete

    Range("A1").AutoFilter

    ThisWorkbook.RefreshAll
 
End Sub

Quelqu'un a t'il une idée ?

Merci d'avance de votre aide,

Philippe

 

[Lone-wolf]

Bonjour Philippe,

comme tu peux le voir, il y a 3 erreurs dans ta macro, essaie comme ceci

Dim plage as Range
Set Ws = Sheets("Ecritures analytiques")

    With Ws
    DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
    Set plage = .Range("A1:AB" & DernLigne)
  
    Exercice = InputBox("Quel exercice voulez vous purger ?")

   plage.AutoFilter 14, Exercice, xlAnd
   plage.AutoFilter 28, "Réalisé", xlAnd

    .Range("A2:AB" & DernLigne).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With

    ThisWorkbook.RefreshAll

 

[ROCHER]

Bonjour,

Merci pour cette réponse. Je viens de tester ce code mais j'ai à nouveau une erreur d'exécution lorsqu'il arrive à la ligne de suppression ! Je joins un fichier de test si cela peut permettre de mieux voir ce qui se passe ... la macro s'appelle PurgerLignes dans le Module5, j'ai mis un bouton pour y accéder lors du test à droite du tableau des données. Pour l'exercice on peut prendre 2015 ou 2016.

Grand merci d'avance pour ton aide ...

 

[Lone-wolf]

Bonjour ROCHER

essaie comme ceci
.Cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete

 

[Staple1600]

Bonjour à tous

macro testée sur Excel 2013

Sub a()
Dim Exercice
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Exercice = InputBox("Quel exercice voulez vous purger ?")
    With ActiveSheet.ListObjects("Tableau6")
        .Range.AutoFilter Field:=14, Criteria1:=Exercice
        .Range.AutoFilter Field:=28, Criteria1:="Réalisé"
        .DataBodyRange.SpecialCells(12).Delete
        .AutoFilter.ShowAllData
    End With
End Sub

 

[ROCHER]

Merci à Lone-Wolf pour ses réponses qui m'ont aidé à mieux comprendre certaine parties du code.

Merci à Staple1600, ce code fonctionne parfaitement (il faut seulement que j'ajoute une précision sur la feuille qui contient les données) car le code est lancé à partir d'une autre feuille.

Grand merci à vous deux

 

[ROCHER]

Je suis nouveau sur le forum, donc je ne sais pas si en plus du remerciement aux contributeurs il faut "fermer" le sujet ?

 

[Lone-wolf]

Re ROCHER,

Oui, vas dans ton premier message, et dans le titre tu rajoute [Résolu par Stapple].

EDIT: Rebonjour JM

 

[Staple1600]

Re

Oui, vas dans ton premier message, et dans le titre tu rajoute [Résolu par Stapple].

Non surtout pas, je trouve cette nouvelle habitude des plus fâcheuses
On peut mettre résolu (bien que pour moi un post n'est jamais vraiment résolu)
Mais je ne vois pas l’intérêt de spécifier le pseudo d'un membre
(surtout sans savoir si c'est avec ou sans son aval)

 

[Lone-wolf]

Re JM

On se calme , je n'ai pas dit cela par méchanceté.