Nommer la feuille de calcul après une cellule

Anonim

Comment définir un nom de table à l'aide d'une macro

Souhaitez-vous vous assurer que le nom du tableau actif correspond au texte qui peut être trouvé dans une cellule spécifique du tableau ? Utilisez la macro suivante :

Définir les noms de sous-table ()
Dim Cell As String
Cellule = "a1"
ActiveSheet.Name = ActiveSheet.Range (cellule) .Text
Fin du sous-marin

Avec la valeur de la variable cellule définir de quelle cellule le texte doit être pris. Pour ce faire, transférez la référence de cellule appropriée (ici : A1) comme adresse.

La macro prend le contenu de la cellule correspondante dans la table active. La feuille de calcul actuelle est alors renommée en conséquence. La figure suivante montre un exemple de table renommée :