Nom d'un onglet

[jbdubreuil]

Bonjour le forum,

Y aurait il une astuce pour que l' onglet prenne le nom d'une cellule ou d'un nom nommé?

Par exemple j'ai en cellule A1 la date qui change tous les jours... Aujourd'hui: A1 = 30oct06
Est il possible d'avoir le nom de cet onglet lié à la date d'aujoud'hui?

Merci par avance !!!

jb

 

[Moa]

Re : Nom d'un onglet

Salut !

Avec une macro évènementielle :

Private Sub Worksheet_Activate()
ActiveSheet.Name = Range("a1").Value
End Sub


@ +++

ChrisOne

 

[pierrejean]

Re : Nom d'un onglet

bonjour jbdubreuil

Salut Moa

vois si cela te convient

(peut-etre un peu tarabiscoté)

 

[jbdubreuil]

Re : Nom d'un onglet

Merci Moa et Pierre Jean pour vos reponses.
J'ai utilisé la macro de Moa et ca marche carrement bien.
J'avais donné l'exemple de dates, mais je cherchais aussi avec des valeurs.
Et ca marche dans tous les cas.

Juste une question,
Pour updater les noms des onglets, je devrais utiliser une autre macro refresh j'imagine en ouverture du fichier.
Qqn en aurait une sous la main?
Je dois avoir ca dans un fichier assez ancien, mais ca ne fonctionnait pas toujours bien.

Merci en tous les cas,
Vraiment une aide tres precieuse !!!

 

[porcinet82]

Re : Nom d'un onglet

Bonjour a tous,

Comme mes collègues Moa et Pierrejean ont l'air d'etre partit mangé, je te propose ceci (à mettre dans le module ThisWorkbook) :

Private Sub Workbook_Open()
Dim i%
For i = 1 To Sheets.Count
    Sheets(i).Name = Sheets(i).Range("a1").Value
Next i
End Sub

Ici ca boucle sur toutes les feuilles, apres, je te laisse le soin d'adapter.

@+

 

[jbdubreuil]

Re : Nom d'un onglet

Merci Porcinet,

Il faut avouer que je ne maitrise pas bien les macro.
J'ai donné un nom (Onglet) avec un bouton et utilise ton code.
Ca ne marche pas qd je press le bouton... "Erreur sur Sub Onglet ()"
Bizarre non?

Sub Onglet()
Private Sub Workbook_Open()
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("d1").Value
Next i
End Sub

 

[CB60]

Re : Nom d'un onglet

bonjour
Tu ne dois pas changer le nom de la macro, car le but de celle ci c'est lors de l'ouverture regarder "A1" est nommer ton onglet.Remet "Workbook_Open" et enregistre ton classeur, à l'ouverture l'onglet prendras le nom de "A1".
Private Sub Workbook_Open()
Dim i%
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("a1").Value
Next i
End Sub

ajoute cette ligne pour le cas ou en A1 tu n'a rien d'écris.
On Error Resume Next
Bruno

 

[pierrejean]

Re : Nom d'un onglet

re à tous

dans ce que j'ais precedemment posté il y a une macro dans
workbook_open qui recherche la feuille comportant la date dans A1

elle peut etre adaptée a toute autre valeur

 

[jbdubreuil]

Re : Nom d'un onglet

CB60, Porcinet...

Je suis vraiment desolé. Je suis completement incompetent...
D'habitude je crée des "boutons".
Là vous me dites que la macro fonctionne à l'ouverture du fichier.
Seul probleme je ne sais pas comment vous l'enregistrer cette macro...
Dans VBA project -> Microsoft Excel Object -> This workbook ?

Je suis perdu. Et c'est vraiment la base,
Si vous avez un exemple à m'envoyer sur excel, ca pourrait peut etre m'aider.

Merci,

jb

 

[nat54]

Re : Nom d'un onglet

exact, à copier dans this workbook 🙂
et la macro se lancera gentiment et toute seule à chaque lancement du fichier

 

[Dull]

Re : Nom d'un onglet

Salut Jbdubreuil, Moa, Pierrejean, Romain, CB60, nat54, le Forum

Tiens mis en images les exellentes réponses des sus-nommés

c'estjustepourdireBonjour

 

[jbdubreuil]

Re : Nom d'un onglet

Merci à vous tous...
Et à bientot sur le forum 😉

jb

 

[_Thierry]

Re : Nom d'un onglet

Bonjour

Just for the Fun...




Bon Aprèm

@+Thierry
​

 

[nat54]

Re : Nom d'un onglet

y'en a qui s'amusent MDR
mais au moins c'est clair 🙂