Mettre à jour le nom d'une feuille

Résolu/Fermé

Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 - 3 nov. 2016 à 21:29
Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 - 4 nov. 2016 à 08:57

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

A voir également:

Mettre à jour le nom d'une feuille
Mettre à jour ses pilotes - Guide
Nom de l'adresse - Forum Réseaux sociaux
Mettre a jour airpods - Guide
Annuaire portable gratuit a partir d'un nom - Forum Réseaux sociaux
Croix a cote du nom snap - Forum Snapchat

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
3 nov. 2016 à 21:40

Bonjour,

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

Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 2
3 nov. 2016 à 21:54

Salut gbinforme

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"

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
3 nov. 2016 à 22:05

Re : Tu as plus de 13 Feuilles ?

Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 2 > gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
3 nov. 2016 à 22:56

oui
mon classeur possède 19 feuilles, mais seulement 13 avec le mois et l'année

Salut gbinforme

j'ai remplacé

"For feu = 2 To Sheets.Count"
en

"For feu = 2 To 13"

Ca fonctionne bien

merci encore

titi32600

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
4 nov. 2016 à 08:52

Bonsoir,
Voilà l'intérêt d'être précis quand l'on pose une question. ;-)

Réponse 2 / 2

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 3/11/2016 à 21:50

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.

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

Trouver un nom avec une adresse

Comment trouver un numéro à partir du nom et prénom

Comment trouver une adresse avec un nom de famille ?

Discussions similaires

Newsletters