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

Eric C

XLDnaute Barbatruc

• 30 Octobre 2021

• #2

Bonsoir le forum
Bonsoir Eric Dé

VB:

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

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

 

Vote positif 0 Vote négatif

Solution

Eric C

XLDnaute Barbatruc

• 30 Octobre 2021

• #3

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 :

VB:

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

@+ Eric c

 

Vote positif 0 Vote négatif

E

Eric Dé

XLDnaute Occasionnel

• 31 Octobre 2021

• #4

Bonsoir Eric C

Une nouvelle fois merci pour ton aide!

Bonne soirée
Eric Dé 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2021

• #5

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+

 

Vote positif 0 Vote négatif

E

Eric Dé

XLDnaute Occasionnel

• 31 Octobre 2021

• #6

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 31 Octobre 2021

• #7

Bonjour à tous

job75 à dit:

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

Cliquez pour agrandir...

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, les noms ne peuvent pas être vides, comporter plus de 31 caractères, utiliser le nom « Historique », etc.

support.microsoft.com

Bonne lecture

@Phil69970

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 31 Octobre 2021

• #8

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 :

VB:

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

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2021

• #9

Eric Dé à dit:

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 ?

Cliquez pour agrandir...

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

VB:

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

Salut Phil69970.

Bonne nuit.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 1 Novembre 2021

• #10

Re

Avec une gestion d'erreur tout s'arrange :

VB:

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

@Phil69970

 

Dernière édition: 1 Novembre 2021

Vote positif 0 Vote négatif