Méthode Application.CheckField (Project)

  • Article

Cette méthode a la valeur True si les tâches ou les ressources sélectionnées répondent aux critères spécifiés.

Syntaxe

expression. CheckField (_Field_, _Value_, _Test_, _Op_, _Field2_, _Value2_, _Test2_)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom Requis/Facultatif Type de données Description
Field Obligatoire String Nom du champ à rechercher.
Valeur Obligatoire String Valeur à comparer avec celle du champ spécifié par Field.
Test Facultatif String Type de comparaison réalisée entre les arguments Field et Value. La valeur par défaut est « Égal à ». Il peut s’agir de l’une des chaînes de comparaison suivantes.
Op Facultatif String Relation entre le critère établi par les arguments Field, Test et Value et le second critère. L'argument Op peut avoir les valeurs « And » et « Or ».
Field2 Facultatif String Nom du second champ à rechercher.
Value2 Facultatif String Valeur à comparer avec celle du champ spécifié par Field2.
Test2 Facultatif String Type de comparaison établie entre les arguments Field2 et Value2. Il peut s’agir de l’une des mêmes chaînes de comparaison que Test.

Chaînes de comparaison

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

Valeur renvoyée

Variant

Exemple

L’exemple suivant détermine si la valeur de Duration est égale à 1 et affiche un message approprié.

Sub Check_Field() 
 
 Dim T As Task 
 Dim Result As Boolean 
 
 Set T = ActiveProject.Tasks(3) 
 Result = CheckField("Duration", "1", "equals") 
 
 If Result Then 
 Result = MsgBox(T.GetField(pjTaskName) + " task Duration is equal to value specified.", vbOKOnly, "CheckField Method") 
 Else 
 Result = MsgBox(T.GetField(pjTaskName) + " task Duration is not equal to value specified.", vbOKOnly, "CheckField Method") 
 End If 
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.