XL 2013 actualiser le nom des onglets en automatique à l'ouverture du fichier et ou VBA

mrdo

XLDnaute Nouveau
Bonjour,

J'ai un dossier de 30 onglets. chaque onglet est nommé en automatique toujours à partir de la cellule BK4.

//Private Sub Worksheet_SelectionChange(ByVal Target As Range)
//Set Target = Range("$BK$4")
//If Target = "" Then Exit Sub
//Application.ActiveSheet.Name = VBA.Left(Target, 31)
//Exit Sub
//End Sub

formule qui marche très bien, merci à celui et ceux qui on partagé.

actuellement je dois ouvrir chaque onglet cliquer sur la cellule pour que l'onglet se mette à jour.
je cherche une solution pour automatiser l'actualisation de tous les onglets en même temps.
soit par bouton soit à l'ouverture du fichier
si vous avez des idées je suis preneur,
 
Solution
tout d'abord, merci Eric le code fonctionnait très bien

je tiens à m'excuser, mon compte était bloqué et je ne pouvais pas répondre.
En fin de compte il fallait simplement réinitialiser mon mot de passe et ça refonctionne.

encore désolé. j'étais pris par le temps pour essayer de me débloquer, et j'ai agi un peu précipitamment.

donc désolé pour cette mauvaise pratique, mais je cherchais une réponse et ne pouvant plus utiliser ce site je suis passé par un autre.

la solution finale pour moi avec commande à partir d'un bouton:

Private Sub CommandButton9_Click()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Name = F.Range("BK4")
Next
End Sub

merci Eric, et moi je te salue

Eric C

XLDnaute Accro
Bonjour mrdo, le forum

A adapter et mettre dans le code de ThisWorkBook
VB:
Private Sub Workbook_Open()
Dim F As Worksheet
For Each F In Worksheets
F.Name = F.Range("BK4")
Next
End Sub

Bonne après midi à toutes & à tous
@+ Eric c
 
Dernière édition:

Eric C

XLDnaute Accro
Re le forum

mrdo ou Xûr76 ou ou…,ce n'est pas très sympa d'aller poster ailleurs[Ici] .
Comme le dit notre ami BrunoM45 (que je salue au passage), la pratique du cross posting est mal perçue à plus forte raison lorsque vous allez chercher ailleurs une solution à partir d'une réponse qui vous a été donnée sur ce forum et que vous n'avez pas su mettre en application alors qu'une ou des feuilles étaient masquées et généraient ainsi une erreur. La logique (ET la politesse) eut été de continuer sur ce fil pour obtenir une réponse positive à votre soucis ????

Je ne te salue pas
@+ Eric c
 

mrdo

XLDnaute Nouveau
tout d'abord, merci Eric le code fonctionnait très bien

je tiens à m'excuser, mon compte était bloqué et je ne pouvais pas répondre.
En fin de compte il fallait simplement réinitialiser mon mot de passe et ça refonctionne.

encore désolé. j'étais pris par le temps pour essayer de me débloquer, et j'ai agi un peu précipitamment.

donc désolé pour cette mauvaise pratique, mais je cherchais une réponse et ne pouvant plus utiliser ce site je suis passé par un autre.

la solution finale pour moi avec commande à partir d'un bouton:

Private Sub CommandButton9_Click()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Name = F.Range("BK4")
Next
End Sub

merci Eric, et moi je te salue
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
297 994
Messages
1 964 956
Membres
200 781
dernier inscrit
MaxREN75