Bonjour =E0 tous
J'aurais besoin d'une aide pour une macro
Je souhaiterais faire une macros qui me permettrai de changer les noms
de feuille en (G1) de chaque feuille en prennant la liste (C1:C13) de
la feuille nomm=E9 (Info) ce qui me permettra de renomm=E9 les selon la
s=E9lectionne d'ann=E9e en (B2)
j'ai dans le module de feuille se code qui nomme ma feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address =3D "$G$1" Then
ActiveSheet.Name =3D Format([G1], "mmmm yy")
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour, Ceci transforme le nom des feuilles comportant "un mois+ une année" en -Mois+ l'année en cours pour septembre >> décembre -Mois +l'année suivante pour janvier >> août Selon l'année en cours '------------------ Sub jj() Dim sh As Worksheet, i As Integer For i = 1 To 12 For Each sh In ThisWorkbook.Worksheets If Left(sh.Name, Len(sh.Name) - 3) = Format(DateSerial(Year(Date), i, 1), "mmmm") Then sh.Name = Format(DateSerial(Year(Date) - (i < 8), i, 1), "mmmm yy") End If Next Next End Sub '------------------
-- Salutations JJ
"Tibert" a écrit dans le message de news:
Bonjour à tous J'aurais besoin d'une aide pour une macro Je souhaiterais faire une macros qui me permettrai de changer les noms de feuille en (G1) de chaque feuille en prennant la liste (C1:C13) de la feuille nommé (Info) ce qui me permettra de renommé les selon la sélectionne d'année en (B2)
j'ai dans le module de feuille se code qui nomme ma feuille
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$1" Then ActiveSheet.Name = Format([G1], "mmmm yy") End If End Sub
Bonjour,
Ceci transforme le nom des feuilles comportant "un mois+ une année" en
-Mois+ l'année en cours pour septembre >> décembre
-Mois +l'année suivante pour janvier >> août
Selon l'année en cours
'------------------
Sub jj()
Dim sh As Worksheet, i As Integer
For i = 1 To 12
For Each sh In ThisWorkbook.Worksheets
If Left(sh.Name, Len(sh.Name) - 3) = Format(DateSerial(Year(Date), i, 1), "mmmm") Then
sh.Name = Format(DateSerial(Year(Date) - (i < 8), i, 1), "mmmm yy")
End If
Next
Next
End Sub
'------------------
--
Salutations
JJ
"Tibert" <syleg35@gmail.com> a écrit dans le message de news:
bf511e4f-9c84-46dd-9167-636f8784dd94@j10g2000vbe.googlegroups.com...
Bonjour à tous
J'aurais besoin d'une aide pour une macro
Je souhaiterais faire une macros qui me permettrai de changer les noms
de feuille en (G1) de chaque feuille en prennant la liste (C1:C13) de
la feuille nommé (Info) ce qui me permettra de renommé les selon la
sélectionne d'année en (B2)
j'ai dans le module de feuille se code qui nomme ma feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$1" Then
ActiveSheet.Name = Format([G1], "mmmm yy")
End If
End Sub
Bonjour, Ceci transforme le nom des feuilles comportant "un mois+ une année" en -Mois+ l'année en cours pour septembre >> décembre -Mois +l'année suivante pour janvier >> août Selon l'année en cours '------------------ Sub jj() Dim sh As Worksheet, i As Integer For i = 1 To 12 For Each sh In ThisWorkbook.Worksheets If Left(sh.Name, Len(sh.Name) - 3) = Format(DateSerial(Year(Date), i, 1), "mmmm") Then sh.Name = Format(DateSerial(Year(Date) - (i < 8), i, 1), "mmmm yy") End If Next Next End Sub '------------------
-- Salutations JJ
"Tibert" a écrit dans le message de news:
Bonjour à tous J'aurais besoin d'une aide pour une macro Je souhaiterais faire une macros qui me permettrai de changer les noms de feuille en (G1) de chaque feuille en prennant la liste (C1:C13) de la feuille nommé (Info) ce qui me permettra de renommé les selon la sélectionne d'année en (B2)
j'ai dans le module de feuille se code qui nomme ma feuille
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$1" Then ActiveSheet.Name = Format([G1], "mmmm yy") End If End Sub
sh.Name = Format(DateSerial(Year(Date) - (i < 8), i, 1), "mmmm yy")
par sh.Name = Format(DateSerial(Year(Date) - (i < 9), i, 1), "mmmm yy")
-- Salutations JJ
"Jacky" a écrit dans le message de news: j9duab$974$
Bonjour, Ceci transforme le nom des feuilles comportant "un mois+ une année" en -Mois+ l'année en cours pour septembre >> décembre -Mois +l'année suivante pour janvier >> août Selon l'année en cours '------------------ Sub jj() Dim sh As Worksheet, i As Integer For i = 1 To 12 For Each sh In ThisWorkbook.Worksheets If Left(sh.Name, Len(sh.Name) - 3) = Format(DateSerial(Year(Date), i, 1), "mmmm") Then sh.Name = Format(DateSerial(Year(Date) - (i < 8), i, 1), "mmmm yy") End If Next Next End Sub '------------------
-- Salutations JJ
"Tibert" a écrit dans le message de news:
Bonjour à tous J'aurais besoin d'une aide pour une macro Je souhaiterais faire une macros qui me permettrai de changer les noms de feuille en (G1) de chaque feuille en prennant la liste (C1:C13) de la feuille nommé (Info) ce qui me permettra de renommé les selon la sélectionne d'année en (B2)
j'ai dans le module de feuille se code qui nomme ma feuille
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$1" Then ActiveSheet.Name = Format([G1], "mmmm yy") End If End Sub
sh.Name = Format(DateSerial(Year(Date) - (i < 8), i, 1), "mmmm yy")
par
sh.Name = Format(DateSerial(Year(Date) - (i < 9), i, 1), "mmmm yy")
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: j9duab$974$1@speranza.aioe.org...
Bonjour,
Ceci transforme le nom des feuilles comportant "un mois+ une année" en
-Mois+ l'année en cours pour septembre >> décembre
-Mois +l'année suivante pour janvier >> août
Selon l'année en cours
'------------------
Sub jj()
Dim sh As Worksheet, i As Integer
For i = 1 To 12
For Each sh In ThisWorkbook.Worksheets
If Left(sh.Name, Len(sh.Name) - 3) = Format(DateSerial(Year(Date), i, 1), "mmmm") Then
sh.Name = Format(DateSerial(Year(Date) - (i < 8), i, 1), "mmmm yy")
End If
Next
Next
End Sub
'------------------
--
Salutations
JJ
"Tibert" <syleg35@gmail.com> a écrit dans le message de news:
bf511e4f-9c84-46dd-9167-636f8784dd94@j10g2000vbe.googlegroups.com...
Bonjour à tous
J'aurais besoin d'une aide pour une macro
Je souhaiterais faire une macros qui me permettrai de changer les noms
de feuille en (G1) de chaque feuille en prennant la liste (C1:C13) de
la feuille nommé (Info) ce qui me permettra de renommé les selon la
sélectionne d'année en (B2)
j'ai dans le module de feuille se code qui nomme ma feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$1" Then
ActiveSheet.Name = Format([G1], "mmmm yy")
End If
End Sub
sh.Name = Format(DateSerial(Year(Date) - (i < 8), i, 1), "mmmm yy")
par sh.Name = Format(DateSerial(Year(Date) - (i < 9), i, 1), "mmmm yy")
-- Salutations JJ
"Jacky" a écrit dans le message de news: j9duab$974$
Bonjour, Ceci transforme le nom des feuilles comportant "un mois+ une année" en -Mois+ l'année en cours pour septembre >> décembre -Mois +l'année suivante pour janvier >> août Selon l'année en cours '------------------ Sub jj() Dim sh As Worksheet, i As Integer For i = 1 To 12 For Each sh In ThisWorkbook.Worksheets If Left(sh.Name, Len(sh.Name) - 3) = Format(DateSerial(Year(Date), i, 1), "mmmm") Then sh.Name = Format(DateSerial(Year(Date) - (i < 8), i, 1), "mmmm yy") End If Next Next End Sub '------------------
-- Salutations JJ
"Tibert" a écrit dans le message de news:
Bonjour à tous J'aurais besoin d'une aide pour une macro Je souhaiterais faire une macros qui me permettrai de changer les noms de feuille en (G1) de chaque feuille en prennant la liste (C1:C13) de la feuille nommé (Info) ce qui me permettra de renommé les selon la sélectionne d'année en (B2)
j'ai dans le module de feuille se code qui nomme ma feuille
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$1" Then ActiveSheet.Name = Format([G1], "mmmm yy") End If End Sub