7 onglets existant se renommant en fonction d'une date

Belsebou · 22 Octobre 2007

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 · 22 Octobre 2007

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

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

Code:

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 · 22 Octobre 2007

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

Bonsoir à tous,

Voici une autre version

@+

Staple1600 · 22 Octobre 2007

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 · 23 Octobre 2007

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?

7 onglets existant se renommant en fonction d'une date

Belsebou

XLDnaute Nouveau

Pièces jointes

TheLio

XLDnaute Accro

matthieu33

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

Belsebou

XLDnaute Nouveau

Discussions similaires