Bonjour à tous et toutes
J'utilise le code suivant pour nommer automatiquement l'onglet de la feuille
en cours.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
Sheets(sht.Name).Name = Sheets(sht.Name).[k2]
Next
End Sub
[k2] représentant le numéro de la semaine en cours.
Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de
l'onglet.
J'essaie en vain, mais je n'y arrive pas.
Si vous pouviez m'aider, je vous en serais reconnaissant.
--
Merci d'avance
Christian
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
Philippe.R
Bonjour, Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets zaza="Semaine_"&[k2] Sheets(sht.Name).Name = Sheets(sht.Name).zaza Next End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour à tous et toutes J'utilise le code suivant pour nommer automatiquement l'onglet de la feuille en cours. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets Sheets(sht.Name).Name = Sheets(sht.Name).[k2] Next End Sub [k2] représentant le numéro de la semaine en cours. Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de l'onglet. J'essaie en vain, mais je n'y arrive pas. Si vous pouviez m'aider, je vous en serais reconnaissant. -- Merci d'avance Christian
Bonjour,
Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
zaza="Semaine_"&[k2]
Sheets(sht.Name).Name = Sheets(sht.Name).zaza
Next
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Christian" <Christian@discussions.microsoft.com> a écrit dans le message de
news:D878A4F4-7C29-4633-8EF0-FC83015DAA9A@microsoft.com...
Bonjour à tous et toutes
J'utilise le code suivant pour nommer automatiquement l'onglet de la
feuille
en cours.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
Sheets(sht.Name).Name = Sheets(sht.Name).[k2]
Next
End Sub
[k2] représentant le numéro de la semaine en cours.
Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de
l'onglet.
J'essaie en vain, mais je n'y arrive pas.
Si vous pouviez m'aider, je vous en serais reconnaissant.
--
Merci d'avance
Christian
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets zaza="Semaine_"&[k2] Sheets(sht.Name).Name = Sheets(sht.Name).zaza Next End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour à tous et toutes J'utilise le code suivant pour nommer automatiquement l'onglet de la feuille en cours. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets Sheets(sht.Name).Name = Sheets(sht.Name).[k2] Next End Sub [k2] représentant le numéro de la semaine en cours. Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de l'onglet. J'essaie en vain, mais je n'y arrive pas. Si vous pouviez m'aider, je vous en serais reconnaissant. -- Merci d'avance Christian
Christian
Bonjour Philippe Merci de m'avoir lu et répondu. Cela ne fonctionne pas. -- Encore Merci Christian
Bonjour, Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets zaza="Semaine_"&[k2] Sheets(sht.Name).Name = Sheets(sht.Name).zaza Next End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour à tous et toutes J'utilise le code suivant pour nommer automatiquement l'onglet de la feuille en cours. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets Sheets(sht.Name).Name = Sheets(sht.Name).[k2] Next End Sub [k2] représentant le numéro de la semaine en cours. Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de l'onglet. J'essaie en vain, mais je n'y arrive pas. Si vous pouviez m'aider, je vous en serais reconnaissant. -- Merci d'avance Christian
Bonjour Philippe
Merci de m'avoir lu et répondu.
Cela ne fonctionne pas.
--
Encore Merci
Christian
Bonjour,
Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
zaza="Semaine_"&[k2]
Sheets(sht.Name).Name = Sheets(sht.Name).zaza
Next
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Christian" <Christian@discussions.microsoft.com> a écrit dans le message de
news:D878A4F4-7C29-4633-8EF0-FC83015DAA9A@microsoft.com...
Bonjour à tous et toutes
J'utilise le code suivant pour nommer automatiquement l'onglet de la
feuille
en cours.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
Sheets(sht.Name).Name = Sheets(sht.Name).[k2]
Next
End Sub
[k2] représentant le numéro de la semaine en cours.
Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de
l'onglet.
J'essaie en vain, mais je n'y arrive pas.
Si vous pouviez m'aider, je vous en serais reconnaissant.
--
Merci d'avance
Christian
Bonjour Philippe Merci de m'avoir lu et répondu. Cela ne fonctionne pas. -- Encore Merci Christian
Bonjour, Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets zaza="Semaine_"&[k2] Sheets(sht.Name).Name = Sheets(sht.Name).zaza Next End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour à tous et toutes J'utilise le code suivant pour nommer automatiquement l'onglet de la feuille en cours. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets Sheets(sht.Name).Name = Sheets(sht.Name).[k2] Next End Sub [k2] représentant le numéro de la semaine en cours. Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de l'onglet. J'essaie en vain, mais je n'y arrive pas. Si vous pouviez m'aider, je vous en serais reconnaissant. -- Merci d'avance Christian
Philippe.R
Re, Ceci, dans un module ordinaire fonctionne chez moi :
Sub onglet() For Each sht In ActiveWorkbook.Sheets sht.Activate zaza = "Semaine_" & [k2] sht.Name = zaza Next End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour Philippe Merci de m'avoir lu et répondu. Cela ne fonctionne pas. -- Encore Merci Christian
Bonjour, Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets zaza="Semaine_"&[k2] Sheets(sht.Name).Name = Sheets(sht.Name).zaza Next End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour à tous et toutes J'utilise le code suivant pour nommer automatiquement l'onglet de la feuille en cours. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets Sheets(sht.Name).Name = Sheets(sht.Name).[k2] Next End Sub [k2] représentant le numéro de la semaine en cours. Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de l'onglet. J'essaie en vain, mais je n'y arrive pas. Si vous pouviez m'aider, je vous en serais reconnaissant. -- Merci d'avance Christian
Re,
Ceci, dans un module ordinaire fonctionne chez moi :
Sub onglet()
For Each sht In ActiveWorkbook.Sheets
sht.Activate
zaza = "Semaine_" & [k2]
sht.Name = zaza
Next
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Christian" <Christian@discussions.microsoft.com> a écrit dans le message de
news:F19AE8A0-9BF0-44F4-BC1A-37A93072A2C2@microsoft.com...
Bonjour Philippe
Merci de m'avoir lu et répondu.
Cela ne fonctionne pas.
--
Encore Merci
Christian
Bonjour,
Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
zaza="Semaine_"&[k2]
Sheets(sht.Name).Name = Sheets(sht.Name).zaza
Next
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Christian" <Christian@discussions.microsoft.com> a écrit dans le message
de
news:D878A4F4-7C29-4633-8EF0-FC83015DAA9A@microsoft.com...
Bonjour à tous et toutes
J'utilise le code suivant pour nommer automatiquement l'onglet de la
feuille
en cours.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
Sheets(sht.Name).Name = Sheets(sht.Name).[k2]
Next
End Sub
[k2] représentant le numéro de la semaine en cours.
Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro
de
l'onglet.
J'essaie en vain, mais je n'y arrive pas.
Si vous pouviez m'aider, je vous en serais reconnaissant.
--
Merci d'avance
Christian
Re, Ceci, dans un module ordinaire fonctionne chez moi :
Sub onglet() For Each sht In ActiveWorkbook.Sheets sht.Activate zaza = "Semaine_" & [k2] sht.Name = zaza Next End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour Philippe Merci de m'avoir lu et répondu. Cela ne fonctionne pas. -- Encore Merci Christian
Bonjour, Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets zaza="Semaine_"&[k2] Sheets(sht.Name).Name = Sheets(sht.Name).zaza Next End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour à tous et toutes J'utilise le code suivant pour nommer automatiquement l'onglet de la feuille en cours. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets Sheets(sht.Name).Name = Sheets(sht.Name).[k2] Next End Sub [k2] représentant le numéro de la semaine en cours. Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de l'onglet. J'essaie en vain, mais je n'y arrive pas. Si vous pouviez m'aider, je vous en serais reconnaissant. -- Merci d'avance Christian
Christian
Rebonjour Philippe Effectivement, cela fonctionne très bien. -- Encore merci Christian
Re, Ceci, dans un module ordinaire fonctionne chez moi :
Sub onglet() For Each sht In ActiveWorkbook.Sheets sht.Activate zaza = "Semaine_" & [k2] sht.Name = zaza Next End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour Philippe Merci de m'avoir lu et répondu. Cela ne fonctionne pas. -- Encore Merci Christian
Bonjour, Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets zaza="Semaine_"&[k2] Sheets(sht.Name).Name = Sheets(sht.Name).zaza Next End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour à tous et toutes J'utilise le code suivant pour nommer automatiquement l'onglet de la feuille en cours. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets Sheets(sht.Name).Name = Sheets(sht.Name).[k2] Next End Sub [k2] représentant le numéro de la semaine en cours. Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de l'onglet. J'essaie en vain, mais je n'y arrive pas. Si vous pouviez m'aider, je vous en serais reconnaissant. -- Merci d'avance Christian
Rebonjour Philippe
Effectivement, cela fonctionne très bien.
--
Encore merci
Christian
Re,
Ceci, dans un module ordinaire fonctionne chez moi :
Sub onglet()
For Each sht In ActiveWorkbook.Sheets
sht.Activate
zaza = "Semaine_" & [k2]
sht.Name = zaza
Next
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Christian" <Christian@discussions.microsoft.com> a écrit dans le message de
news:F19AE8A0-9BF0-44F4-BC1A-37A93072A2C2@microsoft.com...
Bonjour Philippe
Merci de m'avoir lu et répondu.
Cela ne fonctionne pas.
--
Encore Merci
Christian
Bonjour,
Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
zaza="Semaine_"&[k2]
Sheets(sht.Name).Name = Sheets(sht.Name).zaza
Next
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Christian" <Christian@discussions.microsoft.com> a écrit dans le message
de
news:D878A4F4-7C29-4633-8EF0-FC83015DAA9A@microsoft.com...
Bonjour à tous et toutes
J'utilise le code suivant pour nommer automatiquement l'onglet de la
feuille
en cours.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
Sheets(sht.Name).Name = Sheets(sht.Name).[k2]
Next
End Sub
[k2] représentant le numéro de la semaine en cours.
Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro
de
l'onglet.
J'essaie en vain, mais je n'y arrive pas.
Si vous pouviez m'aider, je vous en serais reconnaissant.
--
Merci d'avance
Christian
Rebonjour Philippe Effectivement, cela fonctionne très bien. -- Encore merci Christian
Re, Ceci, dans un module ordinaire fonctionne chez moi :
Sub onglet() For Each sht In ActiveWorkbook.Sheets sht.Activate zaza = "Semaine_" & [k2] sht.Name = zaza Next End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour Philippe Merci de m'avoir lu et répondu. Cela ne fonctionne pas. -- Encore Merci Christian
Bonjour, Tu peux essayer
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets zaza="Semaine_"&[k2] Sheets(sht.Name).Name = Sheets(sht.Name).zaza Next End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour à tous et toutes J'utilise le code suivant pour nommer automatiquement l'onglet de la feuille en cours. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next For Each sht In ActiveWorkbook.Worksheets Sheets(sht.Name).Name = Sheets(sht.Name).[k2] Next End Sub [k2] représentant le numéro de la semaine en cours. Je souhaiterais pouvoir ajouter le texte suivant "Semaine_" au numéro de l'onglet. J'essaie en vain, mais je n'y arrive pas. Si vous pouviez m'aider, je vous en serais reconnaissant. -- Merci d'avance Christian