ShowAllData crée une erreur

Bonjour,

J'ai un classeur excel que j'ai automatiser pour l'utilisation d'employers. C'est rel;ativement simple puisque les boutons font simplement des filtres dans un onglets.

Par contre, si aucun filtres n'est appliqué dans l'onglet, mon code renvoie un erreur puisqu'il ne peut effacer les filtres qui ne sont pas la...

L'erreur se trouve ici:

Sheets("Planificateur de projet").Select
ActiveSheet.ShowAllData

Mais je ne suis pas sur comment l'écrire pour l'éviter

Voici mon code:

Private Sub xb_Click()

'
    Sheets("Planificateur de projet").Select
    ActiveSheet.ShowAllData

    ActiveSheet.Range("$A$7:$EJ$182").AutoFilter Field:=1, Criteria1:="<>0"
    ActiveWorkbook.Worksheets("Planificateur de projet").AutoFilter.Sort.SortFields _
        .Clear
    ActiveWorkbook.Worksheets("Planificateur de projet").AutoFilter.Sort.SortFields _
        .Add2 Key:=Range("A7:A182"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Planificateur de projet").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.Range("$A$7:$EK$98").AutoFilter Field:=5, Criteria1:= _
        "XB"

End Sub

Merci

B

Bonjour,

Essaie :

If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilter.ShowAllData

A+

@Galopin01,

de temps en temps cela ne suffit pas

If ActiveSheet.AutoFilterMode Or ActiveSheet.FilterMode Then ActiveSheet.AutoFilter.ShowAllData

Parfait!

Merci beaucoup pour cette aide rapide.

Je n'ai pas fait vraiment de "conditionnel" encore, ça m'aide beaucoup dans mon apprentissage!