Méthode ListObjects.Add (Excel)
Crée un objet de liste.
Syntaxe
expression. Add (SourceType, Source, LinkSource, XlListObjectHasHeaders, Destination, TableStyleName)
Expression Variable qui représente un objet ListObjects .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
SourceType | Facultatif | XlListObjectSourceType | Indique le type de source pour la requête. |
Source | Facultatif | Variant | When SourceType = xlSrcRange : objet Range représentant la source de données. En cas d’omission, la source est définie par défaut sur la plage retournée par le code de détection de plage de liste. When SourceType = xlSrcExternal : tableau de valeurs String spécifiant une connexion à la source, contenant les éléments suivants :
Lorsque SourceType = xlSrcModel : accepte un objet WorkbookConnection (voir TableObject par exemple). |
LinkSource | Facultatif | Boolean | Indique si une source de données externe doit être liée à l'objet ListObject. Si SourceType est xlSrcExternal, la valeur par défaut est True. Non valide si SourceType a la valeur xlSrcRange et retourne une erreur s’il n’est pas omis. |
XlListObjectHasHeaders | Facultatif | Variant | Constante XlYesNoGuess qui indique si les données importées ont des étiquettes de colonne. Si la source ne contient pas d’en-têtes, Excel génère automatiquement des en-têtes. Valeur par défaut : xlGuess. |
Destination | Facultatif | Variant | Objet Plage spécifiant une référence de cellule unique en tant que destination pour l'angle supérieur gauche du nouvel objet de liste. Si l’objet Range fait référence à plusieurs cellules, une erreur est générée. L’argument Destination doit être spécifié lorsque SourceType est défini sur xlSrcExternal. L’argument Destination est ignoré si SourceType est défini sur xlSrcRange. La plage de destination doit se trouver dans la feuille de calcul qui contient la collection ListObjects spécifiée par expression. Les nouvelles colonnes seront insérées au niveau de la destination pour s’adapter à la nouvelle liste. Par conséquent, les données existantes ne sont pas supprimées. |
TableStyleName | Facultatif | String | Nom d’un TableStyle ; par exemple « TableStyleLight1 ». |
Valeur renvoyée
Objet ListObject qui représente le nouvel objet de liste.
Remarques
Si la liste comporte des en-têtes, la première ligne de cellules est convertie en Texte si ce n’est pas déjà le cas. Cette conversion est basée sur le texte visible pour la cellule. Cela signifie que, si une valeur de date avec un format Date est modifiée par les paramètres régionaux, la conversion en liste peut produire des résultats différents selon les paramètres régionaux du système. De plus, si deux cellules de la ligne d’en-têtes contiennent le même texte, un Entier incrémentiel y est ajouté de façon à ce que chaque en-tête soit unique.
Exemple
L’exemple suivant ajoute un nouvel objet ListObject basé sur les données d’un site Microsoft SharePoint Foundation à la collection ListObjects par défaut et place la liste dans la cellule A1 de la première feuille de calcul du classeur.
Remarque
L’exemple de code suivant suppose que vous allez remplacer un nom de serveur valide et le GUID de liste dans les variables strServerName
et strListGUID
. En outre, le nom du serveur doit être suivi de "/_vti_bin" (strListName)
ou l’exemple ne fonctionnera pas.
Set objListObject = ActiveWorkbook.Worksheets(1).ListObjects.Add(SourceType:= xlSrcExternal, _
Source:= Array(strServerName, strListName, strListGUID), LinkSource:=True, _
XlListObjectHasHeaders:=xlGuess, Destination:=Range("A1")),
TableStyleName:=xlGuess, Destination:=Range("A10"))
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour