Bonjour à tous,
Mon classeur contient 12 feuilles identiques, une pour chaque mois.
Dans la cellule H6 de la feuille 1, j'entre "01/19" et l'affichage est directement "janvier / 2019".
Sur la feuille 2, j'ai la formule suivante dans la cellule H6 verrouillée :
Le but étant d'enregistrer le mois et l'année sur la 1ere feuille et que les 11 autres soient mises à jour automatiquement. Jusque là, aucun soucis.
Afin de ne pas avoir à renommer la feuille 1 manuellement, j'utilise cette macro placée dans "ThisWorkbook" :
Je pense qu'il y a une solution plus simple que de créer une macro réalisant cette dernière étape.
Avez-vous une idée ?
Mon classeur contient 12 feuilles identiques, une pour chaque mois.
Dans la cellule H6 de la feuille 1, j'entre "01/19" et l'affichage est directement "janvier / 2019".
Sur la feuille 2, j'ai la formule suivante dans la cellule H6 verrouillée :
=MOIS.DECALER('01-19'!H6;1)
Sur la feuille 3, même principe, mais décalé : =MOIS.DECALER('01-19'!H6;2)
Et ainsi de suite...Le but étant d'enregistrer le mois et l'année sur la 1ere feuille et que les 11 autres soient mises à jour automatiquement. Jusque là, aucun soucis.
Afin de ne pas avoir à renommer la feuille 1 manuellement, j'utilise cette macro placée dans "ThisWorkbook" :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("H6")) Is Nothing Then: Exit Sub
mois = Format(Range("H6"), "mm-yy")
ActiveSheet.Name = mois
End Sub
Cela fonctionne très bien pour la feuille 1, mais pas pour les 11 autres. Pour que les autres feuilles soient renommées, je dois aller dans la cellule H6 de chaque feuille, double-cliquer puis [Entrée]. Et comme cette cellule est verrouillée sur les 11 autres feuilles, je dois Ôter la protection de la feuille avant, pour remettre la protection après.If Intersect(Target, Range("H6")) Is Nothing Then: Exit Sub
mois = Format(Range("H6"), "mm-yy")
ActiveSheet.Name = mois
End Sub
Je pense qu'il y a une solution plus simple que de créer une macro réalisant cette dernière étape.
Avez-vous une idée ?