Pb macro - erreur d'exécution 1004

Bonjour,

J'utilise le code ci dessous depuis X années avec un raccourci dans mes macro perso.

Sub Supprime_lignes_filtrees()

' Touche de raccourci du clavier: Ctrl+Maj+S

If MsgBox("Etes vous sûr de vouloir supprimer les filtrées ?", vbYesNo) = vbYes Then

Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _

Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp

ActiveSheet.ShowAllData

Else

MsgBox "Annulé"

End If

End Sub

Et aujourd'hui, cela ne fonctionne plus et affiche l'erreur 1004 (je n'ai rien changé, c'est toujours XL2016 depuis 8 mois).

Avez vous une explication ? une solution ?

Merci pour votre aide.

BH

Bonjour,

As-tu au moins une de ces lignes qui est visible ? Je penche pour une erreur générée par "SpecialCells(xlCellTypeVisible)" quand aucune des cellules de la plage n'est visible !

Merci pour votre retour.

C'est une manip que je dois faire 10 fois par jour depuis 6 ans.

Le code est dans mon "PERSONNAL.XLSB", je l'installe sur tous les postes que j'utilise.

Incompréhensible.

Oui, j'ai des lignes visibles à supprimer.

BH

Bonsoir

Je pense que c'est normal, vu l'a^ge de ton fichier (6 ans), tu as sûrement toi ou quelqu'un d'autre mis le tableau sous

forme automatique, hors dans ce cas ta macro ne focntionne plus.

Pour supprimer ce format automatique, clique sur ton tableau n'importe ou, tu dois avoir le ruban Outils de tableau - Création.

à gauche tu peux faire : Convertir en plage.

Après cela ton code devrait focntionner à nouveau.

Bon courage.

Cordia5