Mettre à jour le nom d'une feuille
Résolu
Titi32600
Messages postés
87
Date d'inscription
Statut
Membre
Dernière intervention
-
Titi32600 Messages postés 87 Date d'inscription Statut Membre Dernière intervention -
Titi32600 Messages postés 87 Date d'inscription Statut Membre Dernière intervention -
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
- Comment supprimer une feuille sur word - 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. ;-)