Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ajout d'un texte au nom de l'onglet

Ajout d'un texte au nom de l'onglet

4 réponses
Avatar
Christian
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
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


Avatar
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






Avatar
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








Avatar
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