Période comme nom d'Onglet

bonjour Christian,

si tu précisais ce que tu entends par période, et ce que
tu veux exactement en sortie, je parie que tu aurais la
réponse en moins de 10 mn.

J-Dan

-----Message d'origine-----
Bonjour à tous

Actuellement j'utilise le code suivant reçu sur le forum
comme nom d'onglet:
Private Sub Workbook_SheetChange(ByVal Sh As Object,
ByVal Target As Range)
If Target.Address = "$C$1" Then
If Not IsDate(Target.Value) Then Exit Sub
Target.Parent.Name = Format(Target.Value, "ddmmyy")
End If
End Sub
On me demande maintenant d'inscrire la période et non
plus la date à laquelle je travaille comme nom d'onglet.
Exemple: 0608_100804
Que faut-il modifier au code pour obtenir satisfaction.
Merci d'avance pour votre aide.
Christian
.

Bonsoir,

En supposant que C1 contienne le premier jour de la période et que les périodes
soient des périodes de 5 jours, tu pourrais essayer :

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Address = "$C$1" Then
If Not IsDate(Target.Value) Then Exit Sub
Target.Parent.Name = Format(Target.Value, "ddmm_") & _
Format(Target.Value + 4, "ddmmyyyy")
End If
End Sub

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour à tous

Actuellement j'utilise le code suivant reçu sur le forum
comme nom d'onglet:
Private Sub Workbook_SheetChange(ByVal Sh As Object,
ByVal Target As Range)
If Target.Address = "$C$1" Then
If Not IsDate(Target.Value) Then Exit Sub
Target.Parent.Name = Format(Target.Value, "ddmmyy")
End If
End Sub
On me demande maintenant d'inscrire la période et non
plus la date à laquelle je travaille comme nom d'onglet.
Exemple: 0608_100804
Que faut-il modifier au code pour obtenir satisfaction.
Merci d'avance pour votre aide.
Christian

Merci pour vos solutions.
Vous êtes super.
Christian

-----Message d'origine-----
Bonsoir,

En supposant que C1 contienne le premier jour de la
période et que les périodes

soient des périodes de 5 jours, tu pourrais essayer :

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Address = "$C$1" Then
If Not IsDate(Target.Value) Then Exit Sub
Target.Parent.Name = Format(Target.Value, "ddmm_")
& _

Format(Target.Value +
4, "ddmmyyyy")

End If
End Sub

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour à tous

Actuellement j'utilise le code suivant reçu sur le
forum

comme nom d'onglet:
Private Sub Workbook_SheetChange(ByVal Sh As Object,
ByVal Target As Range)
If Target.Address = "$C$1" Then
If Not IsDate(Target.Value) Then Exit Sub
Target.Parent.Name = Format
(Target.Value, "ddmmyy")

End If
End Sub
On me demande maintenant d'inscrire la période et non
plus la date à laquelle je travaille comme nom
d'onglet.

Exemple: 0608_100804
Que faut-il modifier au code pour obtenir satisfaction.
Merci d'avance pour votre aide.
Christian
.