Méthode Application.FilterEdit (Project)

Crée, modifie ou copie un filtre.

Syntaxe

expression. FilterEdit (Name, TaskFilter, Create, OverwriteExisting, Parenthesis, NewName, FieldName, NewFieldName, Test, Value, Operation, ShowInMenu, ShowSummaryTasks)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Name	Obligatoire	String	Nom d'un filtre à modifier, créer ou copier.
TaskFilter	Requis	Boolean	Cet argument a la valeur True si le filtre spécifié par Name contient des informations relatives aux tâches. False si le filtre contient des informations sur les ressources.
Create	Facultatif	Boolean	Renvoie la valeur True si un filtre est créé. Le nouveau filtre est une copie du filtre spécifié avec Name et reçoit le nom spécifié avec NewName. Si NewName est vide, le nouveau filtre reçoit le nom spécifié par Name. La valeur par défaut est False.
OverwriteExisting	Facultatif	Boolean	Cet argument a la valeur True si le filtre existant est remplacé par un nouveau filtre. La valeur par défaut est False.
Parenthèse	Facultatif	Boolean	True si le critère établi par FieldName, Test et Value est évalué comme une clause AND ou OR entre parenthèses (la valeur spécifiée avec Operation) par rapport à d’autres critères, de la manière de (a AND b) OR c.
Newname	Facultatif	String	Un nouveau nom pour le filtre spécifié avec Nom (Create a la valeur False) ou un nom pour le nouveau filtre (Create a la valeur True). Si NewName est vide et que Create a la valeur False, le filtre spécifié avec Name conserve son nom actuel. La valeur par défaut est Empty.
FieldName	Facultatif	String	Nom d'un champ à modifier.
NewFieldName	Facultatif	String	Nouveau nom pour le champ spécifié par FieldName.
Test	Requis	String	Type de comparaison réalisée entre FieldName et Value qui joue le rôle d’un critère de sélection pour le filtre. Il peut s’agir de l’une des chaînes de comparaison.
Valeur	Facultatif	String	Valeur à comparer à celle du champ spécifié par FieldName.
Opération	Facultatif	String	Relation du critère établi par FieldName, Test et Value avec les autres critères du filtre. L’argument Operation peut avoir la valeur « And » ou « Or ».
ShowInMenu	Facultatif	Boolean	True si le filtre est affiché dans la liste déroulante Filtre . La valeur par défaut est False. Note Pour afficher la liste des filtres, dans le ruban, sous l’onglet Affichage , cliquez sur la liste déroulante Filtre .
ShowSummaryTasks	Facultatif	Boolean	Cet argument a la valeur True si les tâches récapitulatives des tâches filtrées sont affichées. La valeur par défaut est False.

Chaînes de comparaison

Chaîne de comparaison	Description
« égal à »	La valeur de FieldName est égale à celle de Value.
"Différent de"	La valeur de FieldName est différente de celle de Value.
"Supérieur à"	La valeur de FieldName est supérieure à celle de Value.
"Supérieur ou égal à"	La valeur de FieldName est supérieure ou égale à celle de Value.
"Inférieur à"	La valeur de FieldName est inférieure à celle de Value.
"Inférieur ou égal à"	La valeur de FieldName est inférieure ou égale à celle de Value.
"Compris entre"	La valeur de FieldName est comprise dans celle de Value.
"Non compris dans"	La valeur de FieldName n’est pas comprise dans celle de Value.
« contains »	FieldName contient Value.
"Ne contient pas"	FieldName ne contient pas value.
"Contient exactement"	FieldName contient exactement Value.

Valeur renvoyée

Boolean

Exemple

L’exemple suivant crée un filtre (s’il n’en existe pas) pour les tâches ayant la priorité la plus élevée, puis applique le filtre.

Sub CreateAndApplyHighestPriorityFilter() 
    Dim TaskFilter As Variant  ' Index for For Each loop. 
    Dim Found As Boolean    ' Whether or not the filter exists. 
    Found = False   ' Assume the filter does not exist. 
    ' Look for filter. 
    For Each TaskFilter In ActiveProject.TaskFilterList 
        If TaskFilter = "Highest Priority" Then 
            Found = True 
            Exit For 
        End If 
    Next TaskFilter 
 
    ' If filter doesn't exist, create it. 
    If Not Found Then FilterEdit Name:="Highest Priority", _ 
        Create:=True, TaskFilter:=True, FieldName:="Priority", _ 
        Test:="equals", Value:="Highest" 
    FilterApply "Highest Priority" 
End Sub    

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.