7 onglets existant se renommant en fonction d'une date

[Belsebou]

Bonsoir à vous,
après avoir tenter d'adapter des réponses à mon problème je n'ai pu trouver la solution qui me satisfasse.
j'ai 8 onglets
7 sont nommés "lundi", "mardi"...
et 1 qui me permet de saisir la date du lundi qui commence ma semaine (ex: lundi 22 octobre 2007)
mon problème:
je souhaiterais renommer les 7 onglets "lundi", "mardi"... en "lundi 22", "mardi 23"...à partir de ma date saisie en une seule fois (j'ai résussi onglet par onglet mais cela m'oblige chaque semaine à applique 7 fois la même macro!!!)
d'avance merci

 

[TheLio]

Re : 7 onglets existant se renommant en fonction d'une date

Salut, sais pas si c'est ce quee tu cherches, à tester

Private Sub()
'
'
Dim i%
On Error Resume Next
For i = 1 To Sheets.Count
    Sheets(i).Name = Sheets(i).Range("[COLOR="Green"]la cellule que tu désire[/COLOR]").Value
Next i
End Sub

A++
TheLIo

 

[matthieu33]

Re : 7 onglets existant se renommant en fonction d'une date

Bonsoir à tous,

Voici une autre version

@+

 

[Staple1600]

Re : 7 onglets existant se renommant en fonction d'une date

Bonjour




(message édité :finalement la version de Matthieu33 correspond plus à la demande du posteur-> pj otée.)

 

[Belsebou]

Re : 7 onglets existant se renommant en fonction d'une date

merci beaucoup pour vos réponses qui me permettent d'avancer un peu plus dans VBA.
merci particulier à Matthieu33 pour sa réponse qui colle tout à fait.
dernière question: comment notifier ce problème résolu?