Classe CustomView (Excel VBA)

Cet objet représente une vue personnalisée d'un classeur.

Set

Pour utiliser une variable de classe CustomView, elle doit d'abord être instanciée, par exemple

Dim cvw as CustomView
Set cvw = ActiveWorkbook.CustomViews(ViewName:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe CustomView : CustomViews.Item, CustomViews.Add et Workbook.CustomViews

For Each

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

With Worksheets(1) 
 .Cells(1,1).Value = "Name" 
 .Cells(1,2).Value = "Print Settings" 
 .Cells(1,3).Value = "RowColSettings" 
 rw = 0 
 For Each v In ActiveWorkbook.CustomViews 
 rw = rw + 1 
 .Cells(rw, 1).Value = v.Name 
 .Cells(rw, 2).Value = v.PrintSettings 
 .Cells(rw, 3).Value = v.RowColSettings 
 Next 
End With

Delete

Cette méthode supprime l'objet.

ActiveWorkbook.CustomViews(1).Delete

Name

Renvoie une valeur de type String qui représente le nom de l'objet.

Dim strName As String
strName = ActiveWorkbook.CustomViews(1).Name

Parent

Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

PrintSettings

Cette propriété a la valeur True si les paramètres d'impression sont inclus dans la vue personnalisée. Boolean (en lecture seule).

Dim booPrintSettings As Boolean
booPrintSettings = ActiveWorkbook.CustomViews(1).PrintSettings

RowColSettings

Cette propriété a la valeur True si la vue personnalisée inclut les paramètres des lignes et des colonnes masquées (y compris les informations de filtrage). Boolean (en lecture seule).

Dim booRowColSettings As Boolean
booRowColSettings = ActiveWorkbook.CustomViews(1).RowColSettings

Show

Affiche l'objet.

ActiveWorkbook.CustomViews(1).Show

CustomViews.Add

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

Syntaxe : expression.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.

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.

CustomViews.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

CustomViews.Item

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

Syntaxe : expression.Item (ViewName)

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

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

CustomViews.Parent

Renvoie l’objet parent pour l’objet spécifié. En lecture seule.