ListDataFormat, objet (Excel)ListDataFormat Object (Excel)

L’objet ListDataFormat contient toutes les propriétés de type de données de l’objet ListColumn .The ListDataFormat object holds all the data type properties of the ListColumn object. Ces propriétés sont en lecture seule.These properties are read-only.

RemarquesRemarks

Utilisez la propriété ListDataFormat de l’objet ListColumn pour renvoyer un objet ListDataFormat .Use the ListDataFormat property of the ListColumn object to return a ListDataFormat object. La propriété par défaut de l’objet ListDataFormat est la propriété Type qui indique le type de données de la colonne de liste.The default property of the ListDataFormat object is the Type property which indicates the data type of the list column. Cela permet à l’utilisateur d’écrire du code sans spécifier la propriété Type .This allows the user to write code without specifying the Type property.

ExempleExample

L’exemple de code suivant crée une liste liée à partir d’une liste SharePoint.The following code example creates a linked list from a SharePoint list. Il vérifie si le champ 2 est requis ensuite (champ 1 est le champ ID, qui est en lecture seule).It then checks to see if field 2 is required (field 1 is the ID field, which is read only). S’il est un champ obligatoire, les mêmes données sont écrit dans tous les enregistrements existants.If it's a required text field, the same data is written in all existing records.

Remarque L’exemple de code suivant suppose que vous remplacez un nom de serveur valide et le guid de liste dans les variables strServerName et strListGuid .Note The following code example assumes that you will substitute a valid server name and the list guid in the variables strServerName and strListGuid . En outre, le nom du serveur doit être suivi » / _vti_bin » ou l’exemple ne fonctionne pas.Additionally, the server name must be followed by "/_vti_bin" or the sample will not work.

Dim objListObject As ListObject 
Dim objDataRange As Range 
Dim strListGUID as String 
Dim strServerName as String 
 
strServerName = "https://<servername>/_vti_bin" 
strListGUID = "{<listguid>}" 
 
Set objListObject = Sheet1.ListObjects.Add(xlSrcExternal, _ 
 Array(strServerName, strListGUID), True, xlYes, Range("A1")) 
 
With objListObject.ListColumns(2) 
 Set objDataRange = .Range.Offset(1, 0).Resize(.Range.Rows.Count - 2, 1) 
 If .ListDataFormat.Type = xlListDataTypeText And .ListDataFormat.Required Then 
 objDataRange.Value = "Hello World" 
 End If 
End With 
 

Voir aussiSee also

Référence du modèle objet ExcelExcel Object Model Reference