Worksheet.ConsolidationSources (Excel)

Cette propriété renvoie un tableau de chaînes de caractères qui nomment les feuilles source pour la consolidation en cours de la feuille de calcul. Cette propriété renvoie la valeur Empty s'il n'existe aucune consolidation dans la feuille de calcul. Type de données Variant en lecture seule.

Set newSheet = Worksheets.Add 
newSheet.Range("A1").Value = "Consolidation Sources" 
aSources = Worksheets("Sheet1").ConsolidationSources 
If IsEmpty(aSources) Then 
 newSheet.Range("A2").Value = "none" 
Else 
 For i = 1 To UBound(aSources) 
 newSheet.Cells(i + 1, 1).Value = aSources(i) 
 Next i 
End If 
newSheet.Columns("A:B").AutoFit