XL 2010 Donner comme nom à une feuille la valeur d'une cellule nommée

[Eric Dé]

Bonjour,

Je souhaite donner comme nom à une feuille la valeur d'une cellule nommée.

Je cherche comment formuler ceci en vba.

Merci pour votre aide.

Eric

 

[Eric C]

Bonsoir le forum
Bonsoir Eric Dé

Sub renomme()
ActiveSheet.Name = ActiveSheet.Range("A1").Value
End Sub

N'oubliez pas le changement d'heure
@+ Eric c

 

[Eric C]

Tu peux également le mettre dans l'évènement de ta feuille, ainsi le nom de l'onglet changera lorsque la valeur de "A1" sera modifiée :

Private Sub Worksheet_Change(ByVal Target As Range)
  ActiveSheet.Name = ActiveSheet.Range("A1").Value
 End Sub

@+ Eric c

 

[Eric Dé]

Bonsoir Eric C

Une nouvelle fois merci pour ton aide!

Bonne soirée
Eric Dé

 

[job75]

Bonsoir les Eric,

Les solutions proposées par Eric C ne vont pas si l'on entre une date en A1.

Je vous laisse trouver pourquoi.

A+

 

[Eric Dé]

Question subsidiaire : Dans ta première solution, à la place de "A1", je souhaiterais mettre le nom de la cellule qui, en l'occurrence se trouve sur une autre feuille du dossier.
Comment formulerais-tu la ligne dans ce cas ?

Merci d'avance !
Eric

 

[Phil69970]

Bonjour à tous

Les solutions proposées par Eric C ne vont pas si l'on entre une date en A1.

Et pas que....

Voir ici :

Renommer une feuille de calcul - Support Microsoft

Par défaut, Excel nomme les feuilles de calcul Feuil1, Feuil2, Feuil3 et ainsi de suite, mais vous pouvez facilement les renommer. Il existe plusieurs façons de renommer des feuilles. Toutefois, il ne peut pas y avoir de noms vides, faire plus de 31 caractères, utiliser le nom « Historique », etc.

support.microsoft.com

Bonne lecture

@Phil69970

 

[Eric C]

Bonsoir Eric Dé, bonsoir job75, bonsoir Phil69970

@job75 : Exact (notre ami Phil donne en détail l'explication) mais la réponse a été donnée dans un cadre d'ordre général - Par ailleurs, on peut toujours biaiser en personnalisant la date avec la ponctuation "." ou "-".

@Eric Dé - Tu remplaces le code donné par :

ActiveSheet.Name = Sheets("Feuil3").Range("A1").Value

Bonne soirée (nuit) à toutes & à tous
@+ Eric c

 

[job75]

Question subsidiaire : Dans ta première solution, à la place de "A1", je souhaiterais mettre le nom de la cellule qui, en l'occurrence se trouve sur une autre feuille du dossier.
Comment formulerais-tu la ligne dans ce cas ?

Si la cellule source est nommée "toto" dans le classeur :

Sub renomme()
ActiveSheet.Name = [toto]
End Sub

Salut Phil69970.

Bonne nuit.

 

[Phil69970]

Re

Avec une gestion d'erreur tout s'arrange :

Sub Renomme
On Error Resume Next
ActiveSheet.Name = Range("A1").Value
If Err <> 0 Then Err.Clear
End Sub

@Phil69970