Microsoft 365 VBA filtre erreur si pas la condition

[Ang3lina]

Bonjour à tous,

Meilleurs vœux pour cette nouvelle année

J'ai un petit soucis dans un bout de code et j'avoue que je n'arrive pas à le résoudre...
Je cherche à faire un tri dans un tableau en utilisant les couleurs de cellules (via des conditions). Jusqu'ici cela fonctionne mais lorsque la condition n'est pas validée dans la colonne sélectionnée j'ai une erreur. Bon là je bloque...

Je vous mets le bout de code que j'utilise :

If Range("A3").Value = 1 Then
With ActiveSheet
If .FilterMode Then .ShowAllData
End With
Range("Tableau7[[#Headers],[Date limite de formation]]").Select
ActiveSheet.ListObjects("Tableau7").Range.AutoFilter Field:=10, Criteria1:= _
RGB(255, 0, 0), Operator:=xlFilterCellColor
End If

Je pense qu'il faut ajouter une condition si mais je n'ai pas résolu ce mystère...

Merci à ceux qui pourront m'aider

 

[sylvanu]

Bonjour Ang3lina,
Peut être simplement in insérant un "On Error Resume Next" qui en cas d'erreur passera à la ligne suivante.

If Range("A3").Value = 1 Then
With ActiveSheet
If .FilterMode Then .ShowAllData
End With
Range("Tableau7[[#Headers],[Date limite de formation]]").Select
On Error Resume Next
ActiveSheet.ListObjects("Tableau7").Range.AutoFilter Field:=10, Criteria1:= _
RGB(255, 0, 0), Operator:=xlFilterCellColor
End If

1- Un petit fichier test aurait permis de tester.
2- Utilisez la balise </> ( à droite de l'icone GIF ), c'est plus lisible.