Classe ModelRelationships (Excel VBA)

Cette collection contient toutes les relations entre les tables de données dans le modèle de données d'Excel 2013. Pour utiliser une variable de classe ModelRelationships, elle doit d'abord être instanciée, par exemple

Dim mrs as ModelRelationships
Set mrs = ActiveWorkbook.Model.ModelRelationships

For Each

Voici un exemple de traitement des éléments ModelRelationships dans une collection

Dim mrel As ModelRelationship
For Each mrel In ActiveWorkbook.Model.ModelRelationships
	
Next mrel

Add

Ajoute une nouvelle relation au modèle.

Add (ForeignKeyColumn, PrimaryKeyColumn)

Dim mrel As ModelRelationship
Set mrel = ActiveWorkbook.Model.ModelRelationships.Add(ForeignKeyColumn:=, PrimaryKeyColumn:=)

Arguments

Les arguments nommés :

ForeignKeyColumn (ModelTableColumn) - Objet ModelTableColumn représentant la colonne de clé étrangère dans la table du côté plusieurs de la relation un-à-plusieurs.

PrimaryKeyColumn (ModelTableColumn) - Objet ModelTableColumn représentant la colonne de clé primaire dans la table du côté un de la relation un-à-plusieurs.

Count

Renvoie une valeur de type long qui représente le nombre d'objets ModelRelationship dans un objet ModelRelationships . En lecture seule.

Dim lngCount As Long
lngCount = ActiveWorkbook.Model.ModelRelationships.Count

DetectRelationships

Détecte les relations de modèle dans l'objet PivotTable spécifié.

DetectRelationships (PivotTable)

PivotTable: Tableau croisé dynamique dans lequel détecter les relations de modèle.

ActiveWorkbook.Model.ModelRelationships.DetectRelationships PivotTable:=

Item

Cette méthode renvoie un seul objet de l'objet ModelRelationships .

Item (Index)

Index: Numéro d'index de l'objet.

Dim mrel As ModelRelationship
Set mrel = ActiveWorkbook.Model.ModelRelationships(Index:=1)