Suite a la réponse que tu m'as donné, je l'avais essayé que sur une feuille
et la pas de problème. Par contre quand j'ai essaye sur le document en
question pas de mise a jour de l'onglet. Je m'explique j'ai une feuille qui
s'appelle "Mois" et la il y a un calcul pour trouver les semaines de ce
mois, sur les autres feuilles il y a "pointageS..." et "planningS..". Comme
les calculs se font sur la feuille "Mois" les autres feuilles ne se mettent
pas a jours. En clair le nom de l'onglet ne change que si la feuille est
ouverte quand la cellule A1 change de valeur.
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] <> x Then
ActiveSheet.Name = "Pointage " & [a1]
x = ActiveSheet.Name
End If
End Sub
'--------------
Comment faire pour que l'onglet de feuille prenne le nom d'une cellule ou voir meme de deux cellules de la meme feuille Et pas sur d'autres feuilles
Ceci change le nom des feuilles "pointageS" et "planningS" en fonction de A1 de la feuille "Mois" A mettre dans le module de la feuille "Mois" '-----------
Public x As String _____________________________________ Private Sub Worksheet_Activate() x = [a1] End Sub _____________________________________
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If [a1] <> x Then Sheets("pointageS" & x).Name = "pointageS" & [a1] Sheets("planningS" & x).Name = "planningS" & [a1] x = [a1] End If End Sub '--------------- Salutations JJ
"Baceri" a écrit dans le message de news: 4522a18a$0$379$
Suite a la réponse que tu m'as donné, je l'avais essayé que sur une feuille et la pas de problème. Par contre quand j'ai essaye sur le document en question pas de mise a jour de l'onglet. Je m'explique j'ai une feuille qui s'appelle "Mois" et la il y a un calcul pour trouver les semaines de ce mois, sur les autres feuilles il y a "pointageS..." et "planningS..". Comme les calculs se font sur la feuille "Mois" les autres feuilles ne se mettent pas a jours. En clair le nom de l'onglet ne change que si la feuille est ouverte quand la cellule A1 change de valeur.
'---------- Private Sub Worksheet_Change(ByVal Target As Range) If [a1] <> x Then ActiveSheet.Name = "Pointage " & [a1] x = ActiveSheet.Name End If End Sub '--------------
Re..
Dans la question initiale était:
Comment faire pour que l'onglet de feuille prenne le nom d'une cellule ou
voir meme de deux cellules de la meme feuille
Et pas sur d'autres feuilles
Ceci change le nom des feuilles "pointageS" et "planningS" en fonction de A1
de la feuille "Mois"
A mettre dans le module de la feuille "Mois"
'-----------
Public x As String
_____________________________________
Private Sub Worksheet_Activate()
x = [a1]
End Sub
_____________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If [a1] <> x Then
Sheets("pointageS" & x).Name = "pointageS" & [a1]
Sheets("planningS" & x).Name = "planningS" & [a1]
x = [a1]
End If
End Sub
'---------------
Salutations
JJ
"Baceri" <baceri@free.fr> a écrit dans le message de news:
4522a18a$0$379$426a74cc@news.free.fr...
Suite a la réponse que tu m'as donné, je l'avais essayé que sur une
feuille et la pas de problème. Par contre quand j'ai essaye sur le
document en question pas de mise a jour de l'onglet. Je m'explique j'ai
une feuille qui s'appelle "Mois" et la il y a un calcul pour trouver les
semaines de ce mois, sur les autres feuilles il y a "pointageS..." et
"planningS..". Comme les calculs se font sur la feuille "Mois" les autres
feuilles ne se mettent pas a jours. En clair le nom de l'onglet ne change
que si la feuille est ouverte quand la cellule A1 change de valeur.
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] <> x Then
ActiveSheet.Name = "Pointage " & [a1]
x = ActiveSheet.Name
End If
End Sub
'--------------
Comment faire pour que l'onglet de feuille prenne le nom d'une cellule ou voir meme de deux cellules de la meme feuille Et pas sur d'autres feuilles
Ceci change le nom des feuilles "pointageS" et "planningS" en fonction de A1 de la feuille "Mois" A mettre dans le module de la feuille "Mois" '-----------
Public x As String _____________________________________ Private Sub Worksheet_Activate() x = [a1] End Sub _____________________________________
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If [a1] <> x Then Sheets("pointageS" & x).Name = "pointageS" & [a1] Sheets("planningS" & x).Name = "planningS" & [a1] x = [a1] End If End Sub '--------------- Salutations JJ
"Baceri" a écrit dans le message de news: 4522a18a$0$379$
Suite a la réponse que tu m'as donné, je l'avais essayé que sur une feuille et la pas de problème. Par contre quand j'ai essaye sur le document en question pas de mise a jour de l'onglet. Je m'explique j'ai une feuille qui s'appelle "Mois" et la il y a un calcul pour trouver les semaines de ce mois, sur les autres feuilles il y a "pointageS..." et "planningS..". Comme les calculs se font sur la feuille "Mois" les autres feuilles ne se mettent pas a jours. En clair le nom de l'onglet ne change que si la feuille est ouverte quand la cellule A1 change de valeur.
'---------- Private Sub Worksheet_Change(ByVal Target As Range) If [a1] <> x Then ActiveSheet.Name = "Pointage " & [a1] x = ActiveSheet.Name End If End Sub '--------------
Baceri
Il ne se passe rien, pourrais tu m'envoyer ton fichier excel ou tu as fait l'essai, a savoir que sur ma feuille "mois" j'ai les les numéro des 4 semaines, la feuille 2 s'appellera donc "pointageS40"l'autre "PlanningS40"l'autre "PointageS41" et ainsi dessuite.
Encore merci
Il ne se passe rien, pourrais tu m'envoyer ton fichier excel ou tu as fait
l'essai, a savoir que sur ma feuille "mois" j'ai les les numéro des 4
semaines, la feuille 2 s'appellera donc "pointageS40"l'autre
"PlanningS40"l'autre "PointageS41" et ainsi dessuite.
Il ne se passe rien, pourrais tu m'envoyer ton fichier excel ou tu as fait l'essai, a savoir que sur ma feuille "mois" j'ai les les numéro des 4 semaines, la feuille 2 s'appellera donc "pointageS40"l'autre "PlanningS40"l'autre "PointageS41" et ainsi dessuite.
Encore merci
Jacky
Re...
Si j'ai bien compris, tu as une feuille de départ nommé "mois", tu remplis cette feuille et tu veux la sauvegarder sous le nom défini en a1 de cette feuille. Est-ce cela ?? Mets un exemple sur: http://cjoint.com
-- Salutations JJ
"Baceri" a écrit dans le message de news: 4522d726$0$15889$
Il ne se passe rien, pourrais tu m'envoyer ton fichier excel ou tu as fait l'essai, a savoir que sur ma feuille "mois" j'ai les les numéro des 4 semaines, la feuille 2 s'appellera donc "pointageS40"l'autre "PlanningS40"l'autre "PointageS41" et ainsi dessuite.
Encore merci
Re...
Si j'ai bien compris, tu as une feuille de départ nommé "mois", tu remplis
cette feuille et tu veux la sauvegarder sous le nom défini en a1 de cette
feuille.
Est-ce cela ??
Mets un exemple sur:
http://cjoint.com
--
Salutations
JJ
"Baceri" <baceri@free.fr> a écrit dans le message de news:
4522d726$0$15889$426a74cc@news.free.fr...
Il ne se passe rien, pourrais tu m'envoyer ton fichier excel ou tu as fait
l'essai, a savoir que sur ma feuille "mois" j'ai les les numéro des 4
semaines, la feuille 2 s'appellera donc "pointageS40"l'autre
"PlanningS40"l'autre "PointageS41" et ainsi dessuite.
Si j'ai bien compris, tu as une feuille de départ nommé "mois", tu remplis cette feuille et tu veux la sauvegarder sous le nom défini en a1 de cette feuille. Est-ce cela ?? Mets un exemple sur: http://cjoint.com
-- Salutations JJ
"Baceri" a écrit dans le message de news: 4522d726$0$15889$
Il ne se passe rien, pourrais tu m'envoyer ton fichier excel ou tu as fait l'essai, a savoir que sur ma feuille "mois" j'ai les les numéro des 4 semaines, la feuille 2 s'appellera donc "pointageS40"l'autre "PlanningS40"l'autre "PointageS41" et ainsi dessuite.
Re... Fonctionnement de Cjoint: Réduire le fichier aux parties utiles pour le test, éventuellement le zippée Un clique sur parcourir choisir le fichier sur le DD Un clique sur Créer le lien Cjoint le fichier est copié automatiquement Retour sur la messagerie utilisé et Coller
-- Salutations JJ
"Baceri" a écrit dans le message de news: 4523981c$0$3939$
http://cjoint.com/?keni04uOfc
Re...
Fonctionnement de Cjoint:
Réduire le fichier aux parties utiles pour le test, éventuellement le zippée
Un clique sur parcourir
choisir le fichier sur le DD
Un clique sur Créer le lien Cjoint
le fichier est copié automatiquement
Retour sur la messagerie utilisé et Coller
--
Salutations
JJ
"Baceri" <baceri@free.fr> a écrit dans le message de news:
4523981c$0$3939$426a74cc@news.free.fr...
Re... Fonctionnement de Cjoint: Réduire le fichier aux parties utiles pour le test, éventuellement le zippée Un clique sur parcourir choisir le fichier sur le DD Un clique sur Créer le lien Cjoint le fichier est copié automatiquement Retour sur la messagerie utilisé et Coller
-- Salutations JJ
"Baceri" a écrit dans le message de news: 4523981c$0$3939$
http://cjoint.com/?keni04uOfc
Baceri
http://cjoint.com/?keqYHfweDn
J'ai suprime toute les feuilles c'etait encore trop gros
http://cjoint.com/?keqYHfweDn
J'ai suprime toute les feuilles c'etait encore trop gros
