Nom d'onglet automatique
Marlj
Messages postés
58
Date d'inscription
Statut
Membre
Dernière intervention
-
Marlj Messages postés 58 Date d'inscription Statut Membre Dernière intervention -
Marlj Messages postés 58 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je veux faire une fonction dont j'ai trouvé la moitié de la réponse sur les forum. Voici, j'ai un fichier modèle de rapports journaliers (4 jours/semaine). Le fichier contient les feuilles pour 1 mois, j'ai donc autour de 16 feuilles. J'ai la date du jour en cellule F1.
Dans la première feuille je mets la date du premier lundi du mois (ex. : 6 avril) ensuite mes feuilles suivantes, dans ma cellule F1, j'ai toujours la date de la feuille précédente plus 1 (et évidemment plus 4 pour la feuille du lundi suivant).
J'ai trouvé le code suivant à mettre dans le code, dans ThisWorkbook :
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Address = "$F$1" And Target.Value <> "" _
Then ActiveSheet.Name = Target.Value
End Sub
Ça fonctionne, ça c'est ma première moitié qui fonctionne. Cependant, si je change la date de ma première feuille (pour mettre le 4 mai par exemple) et que donc toutes les dates de mes feuilles suivantes changent, mes onglets ne changent pas. Si je double-clique dans la cellule F1 et que je fais Enter, ça fonctionne, mais moi je voudrais que ce soit automatique (ou que je puisse cliquer sur un bouton). Quelqu'un a-t-il une solution?
Merci de vos lumières.
Je veux faire une fonction dont j'ai trouvé la moitié de la réponse sur les forum. Voici, j'ai un fichier modèle de rapports journaliers (4 jours/semaine). Le fichier contient les feuilles pour 1 mois, j'ai donc autour de 16 feuilles. J'ai la date du jour en cellule F1.
Dans la première feuille je mets la date du premier lundi du mois (ex. : 6 avril) ensuite mes feuilles suivantes, dans ma cellule F1, j'ai toujours la date de la feuille précédente plus 1 (et évidemment plus 4 pour la feuille du lundi suivant).
J'ai trouvé le code suivant à mettre dans le code, dans ThisWorkbook :
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Address = "$F$1" And Target.Value <> "" _
Then ActiveSheet.Name = Target.Value
End Sub
Ça fonctionne, ça c'est ma première moitié qui fonctionne. Cependant, si je change la date de ma première feuille (pour mettre le 4 mai par exemple) et que donc toutes les dates de mes feuilles suivantes changent, mes onglets ne changent pas. Si je double-clique dans la cellule F1 et que je fais Enter, ça fonctionne, mais moi je voudrais que ce soit automatique (ou que je puisse cliquer sur un bouton). Quelqu'un a-t-il une solution?
Merci de vos lumières.
A voir également:
- Nom d'onglet automatique
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Raccourci rouvrir onglet fermé - Guide
- Réponse automatique gmail - Guide
- Sommaire automatique word - Guide
