Classe CustomViews - vues personnalisée (Excel VBA)

Collection de vues personnalisées d'un classeur. Pour utiliser une variable de classe CustomViews, elle doit d'abord être instanciée, par exemple

Dim cvs as CustomViews
Set cvs = ActiveWorkbook.CustomViews

For Each

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

Dim cvw As CustomView
For Each cvw In ActiveWorkbook.CustomViews
	
Next cvw

Add

Cette méthode crée une vue personnalisée.

Add (ViewName, PrintSettings, RowColSettings)

Dim strViewName As String: strViewName = 
Dim cvw As CustomView
Set cvw = ActiveWorkbook.CustomViews.Add(ViewName:=strViewName)

Arguments

Un argument nommé

ViewName (String) - Nom du nouvel affichage.

Optional arguments

Les arguments suivants sont facultatifs

PrintSettings (Boolean) - True pour inclure les paramètres d'impression dans la vue personnalisée.

RowColSettings (Boolean) - True pour inclure les paramètres des lignes et des colonnes masquées (y compris les informations de filtre) dans la vue personnalisée.

Count

Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveWorkbook.CustomViews.Count

Item

Cette méthode renvoie un seul objet d'une collection.

Item (ViewName)

ViewName: Nom ou numéro d'index de l'objet.

Dim cvw As CustomView
Set cvw = ActiveWorkbook.CustomViews(ViewName:="Current Inventory")