Mettre à jour le nom d'une feuille
Résolu
Titi32600
Messages postés
92
Statut
Membre
-
Titi32600 Messages postés 92 Statut Membre -
Titi32600 Messages postés 92 Statut Membre -
Bonjour à tous
J'ai un classeur, qui regroupe mes heures de travail pour chaque mois de l'année.
Chaque feuille de mon classeur, la valeur de la cellule B22, porte le mois et l'année en cours.
exemple:
dans ma feuille 2, la cellule B22 = Janvier 2017,
dans ma feuille 3, la cellule B22 = Février 2017 ........ jusqu'à la feuille 13 dont la cellule B22 = Décembre 2017.
Je souhaiterais que le nom de chaque feuille soit égale à sa cellule B22.
Comme ce classeur pourra être utilisé l'année prochaine, il faudra un bouton avec un code VBA pour remplir le nom de toutes les feuilles avec la nouvelle valeur donnée en B22.
dans mon exemple :
le nom de la feuille "Janvier 2017" , sera remplacé en "Janvier 2018" grâce à la cellule B22 qui contiendra "Janvier 2018"....
merci encore
J'ai un classeur, qui regroupe mes heures de travail pour chaque mois de l'année.
Chaque feuille de mon classeur, la valeur de la cellule B22, porte le mois et l'année en cours.
exemple:
dans ma feuille 2, la cellule B22 = Janvier 2017,
dans ma feuille 3, la cellule B22 = Février 2017 ........ jusqu'à la feuille 13 dont la cellule B22 = Décembre 2017.
Je souhaiterais que le nom de chaque feuille soit égale à sa cellule B22.
Comme ce classeur pourra être utilisé l'année prochaine, il faudra un bouton avec un code VBA pour remplir le nom de toutes les feuilles avec la nouvelle valeur donnée en B22.
dans mon exemple :
le nom de la feuille "Janvier 2017" , sera remplacé en "Janvier 2018" grâce à la cellule B22 qui contiendra "Janvier 2018"....
merci encore
A voir également:
- Mettre à jour le nom d'une feuille
- Mettre a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Mettre a jour chromecast - Accueil - Guide TV et vidéo
- Comment mettre à jour ses pilotes - Guide
- Bruler feuille de laurier - Guide
2 réponses
Bonjour,
Avec cette procédure dans un module :
Avec cette procédure dans un module :
Public Sub MAJ_noms() Dim feu As Integer For feu = 2 To Sheets.Count Sheets(feu).Name = Sheets(feu).[B22].Text Next feu End Sub
Bonsoir,
Ce changement ne peut se faire que par VBA si tu as quelques notions, mais pour un changement une fois par an je ne vois pas l'intérêt d'écrire un code, mais enfin cela te regarde
type de code
Private Sub Worksheet_Activate()
ActiveSheet.Name = Range("B22").Value
End Sub
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
Ce changement ne peut se faire que par VBA si tu as quelques notions, mais pour un changement une fois par an je ne vois pas l'intérêt d'écrire un code, mais enfin cela te regarde
type de code
Private Sub Worksheet_Activate()
ActiveSheet.Name = Range("B22").Value
End Sub
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
Merci encore de ta solution.
Elle remplace bien le nom depuis la feuille 2 à la feuille 13, mais elle m'indique une erreur
"Erreur définie par l’application ou définie par l’objet"
mon classeur possède 19 feuilles, mais seulement 13 avec le mois et l'année
j'ai remplacé
"For feu = 2 To Sheets.Count"
en
"For feu = 2 To 13"
Ca fonctionne bien
merci encore
titi32600
Voilà l'intérêt d'être précis quand l'on pose une question. ;-)