Discussion :

[Pilote1152]

Bonjour,

Dans un tableau structuré j'enregistre années après années les informations sur des adhérents de l'association.
Pour alléger la base des données je souhaite réaliser au choix de l'utilisateur la suppression d'une ou plusieurs années (en partant toujours de la plus ancienne).
Le code ci-dessous fonctionne lorsque je supprime l'année la plus ancienne ou ensemble plusieurs années anciennes jusqu'à N-1 (pas de suppression de l'année N bien sûr !). Mais me demande à chaque fois si je veux supprimer les lignes entières !
En revanche si je n'ai que 2 années en historique la macro plante à la dernière ligne (.delete !!!!!!!) alors que le filtrage est bien effectif sur l'année N-1


Merci de vos remarques pour me sortir de cette impasse.

Cordialement

ci-après le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
ansupprimerDeb = FrmSuppression.TxtBoxAnDeb 'choix dans un formulaire de l'année n à supprimer
ansupprimerFin = FrmSuppression.LstBoxAnFin.List(FrmSuppression.LstBoxAnFin.ListIndex) 'choix dans le formulaire de la dernière année à supprimer N+ ....
Set tbStruc = SheetASSOC.Range("tblMembres").ListObject
colAn = tbStruc.ListColumns("Année").Index 'renvoi le n°d'ordre de cette colonne
With SheetASSOC.ListObjects("TblMembres")
     If ansupprimerFin <> ansupprimerDeb Then
                .Range.AutoFilter field:=colAn, Criteria1:=">=" & ansupprimerDeb, Operator:=xlAnd, Criteria2:="<=" & ansupprimerFin
     Else: .Range.AutoFilter field:=1, Criteria1:=ansupprimerDeb
     End If
     '.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete     ' fonctionne (comme la variante ci-après) mais ...plantage quand il ne reste que 2 années (en cours et N-1) et la suppression concerne N-1
   End With
        tbStruc.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete 'variante qui plante également au même stade ! (mais fonctionne aussi dans les autres cas de figure)

[EricDgn]

Bonjour,

A tester:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Set tbStruc = Range("tblMembres").ListObject
    colAn = tbStruc.ListColumns("Année").Index 'renvoi le n° de cette colonne
    With tbStruc.DataBodyRange
        If ansupprimerFin <> ansupprimerDeb Then
            .AutoFilter field:=colAn, Criteria1:=">=" & ansupprimerDeb, Operator:=xlAnd, Criteria2:="<=" & ansupprimerFin
        Else
            .AutoFilter field:=colAn, Criteria1:=ansupprimerDeb   '---- ColAn et pas 1
        End If
        Application.DisplayAlerts = False        '--- pas de message effacer ligne entière (va le faire sans prévenir)
        .SpecialCells(xlCellTypeVisible).Delete
        Application.DisplayAlerts = True
        .AutoFilter              '--- réaffiche tout ce qui reste
    End With

Cordialement.

[Pilote1152]

Bonjour Eric,

je te remercie pour ce retour.
Si le DisplayAlerts est efficace pour l'effacement sans le message de confirmation, en revanche le problème subsiste lors de la suppression de l'avant dernière année quant il n'en restait que 2!
Toujours le même plantage avec le Delete ....
Je pourrai si besoin joindre un fichier test mais il me faudrait l'anonymiser .....et l'alléger de toutes les autres fonctionnalités inutiles
On cherche encore svp et merci encore

Cordialement

[EricDgn]

Bizarre, je ne rencontre pas ce problème.
Cordialement.

[Pilote1152]

Bizarre, je ne rencontre pas ce problème.
Cordialement.

Bonjour Eric,

je me préparais donc à configurer un fichier Test anonymisé pour aider à une meilleure appréhension du pb.
Je me suis aperçu que j'avais masqué les colonnes B et C dans mon tableau structuré.
En vérifiant avec tbStruc.DataBodyRange.Specialcells(xlCellTypeVisible).address j'ai eu confirmation de 2 areas ainsi définies A..:A....,D...:AD ... (zones OK).
Cela ne pose pas de problème au code tbStruc.DataBodyRange.Specialcells(xlCellTypeVisible).Delete pour supprimer de A jusqu'à AD (donc même B et C) dans tous les cas ...... sauf lorsque je tente de supprimer une année seulement alors qu'il m'en reste 2 en historique (ex: si Années 2021 et 2022 en historique plantage du .Delete pour supprimer 2021. Mais si j'ai un historique avec 2018 à 2022 la suppression globale de 2018 à 2021 ne plante pas !).
Toujours sans comprendre la raison du problème j'ai donc réaffiché les 2 colonnes masquées et MIRACLE ...... plus de plantage du .Delete

J'espère que cette astuce aidera tout utilisateur qui rencontrerait ce problème.
En te remerciant pour tes échanges
Cordialement