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.

 

[Ang3lina]

Bonjour Sylvanu,

Merci pour ton retour !
Effectivement avec un fichier c'est plus simple. Je viens de faire un fichier test pour que ce soit plus parlant.

J'ai testé l'ajout mais bizarrement je n'arrive à plus rien 🙁

 

[Ang3lina]

J'ai finalement résolu le problème en ajoutant "On Error Resume Next" un peu plus bas :

If Range("A3").Value = 1 Then
With ActiveSheet
If .FilterMode Then .ShowAllData
End With
ActiveSheet.ListObjects("Tableau7").Range.AutoFilter Field:=10, Criteria1:= _
RGB(255, 0, 0), Operator:=xlFilterCellColor
On Error Resume Next
End If