Changement automatique du nom des onglets

Bonjour,

N'ayant pas réussi à trouver de solution à mon problème, je m'adresse aux experts de VBA:

J'ai un classeur avec plusieurs onglets parmi lesquels certains sont nommés SOCIETE 1, SOCIETE 2... jusqu'à SOCIETE 17.

Je cherche une solution pour que ces onglets changent de nom automatiquement en prenant le nom de la société qui s'affiche dans une cellule (F1) dans chacune des 17 feuilles.

Merci d'avance pour votre aide.

Jerome

Bonjour,

Si la valeur de F1 est saisie manuellement, une évènementielle peut aligner le nom de la feuille sur F1 lorsque la valeur de F1 change.

Cordialement.

Bonjour,

Effectivement la cellule F1 de chacune des 17 feuilles se modifie automatiquement.

Par contre n'ayant pas de compétence en VBA, auriez-vous une macro à recopier SVP...

Cordialement

Jérôme

MFerrand a écrit :

Bonjour,

Si la valeur de F1 est saisie manuellement, une évènementielle peut aligner le nom de la feuille sur F1 lorsque la valeur de F1 change.

Cordialement.

Tu réponds à la question inverse qui ne fournit pas une réponse exactement réciproque... Si tu veux bien répondre à la question, ce serait plus simple.

Bonjour,

Afin que mon post soit plus clair, je vous envoi un exemple de fichier sur lequel je travaille.

je saisi dans la case Orange de l'onglet SOCIETE 1 un numéro de groupe (ici, soit 365, soit 125, soit 545) et le nom des siren en case F1 des onglets SOCIETE 1, SOCIETE 2 et SOCIETE 3 changent via une rechercheV.

Ainsi, je souhaite que les nom en F1 soit également les noms des onglets: Exemple pour le groupe 125: le nom "SAS PIERRE" qui s'affiche en F1 soit le nom de mon onglet 1 (à la place de "SOCIETE 1"), idem pour l'onglet SOCIETE 2, et SOCIETE 3.

Par contre pas de changement sur le nom des onglet "RECAP SOCIETE 1", "RECAP SOCIETE 2"...

Ici les sociétés vont jusqu'à 3 mais dans mon fichier cela va jusqu'à SOCIETE 17

Merci de votre retour.

Cordialement.

Tu es particulièrement brouillon ! Ta formule est en E1 ! On ne sait pas si la cellule orange est en C1 dans ton fichier réel, si on efface C1, E1 affiche une erreur...

Donc tu fais en sorte que F1 n'affiche pas d'erreur (la valeur prévue ou "") et tu mets la macro suivante dans le module ThisWorkbook :

Private Sub Workbook_Open()
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name Like "SOCIETE*" Then
            If ws.Range("F1") <> "" Then ws.Name = ws.Range("F1").Value
        End If
    Next ws
End Sub

A l'ouverture cela mettra tes noms d'onglets à jour.

Ensuite, je conseillerais de la supprimer.

Oui je ne suis pas un pro d'Excel! En tout cas merci pour ton aide. Je vais essayer de faire fonctionner ta Macro.

Cordialement.