Lancemant automatique d'une macro

Résolu/Fermé

Pierrot94 - 1 sept. 2016 à 16:39
Pierrot94 - 5 sept. 2016 à 15:33

Bonjour,
Souhaitant développer un outil "semi-automatique" pour mon équipe administrative afin de limiter les saisies et ainsi les possibilités d'erreur, mes connaissance en Excel sont insuffisantes, je dois passer aux macros que je ne maitrise pas du tout.

Sur Excel 2010, un documents de 22 feuilles dont la 1ère, le sommaire avec un tableau récapitulant tous les mois de l'année entre 2 dates saisies manuellement.
Les cellules A1 de chaque feuille sont automatiquement modifiées en fonction des dates du sommaire.
Je souhaite renommer toutes les feuilles au format "mmmm-yy" en fonction des dates en A1 de chacune des feuilles, et pour ce faire voici le code entré dans "ThisWorkbook"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then: Exit Sub
test = Format(Range("A1"), "mmmm-yy")
ActiveSheet.Name = test
End Sub

Ca fonctionne mais si le sommaire est modifié, les cellule A1 sont également modifiées mais pas le nom des feuilles. Il faut entrer dans chaque cellule A1 (double click), la valider (entrée) pour que la feuille se renomme.

Comment faire pour que les 22 feuilles soient mises à jour en temps réel et automatiquement dès modification du sommaire ?

D'avance un grand merci !
Pierrot94

A voir également:

Lancemant automatique d'une macro
Macro word - Guide
Message automatique thunderbird - Guide
Macro logiciel - Télécharger - Organisation
Réponse automatique outlook - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 2/09/2016 à 08:35

Bonjour

L'événement "change" n'est activé que sur une saisie manuelle...

dans le module de la feuille "sommaire"
essaie

Option Explicit
'--------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Test As String
With ActiveSheet
If .Name <> "sommaire" Then
    Test = Format(.Range("A1"), "mmmm-yy")
    .Name = Test
End If
End With

End Sub

Michel

Pierrot 94
2 sept. 2016 à 15:35

Bonjour michel_m et merci pour cette proposition.
Ca ne change rien malheureusement.

L'évènement "change" n'est activé que sur une saisie manuelle.
Quel évènement peut s'activer tout le temps ou seulement à partir de la modification d'une seule cellule dans tout le fichier ?

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > Pierrot 94
3 sept. 2016 à 08:05

oups!
la macro est à copier dans le module "thisworkbook" et non "sommaire"
excuse moi

Pierrot94
5 sept. 2016 à 15:33

Bonjour michel_m et merci pour cette macro.
Ca fonctionne à partir du moment où on clique sur l'onglet qui se renomme automatiquement.
Génial, le fichier va être testé par l'équipe administrative dès cette semaine !
Merci encore.

Discussions similaires

creer sms automatique en cas d'absence

Discussions similaires

Newsletters