renommer les feuilles

[sesa]

Bonsoir le forum

Est il possible dans un classeur de 52 feuilles (semaines de l'année 2007) de les renommer d'un seul clique
dans le but d'éviter ceci ==> clique droit et les renommer une à une,
et de gagner du temps...

dans l'attente de vos réponses

au plaisir

 

[Cousinhub]

Re : renommer les feuilles

Bonsoir, oui, c'est possible, mais par macro

 

[Staple1600]

Re : renommer les feuilles

Bonsoir

edit: mauvais copier coller désormais corrigé

Pour créer 52 feuilles

Sub C_FeuillesHEBDOS()
Dim i  As Integer
For i = 1 To 52
    Worksheets.Add after:=Worksheets(Sheets.Count)
ActiveSheet.Name = "SEM_" & Format(i, "00") & "-" & Year(Date)
Next i
End Sub

Pour renommer 52 feuilles (attention les 52 feuilles doivent préexistées)

Sub R_FeuillesHEBDOS()
Dim i  As Integer
For i = 1 To 52
     Sheets(i).Name = "SEM_" & Format(i, "00") & "-" & Year(Date)
Next i
End Sub

 

[sesa]

Re : renommer les feuilles

MErci Staple1600 et Bhbh

Staple,

J'ai essayé tes macros super.

Par contre, est il possible de mettre les mois comme juin, juillet etc... en fonction des semaines
ensuite, sur chaque feuille je dois recopier à chaque fois le même tableau de planning qui évidemment changera avec les semaines attribuées
as tu une astuce

merci à tous les deux

mon but est de renommer mes feuilles sur un exercice datant du 01/07/07 au 31/06/08

 

[sesa]

Re : renommer les feuilles

parler trop vite cette macro n'arrive pas à faire marcher

Sub R_FeuillesHEBDOS()
Dim i As Integer
For i = 1 To 52
ActiveSheet.Name = "SEM_" & Format(i, "00") & "-" & Year(Date)
Next i
End Sub

pas pu joindre un fichier pour test car trop de feuilles
désolé

 

[Pierrot93]

Re : renommer les feuilles

Bonsoir Sesa, Staple

essaye comme ceci, en supposant que tu commences à renommer à partir de la 1ère feuille :

Dim i As Byte
For i = 1 To 52
    Sheets(i).Name = "SEM_" & Format(i, "00") & "-" & Year(Date)
Next i

bonne soirée
@+

 

[Pierrot93]

Re : renommer les feuilles

Re

avec le nom des mois :

[
bonne soirée
@+

Edition : avais pas vu que c'était de juillet à juin.... à tester...

2 ème edition : code supprimé, voir dernier post

 

[Pierrot93]

Re : renommer les feuilles

Bonjour,

petite rectification matinale, pour tenir compte du départ au 1 er juillet, attention à priori il y a 55 semaines sur cette période...

Sub test()
Dim i As Date, x As Byte, y As Byte, z As Byte
For i = DateSerial(Year(Date) - 1, 7, 1) To DateSerial(Year(Date), 6, 30)
    x = DatePart("ww", i, 2, 2)
    If x <> y Then
        y = x
        z = z + 1
        Sheets(z).Name = "SEM_" & Format(x, "00") & "-" & MonthName(Month(i)) & "-" & Year(i)
    End If
Next i
End Sub

bonne journée.
@+

 

[sesa]

Re : renommer les feuilles

MErci Pierrot ça marche

si je souhaite mettre de l'exercice 1 juillet 2008 au 31 juin 2009
quelle est la modification à faire

merci

 

[phlaurent55]

Re : renommer les feuilles

Salut sesa

il te suffit de modifier ceci For i = DateSerial(Year(Date) 0, 7, 1) To DateSerial(Year(Date) +1, 6, 30, )

 

[Pierrot93]

Re : renommer les feuilles

Bonsoir Sesa, phlaurent

modifies comme suit :

For i = DateSerial(Year(Date), 7, 1) To DateSerial(Year(Date) + 1, 6, 30)

@phlaurent
un zéro et une virgule de trop dans ton code

bonne soirée
@+

 

[sesa]

Re : renommer les feuilles

Bonsoir à tous les deux, et le forum

C'est ok, marche très bien
vois êtes trop fort.
j'aimerais en faire autant mais je ne comprends pas trop ceci : for i etc... comment faites vous,
y a t il une liste de code pour me permettre de créer ce genre de ligne de commande
bravo
bonne nuit