En standard, Excel vous propose trois feuilles de calcul lors de la création d’un nouveau classeur. Si vous souhaitez en ajouter, utilisez la méthode Add. La feuille de calcul nouvellement insérée est toujours insérée avant la feuille de calcul active dans le classeur.

Sub InsererUnetable ()
  Worksheets.Add
End Sub

Si vous souhaitez insérer une feuille de calcul à une certaine position, vous pouvez également spécifier la position à laquelle vous souhaitez insérer la nouvelle table. Pour ce faire, lancez la macro suivante .

Sub tablepositioninserer ()
  Worksheets.Add Before: = ActiveWorkbook.Worksheets (1)
End Sub

Dans , le nouveau tableau a été inséré au début du classeur, c’est-à-dire en tant que premier tableau. La feuille de calcul précédente avec l’index 1 est ensuite déplacée d’une position vers la droite. Si vous souhaitez insérer la nouvelle table à la toute fin, c’est-à-dire à l’extrême droite, utilisez la macro suivante :

Sub TableFinInsert ()
  Worksheets.Add After: = Worksheets (Worksheets.Count)
End Sub

Afin de déterminer quelle est la position d’insertion souhaitée pour la nouvelle feuille de calcul, vous devez d’abord savoir combien de feuilles de calcul se trouvent déjà dans le classeur. La propriété Count vous y aide. Il fournit le nombre de feuilles du tableau. Ensuite, il vous suffit de saisir l’argument Après et la nouvelle feuille de calcul sera insérée en tant que dernière feuille de calcul dans le classeur.

Vous pouvez également insérer des tableaux de manière entièrement automatique en créant les noms des tableaux à partir du contenu des cellules. Jetez un œil à l’illustration suivante.

Dans le tableau de sortie, vous verrez les entrées des cellules A1 à A10. Ces entrées doivent être les noms des nouvelles tables. Vous pouvez voir la macro pour cette tâche .

Sub tableauxCreerpartirdesentreescellule ()
Dim Cell As Range
Sheets ("Origin") Activate
For Each Cell In Selection
  Sheets.Add
  ActiveSheet.Name = Cell.Value
Next cell
End Sub

Sélectionnez les cellules A1 à A10, puis démarrez la macro . Utilisez la méthode Add pour insérer de nouvelles tables. Utilisez l’instruction ActiveSheet.Name pour donner aux nouvelles tables leurs noms et faire référence à la cellule sélectionnée.