Bonjour =E0 tous
Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles
sont nomm=E9es par la cellule (B1) par le code ci-dessous.
Dans la feuille =AB Reduction =BB j=92ai bien mis au format =AB mmmaa =BB
Fichier ci-joint pour une meilleure compr=E9hension
http://cjoint.com/?3BDs0Pru2GC
Bonne soir=E9e =E0 vous
*********************************************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address =3D "$B$1" Then
ActiveSheet.Name =3D Format([B1], "mmmyy")
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
MichD
Bonjour,
Si tu tapes ceci dans une cellule : =INDIRECT("A2") cela retourne 40909 qui est la valeur numérique de la date. Tu n'as pas de feuille qui porte ce nom.
Si tu passes le contenu A2 au format "Texte", cela fonctionnera...
MichD ------------------------------------------ "Tibert" a écrit dans le message de groupe de discussion :
Bonjour à tous Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles sont nommées par la cellule (B1) par le code ci-dessous. Dans la feuille « Reduction » j’ai bien mis au format « mmmaa » Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
********************************************* Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then ActiveSheet.Name = Format([B1], "mmmyy") End If End Sub
Bonjour,
Si tu tapes ceci dans une cellule :
=INDIRECT("A2") cela retourne 40909 qui est la valeur numérique de la date.
Tu n'as pas de feuille qui porte ce nom.
Si tu passes le contenu A2 au format "Texte", cela fonctionnera...
MichD
------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
fb661066-3ada-453e-8149-de923cc33c1a@cj6g2000vbb.googlegroups.com...
Bonjour à tous
Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles
sont nommées par la cellule (B1) par le code ci-dessous.
Dans la feuille « Reduction » j’ai bien mis au format « mmmaa »
Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
*********************************************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
ActiveSheet.Name = Format([B1], "mmmyy")
End If
End Sub
Si tu tapes ceci dans une cellule : =INDIRECT("A2") cela retourne 40909 qui est la valeur numérique de la date. Tu n'as pas de feuille qui porte ce nom.
Si tu passes le contenu A2 au format "Texte", cela fonctionnera...
MichD ------------------------------------------ "Tibert" a écrit dans le message de groupe de discussion :
Bonjour à tous Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles sont nommées par la cellule (B1) par le code ci-dessous. Dans la feuille « Reduction » j’ai bien mis au format « mmmaa » Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
********************************************* Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then ActiveSheet.Name = Format([B1], "mmmyy") End If End Sub
Tibert
Bonsoir "MichD" merci pour tes explications, je pensé qu'on pouvez interpréter une formule qui aurais pris compte du format
Bonne soirée
On 29 fév, 19:58, "MichD" wrote:
Bonjour,
Si tu tapes ceci dans une cellule : =INDIRECT("A2") cela retourne 40909 qui est la valeur numérique de la date. Tu n'as pas de feuille qui porte ce nom.
Si tu passes le contenu A2 au format "Texte", cela fonctionnera...
MichD ------------------------------------------ "Tibert" a écrit dans le message de groupe de discussion :
Bonjour à tous Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles sont nommées par la cellule (B1) par le code ci-dessous. Dans la feuille « Reduction » jai bien mis au format « mmmaa » Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
********************************************* Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then ActiveSheet.Name = Format([B1], "mmmyy") End If End Sub
Bonsoir "MichD"
merci pour tes explications, je pensé qu'on pouvez interpréter une
formule qui aurais pris compte du format
Bonne soirée
On 29 fév, 19:58, "MichD" <michde...@hotmail.com> wrote:
Bonjour,
Si tu tapes ceci dans une cellule :
=INDIRECT("A2") cela retourne 40909 qui est la valeur numérique de la date.
Tu n'as pas de feuille qui porte ce nom.
Si tu passes le contenu A2 au format "Texte", cela fonctionnera...
MichD
------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
fb661066-3ada-453e-8149-de923cc33...@cj6g2000vbb.googlegroups.com...
Bonjour à tous
Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles
sont nommées par la cellule (B1) par le code ci-dessous.
Dans la feuille « Reduction » jai bien mis au format « mmmaa »
Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
*********************************************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
ActiveSheet.Name = Format([B1], "mmmyy")
End If
End Sub
Bonsoir "MichD" merci pour tes explications, je pensé qu'on pouvez interpréter une formule qui aurais pris compte du format
Bonne soirée
On 29 fév, 19:58, "MichD" wrote:
Bonjour,
Si tu tapes ceci dans une cellule : =INDIRECT("A2") cela retourne 40909 qui est la valeur numérique de la date. Tu n'as pas de feuille qui porte ce nom.
Si tu passes le contenu A2 au format "Texte", cela fonctionnera...
MichD ------------------------------------------ "Tibert" a écrit dans le message de groupe de discussion :
Bonjour à tous Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles sont nommées par la cellule (B1) par le code ci-dessous. Dans la feuille « Reduction » jai bien mis au format « mmmaa » Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
********************************************* Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then ActiveSheet.Name = Format([B1], "mmmyy") End If End Sub
Jacky
Bonsoir,
En gardant les dates... En B2 =SI(ESTERR(INDIRECT(TEXTE(A2;"mmmaa")&"!H42"));"";INDIRECT(TEXTE(A2;"mmmaa")&"!H42"))
-- Salutations JJ
"Tibert" a écrit dans le message de news:
Bonjour à tous Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles sont nommées par la cellule (B1) par le code ci-dessous. Dans la feuille « Reduction » j’ai bien mis au format « mmmaa » Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
********************************************* Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then ActiveSheet.Name = Format([B1], "mmmyy") End If End Sub
Bonsoir,
En gardant les dates...
En B2
=SI(ESTERR(INDIRECT(TEXTE(A2;"mmmaa")&"!H42"));"";INDIRECT(TEXTE(A2;"mmmaa")&"!H42"))
--
Salutations
JJ
"Tibert" <syleg35@gmail.com> a écrit dans le message de news:
fb661066-3ada-453e-8149-de923cc33c1a@cj6g2000vbb.googlegroups.com...
Bonjour à tous
Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles
sont nommées par la cellule (B1) par le code ci-dessous.
Dans la feuille « Reduction » j’ai bien mis au format « mmmaa »
Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
*********************************************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
ActiveSheet.Name = Format([B1], "mmmyy")
End If
End Sub
En gardant les dates... En B2 =SI(ESTERR(INDIRECT(TEXTE(A2;"mmmaa")&"!H42"));"";INDIRECT(TEXTE(A2;"mmmaa")&"!H42"))
-- Salutations JJ
"Tibert" a écrit dans le message de news:
Bonjour à tous Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles sont nommées par la cellule (B1) par le code ci-dessous. Dans la feuille « Reduction » j’ai bien mis au format « mmmaa » Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
********************************************* Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then ActiveSheet.Name = Format([B1], "mmmyy") End If End Sub
Tibert
Bonsoir "Jacky"
Merci pour ta réponse c'est exactement sa que je voulais !
Bonne soirée
On 29 fév, 21:08, "Jacky" wrote:
Bonsoir,
En gardant les dates... En B2 =SI(ESTERR(INDIRECT(TEXTE(A2;"mmmaa")&"!H42"));"";INDIRECT(TEXTE(A2;"mm maa" )&"!H42"))
-- Salutations JJ
"Tibert" a écrit dans le message de news:
Bonjour à tous Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles sont nommées par la cellule (B1) par le code ci-dessous. Dans la feuille « Reduction » jai bien mis au format « mmmaa » Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
********************************************* Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then ActiveSheet.Name = Format([B1], "mmmyy") End If End Sub
Bonsoir "Jacky"
Merci pour ta réponse c'est exactement sa que je voulais !
Bonne soirée
On 29 fév, 21:08, "Jacky" <Dup...@marcel.fr> wrote:
Bonsoir,
En gardant les dates...
En B2
=SI(ESTERR(INDIRECT(TEXTE(A2;"mmmaa")&"!H42"));"";INDIRECT(TEXTE(A2;"mm maa" )&"!H42"))
--
Salutations
JJ
"Tibert" <syle...@gmail.com> a écrit dans le message de news:
fb661066-3ada-453e-8149-de923cc33...@cj6g2000vbb.googlegroups.com...
Bonjour à tous
Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles
sont nommées par la cellule (B1) par le code ci-dessous.
Dans la feuille « Reduction » jai bien mis au format « mmmaa »
Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
*********************************************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
ActiveSheet.Name = Format([B1], "mmmyy")
End If
End Sub
Merci pour ta réponse c'est exactement sa que je voulais !
Bonne soirée
On 29 fév, 21:08, "Jacky" wrote:
Bonsoir,
En gardant les dates... En B2 =SI(ESTERR(INDIRECT(TEXTE(A2;"mmmaa")&"!H42"));"";INDIRECT(TEXTE(A2;"mm maa" )&"!H42"))
-- Salutations JJ
"Tibert" a écrit dans le message de news:
Bonjour à tous Pouvez-vous me dire ce qui ne va pas dans ma formule, les feuilles sont nommées par la cellule (B1) par le code ci-dessous. Dans la feuille « Reduction » jai bien mis au format « mmmaa » Fichier ci-joint pour une meilleure compréhension
http://cjoint.com/?3BDs0Pru2GC
Bonne soirée à vous
********************************************* Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then ActiveSheet.Name = Format([B1], "mmmyy") End If End Sub