VBA-Leçon 3. Travailler avec des feuilles (Worksheet)

Cette collection est un ensemble de feuilles (Sheets) dans un classeur (Workbooks). Voyons quelles actions nous pouvons faire sur les feuilles.

Comment compter le nombre de feuilles dans un livre

Essayons d’abord de savoir combien de feuilles contient notre livre :

Sub Test() 'moonexcel.com.ua
	MsgBox (Str(Application.Workbooks.Item("Test.xls").Sheets.Count))
End Sub

Avec ce code, nous avons appelé un message à l'écran (MsgBox) qui affichait le nombre de feuilles (Sheets.Count) dans le classeur (Workbooks) "Test.xls".

Une feuille comprend non seulement des cellules, mais aussi des diagrammes. De plus, comme la feuille de calcul, le graphique sera inclus dans le décompte des feuilles.

Comment ajouter une feuille à un livre

Dans la collection de feuilles, il est également possible d'ajouter vos propres feuilles, pour cela il existe une méthode Add. Cette méthode a 4 paramètres Add(Before, After, Count, Type). Tous ces paramètres sont facultatifs. Les deux premiers sont responsables du lieu d'insertion de la feuille. Ensuite, le nombre de feuilles à insérer Count et le type de feuille Type. Les types peuvent être, par exemple, xlWorkSheet pour une feuille de calcul et xlChart pour un graphique. Si l'emplacement n'est pas précisé, la feuille sera insérée par rapport à la feuille courante.

Sub Test() 'moonexcel.com.ua
    Sheets.Add After:=Worksheets("Sheet3"), Count:=4
End Sub

De cette façon, nous avons inséré 4 feuilles (Count:=4) après la feuille "Sheet3". Vous pouvez également insérer une feuille à la toute fin du livre :

Sub Test() 'moonexcel.com.ua
	Worksheets.Add
	ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
End Sub

Comment masquer une feuille

Si vous le souhaitez, certaines lettres peuvent être masquées. Ceci est utile si vous avez des constantes ou des calculs que vous ne souhaitez pas voir à l'écran sous forme de lettres. Vous pouvez utiliser la méthode Visible pour cela. En définissant cette propriété dans TRUE ou FALSE, vous pouvez supprimer ou afficher la feuille requise.

Sub Test() 'moonexcel.com.ua
	ActiveWorkbook.Sheets("Sheet3").Visible = False
End Sub