Macro pour renommer une feuille de calcul, Excel vba

Lors de l’insertion de noms de feuille de calcul, Excel attribue automatiquement des noms composés de l’expression Feuil et d’un numéroté consécutivement (Feuil1, Feuil2, Feuil3…).
Si vous souhaitez utiliser d’autres noms, vous pouvez toujours le faire. 

Nommer par la date actuelle

Dans l’exemple suivant, la feuille Feuil1 doit recevoir un nouveau nom. La feuille de travail doit porter le nom de la date actuelle.

Sub nomDateActuelle ()
On Error Resume Next
  Worksheets ("Feuil2"). Name = Date
End Sub

Commentaires

La date actuelle est donnée à la feuille de calcul sous un nouveau nom via la propriété Name. Vous pouvez le déterminer en appelant la fonction Date. Ce faisant, Excel obtient la date actuelle à partir du panneau de configuration Windows. L’instruction On Error garantit que le cas d’erreur, que cette feuille de calcul n’existe pas, est interceptée.

Nommer le tableau par la date formatée

Si vous le souhaitez, vous pouvez toujours formater les dates avant de les utiliser comme nom pour votre feuille de calcul.

Sub nomDateActuelleFormat()
ActiveSheet.Name = Format(Now, "mmm dd")
End Sub

Commentaires

Par exemple, vous pouvez utiliser la fonction Format pour modifier le format de la date. Vous appliquez cette fonction à la fonction Maintenant (Now), qui renvoie à la fois la date actuelle et l’heure actuelle.

 Format de date Affichage de la date 
 Format(Now, “dd mmmm”)  09 Avril
 Format(Now, “dd. mmmm yy”)  09. Avril 21
 Format(Now, “dd. mmmm yyyy”)  09. Avril 2021
 Format(Now, “dd-mm-yyyy”)  09-04-2021
 Format(Now, “dddd”)  Samedi
Format(Now, “mmmm yyyy”) April 2021

Vous disposez d’un certain nombre d’options lors du formatage de la date.

Noms en fonction du contenu de la cellule

Dans l’exemple suivant, le nom de la feuille de calcul est formé à partir du contenu de la cellule B1.

Sub NomContenuCellule()
Worksheets(1).Name = Range("B1").Value
End Sub

Commentaires

La commande Worksheet (1).Name fait référence à la première feuille de calcul dans le classeur, c’est-à-dire la plus à gauche. Si vous utilisez la commande Worksheets(“Feuil1”).Name, alors Feuil1 est clairement désignée ici, quel que soit l’endroit où elle se trouve actuellement.

Nom en fonction de l’utilisateur et de la date actuelle

Dans l’exemple suivant, attribuez à la première feuille de calcul du classeur le nom de l’utilisateur, combiné à la date actuelle.

Sub NomUtilisateurDate()
Worksheets(1).Name = Application.UserName & ", " & Date
End Sub

Commentaires

Le nom de la nouvelle feuille de calcul est formé à partir du nom d’utilisateur d’information et de la date actuelle. Vous pouvez déterminer le nom d’utilisateur à l’aide de la propriété UserName. Vous pouvez trouver le nom d’utilisateur ainsi déterminé manuellement en sélectionnant la commande OPTIONS dans le menu EXTRAS, puis en passant à l’onglet GENERAL et en regardant dans le champ USER NAME. La fonction Date vous fournit la date actuelle. Les deux informations sont concaténées avec l’opérateur de concaténation &.

Bien sûr, vous pouvez ajouter de nouvelles feuilles de calcul et les nommer en une seule fois:

Sub InsertionNomFeuil ()
  Worksheets.Add.Name = "Feuil5"
End Sub

 

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x