[VBA-E] Nom d'onglet automatique

Bonjour,

Je voudrais savoir s'il est possible de récupérer l'événement lorsqu'on renomme un onglet? Sinon, est-il possible qu'une cellule prennent automatiquement le nom de l'onglet dans lequel il se trouve?

Présentement, je n'ai aucun problème pour récupérer le nom de l'onglet, mais lorsque je renomme l'onglet, la cellule dans laquelle j'inscris le nom ne s'ajuste pas automatiquement.

Merci pour votre aide

Ha ben là... J'avoue que je reste sec.
Je n'avais jamais pensé à ce événement...
C'est indiscret de savoir pourquoi tu répètes le nom de l'onglet dans une cellule? Parce que si personne n'arrive à faire ce que tu veux, peut-être qu'on pourrait contourner le problème.

C'est parce que mes onglets se nomment ex. "Projet 1". Par contre, si l'utilisateur a plus d'un projet il doit copier l'onglet et le renommer ex. "Projet 2". J'ai besoin d'une cellule dans laquelle je pourrai inscrire le numéro du projet parce qu'après j'importe le fichier excel dans Access et je ne peux pas avoir deux projets avec le même numéro et je ne veux pas que l'utilisateur ait le choix du numéro question de validation.

J'espère que mon explication vous éclaire un peu.

Merci

D'accord. Et quand tu fais ton export vers access, pourquoi ne récupères-tu pas le nom du projet dans l'étiquette de l'onglet (ActiveWorkSheet.Name), au lieu de le prendre dans une cellule redondante, avec le nom de l'onglet répétée là?

Qu'appelles-tu un onglet ? Le nom de la feuille de calcul ?
Dans l'ignorance, je te propose toujours ça

Code:

---

Cells(1,1).value = activeSheet.name

---

mais comme ça me paraît évident, et que megachose était "sec", j'ai un doute

A+

C'est sûr que pour l'export c'est faisable mais on m'a demandé de l'afficher dans le formulaire excel puisqu'il pourrait arriver qu'on imprime ce formulaire.

Ousk, comment déclenches-tu ton bout de code? Il n'y a pas d'événement déclenché par le changement de nom d'un onglet. Si?

Non, c'est justement ce que je cherche.

Code:

---

Cells(1,1).value = activeSheet.name

---

fonctionne oui mais il ne s'active pas automatiquement si je change le nom de l'onglet.

après enregistrement du fichier

Code:

---

1 2	=STXT(CELLULE("nomfichier");CHERCHE("]";CELLULE("nomfichier");1)+1;NBCAR(CELLULE("nomfichier"))-CHERCHE("]";CELLULE("nomfichier")))

---

J'ai besoin que la cellule s'ajuste automatiquement lors de la modification et non lors de la fermeture sinon ça peut porter à confusion pour l'utilisateur qui voit que son no de projet est le même que la feuille d'avant.

Y'a peut-être une petite solution mais c'est pas la meilleure. J'utilise l'événement

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells(12, 15) = Mid(ActiveSheet.Name, 8) End Sub

---

Mais il la cellule ne change que si je clique ailleurs dans la feuille. C'est mieux que rien.

Mais si vous avez une meilleure idée, ne vous gênez pas!!!

Merci pour votre aide

le nom de feuille se met automatiquement
donc sur
Private Sub Workbook_NewSheet tu peux mettre ma formule en a1

si ca ne suit pas tu transféres la formule dans une fonction avec
application.volatile

C'est sûr que c'est une bonne idée mais lorsqu'on copie une feuille, elle prend le même nom que la source avec (2) à côté. Si l'utilisateur veut renommer la feuille, le no ne suit toujours pas.

il faut encapsuler la fonction avec application volatile ou forcer le recalcul

Ok, mais comment je peux forcer le recalcul au moment du renommage (?) de l'onglet? Ça revient au problème de départ...

Je ne renomme pas ma feuille via du code mais bien en double-cliquant sur l'onglet.

Aucun événement ne correspond à un clic sur l'onglet. Ta solution du clic sur la feuille est bancale. Quant à la proposition de Random, faut un événement pour la réaliser...
Bref, on tourne en rond... O

Ok bien merci beaucoup pour votre aide, je vais m'accommoder de ma solution même si elle n'est pas totalement parfaite.

Merci beaucoup

J'aime bien l'idée par contre il ne faut pas que l'utilisateur oublie de cliquer pour changer le nom.

C'est pourquoi je trouve que ma solution est peut-être moins dangereuse vu que je ne peux pas avoir deux projets avec le même numéro.

Mais merci beaucoup pour ton aide.

Salut steps5ive !
Si tu considères que ce sujet est résolu, veux-tu bien cliquer sur le bouton :resolu: , en bas à gauche.
Merci !