Bonjour à tous
Voici une partie de mon code de base qui fonctionne mais que j'aimerais améliorer.
Set WsS = Worksheets("DataBase") 'Identification de la feuille objet
With WsS.ListObjects("TDataBase")
.Range.AutoFilter Field:=10, _
Criteria1:=">=" & CboNsem_Deb, Operator:=xlAnd, Criteria2:="<=" & CboNsem_Fin ' Filtre sur SDO entre CboNsem_Deb et CboNsem_Fin
.Range.AutoFilter Field:=12, Criteria1:=" <>clot" 'Filtre Prends ds la colonne 12 ce qui est différent du mot " clot"
.DataBodyRange.Copy [B8] 'Copie vers Tableau de Bord
.Range.AutoFilter Field:=10 'Réinitialiser le filtre du Tableau DataBase SDO
.Range.AutoFilter Field:=12 'Réinitialiser le filtre du Tableau DataBase suprimme clot
End With
J'aimerai que le code
.Range.AutoFilter Field:=12, Criteria1:=" <>clot" 'Filtre Prends ds la colonne 12 ce qui est différent du mot " clot"
fasse partie de
.Range.AutoFilter Field:=10, _
Criteria1:=">=" & CboNsem_Deb, Operator:=xlAnd, Criteria2:="<=" & CboNsem_Fin ' Filtre sur SDO entre CboNsem_Deb et CboNsem_Fin
ce qui donne le résultat:
Je filtre entre ">=" & CboNsem_Deb et :="<=" & CboNsem_Fin et si le mot clot n'est pas présent ds la colonne 12 alors je selectionne aussi.
Voila en espérant que la demande soit claire
Merci de votre aide.
Ledzep