Excel vous permet de créer de nouvelles feuilles de calcul de différentes manières. Que faire si vous souhaitez créer une nouvelle feuille de calcul et la nommer en une seule étape? Le moyen le plus simple de le faire est d’utiliser une macro. Voici un exemple de macro qui demandera un nom, puis créera une feuille de calcul et donnera à cette feuille de calcul le nom fourni.

Sub AddNameNewSheet1()

Dim Newname As String     Newname = InputBox("Name for new worksheet?")

If Newname <> "" Then         Sheets.Add Type:=xlWorksheet         ActiveSheet.Name = Newname     End If End Sub

Cette macro fonctionne correctement, tant que l’utilisateur entre un nom de feuille de calcul qui est «légal» par les normes Excel. Si le nouveau nom n’est pas acceptable pour Excel, la feuille de calcul est quand même ajoutée, mais elle n’est pas renommée comme prévu.

Une macro plus robuste anticiperait les erreurs possibles de dénomination d’une feuille de calcul. L’exemple de code suivant ajoutera la feuille de calcul, mais continuera à demander un nom de feuille de calcul si un nom incorrect est fourni.

Sub AddNameNewSheet2()

Dim CurrentSheetName As String

'Remember where we started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet

CurrentSheetName = ActiveSheet.Name

'Add New Sheet     Sheets.Add

'Make sure the name is valid     On Error Resume Next

'Get the new name      ActiveSheet.Name = InputBox("Name for new worksheet?")



'Keep asking for name if name is invalid     Do Until Err.Number = 0         Err.Clear         ActiveSheet.Name = InputBox("Try Again!" _           & vbCrLf & "Invalid Name or Name Already Exists" _           & vbCrLf & "Please name the New Sheet")

Loop     On Error GoTo 0

'Go back to where you started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet     Sheets(CurrentSheetName).Select

End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2022) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Creating_Worksheets_with_a_Macro [Création de feuilles de travail avec une macro].