Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue
dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet
respectif de chaque feuille.
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
JB
Bonjour,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index >= 2 And Sh.Index <= 13 Then If Target.Address = "$A$1" Then On Error Resume Next Sh.Name = Sh.[A1] End If End If End Sub
JB http://boisgontierjacques.free.fr/
On 4 jan, 12:30, j-pascal wrote:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de chaque feuille.
Merci d'avance pour votra aide,
JP
Bonjour,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Index >= 2 And Sh.Index <= 13 Then
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Sh.[A1]
End If
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 4 jan, 12:30, j-pascal <messa...@venir.com> wrote:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue
dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet
respectif de chaque feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index >= 2 And Sh.Index <= 13 Then If Target.Address = "$A$1" Then On Error Resume Next Sh.Name = Sh.[A1] End If End If End Sub
JB http://boisgontierjacques.free.fr/
On 4 jan, 12:30, j-pascal wrote:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de chaque feuille.
Merci d'avance pour votra aide,
JP
j-pascal
Bonjour Jacques,
Merci
Ca fonctionne bien, mais je dois récupérer une valeur au format date. Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans l'onglet qqch comme "Jan 09".
J'ai essayé divers modif comme celle-ci : Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy")) Mais je n'arrive pas au bon résultat ...
@+ ?
JP
Bonjour,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index >= 2 And Sh.Index <= 13 Then If Target.Address = "$A$1" Then On Error Resume Next Sh.Name = Sh.[A1] End If End If End Sub
JB http://boisgontierjacques.free.fr/
On 4 jan, 12:30, j-pascal wrote:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de chaque feuille.
Merci d'avance pour votra aide,
JP
Bonjour Jacques,
Merci
Ca fonctionne bien, mais je dois récupérer une valeur au format date.
Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans
l'onglet qqch comme "Jan 09".
J'ai essayé divers modif comme celle-ci :
Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy"))
Mais je n'arrive pas au bon résultat ...
@+ ?
JP
Bonjour,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Index >= 2 And Sh.Index <= 13 Then
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Sh.[A1]
End If
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 4 jan, 12:30, j-pascal <messa...@venir.com> wrote:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue
dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet
respectif de chaque feuille.
Ca fonctionne bien, mais je dois récupérer une valeur au format date. Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans l'onglet qqch comme "Jan 09".
J'ai essayé divers modif comme celle-ci : Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy")) Mais je n'arrive pas au bon résultat ...
@+ ?
JP
Bonjour,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index >= 2 And Sh.Index <= 13 Then If Target.Address = "$A$1" Then On Error Resume Next Sh.Name = Sh.[A1] End If End If End Sub
JB http://boisgontierjacques.free.fr/
On 4 jan, 12:30, j-pascal wrote:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de chaque feuille.
Merci d'avance pour votra aide,
JP
Jacky
Bonne année 2009 '-------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then On Error Resume Next ActiveSheet.Name = Format([A1], "mmm-yy") End If End Sub '--------------- -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de chaque feuille.
Merci d'avance pour votra aide,
JP
Bonne année 2009
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
ActiveSheet.Name = Format([A1], "mmm-yy")
End If
End Sub
'---------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.22ee7d91716f4630.81386@venir.com...
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans
la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de
chaque feuille.
Bonne année 2009 '-------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then On Error Resume Next ActiveSheet.Name = Format([A1], "mmm-yy") End If End Sub '--------------- -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de chaque feuille.
Merci d'avance pour votra aide,
JP
JB
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index >= 2 And Sh.Index <= 13 Then If Target.Address = "$A$1" Then On Error Resume Next Sh.Name = Format(Sh.[A1], "mmm yy") End If End If End Sub
http://cjoint.com/?berLXEW0dV
JB
On 4 jan, 14:39, j-pascal wrote:
Bonjour Jacques,
Merci
Ca fonctionne bien, mais je dois récupérer une valeur au format date. Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans l'onglet qqch comme "Jan 09".
J'ai essayé divers modif comme celle-ci : Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy")) Mais je n'arrive pas au bon résultat ...
@+ ?
JP
> Bonjour,
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As > Range) > If Sh.Index >= 2 And Sh.Index <= 13 Then > If Target.Address = "$A$1" Then > On Error Resume Next > Sh.Name = Sh.[A1] > End If > End If > End Sub
> JB >http://boisgontierjacques.free.fr/
> On 4 jan, 12:30, j-pascal wrote: >> Bonjour,
>> Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenu e >> dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet >> respectif de chaque feuille.
>> Merci d'avance pour votra aide,
>> JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Index >= 2 And Sh.Index <= 13 Then
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Format(Sh.[A1], "mmm yy")
End If
End If
End Sub
http://cjoint.com/?berLXEW0dV
JB
On 4 jan, 14:39, j-pascal <messa...@venir.com> wrote:
Bonjour Jacques,
Merci
Ca fonctionne bien, mais je dois récupérer une valeur au format date.
Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans
l'onglet qqch comme "Jan 09".
J'ai essayé divers modif comme celle-ci :
Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy"))
Mais je n'arrive pas au bon résultat ...
@+ ?
JP
> Bonjour,
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
> Range)
> If Sh.Index >= 2 And Sh.Index <= 13 Then
> If Target.Address = "$A$1" Then
> On Error Resume Next
> Sh.Name = Sh.[A1]
> End If
> End If
> End Sub
> JB
>http://boisgontierjacques.free.fr/
> On 4 jan, 12:30, j-pascal <messa...@venir.com> wrote:
>> Bonjour,
>> Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenu e
>> dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet
>> respectif de chaque feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index >= 2 And Sh.Index <= 13 Then If Target.Address = "$A$1" Then On Error Resume Next Sh.Name = Format(Sh.[A1], "mmm yy") End If End If End Sub
http://cjoint.com/?berLXEW0dV
JB
On 4 jan, 14:39, j-pascal wrote:
Bonjour Jacques,
Merci
Ca fonctionne bien, mais je dois récupérer une valeur au format date. Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans l'onglet qqch comme "Jan 09".
J'ai essayé divers modif comme celle-ci : Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy")) Mais je n'arrive pas au bon résultat ...
@+ ?
JP
> Bonjour,
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As > Range) > If Sh.Index >= 2 And Sh.Index <= 13 Then > If Target.Address = "$A$1" Then > On Error Resume Next > Sh.Name = Sh.[A1] > End If > End If > End Sub
> JB >http://boisgontierjacques.free.fr/
> On 4 jan, 12:30, j-pascal wrote: >> Bonjour,
>> Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenu e >> dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet >> respectif de chaque feuille.
>> Merci d'avance pour votra aide,
>> JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
j-pascal
Evidemment, j'aurais dû y penser !
Merci Jacques
JP
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index >= 2 And Sh.Index <= 13 Then If Target.Address = "$A$1" Then On Error Resume Next Sh.Name = Format(Sh.[A1], "mmm yy") End If End If End Sub
http://cjoint.com/?berLXEW0dV
JB
On 4 jan, 14:39, j-pascal wrote:
Bonjour Jacques,
Merci
Ca fonctionne bien, mais je dois récupérer une valeur au format date. Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans l'onglet qqch comme "Jan 09".
J'ai essayé divers modif comme celle-ci : Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy")) Mais je n'arrive pas au bon résultat ...
@+ ?
JP
Bonjour,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index >= 2 And Sh.Index <= 13 Then If Target.Address = "$A$1" Then On Error Resume Next Sh.Name = Sh.[A1] End If End If End Sub
JB http://boisgontierjacques.free.fr/
On 4 jan, 12:30, j-pascal wrote:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de chaque feuille.
Merci d'avance pour votra aide,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Evidemment, j'aurais dû y penser !
Merci Jacques
JP
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Index >= 2 And Sh.Index <= 13 Then
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Format(Sh.[A1], "mmm yy")
End If
End If
End Sub
http://cjoint.com/?berLXEW0dV
JB
On 4 jan, 14:39, j-pascal <messa...@venir.com> wrote:
Bonjour Jacques,
Merci
Ca fonctionne bien, mais je dois récupérer une valeur au format date.
Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans
l'onglet qqch comme "Jan 09".
J'ai essayé divers modif comme celle-ci :
Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy"))
Mais je n'arrive pas au bon résultat ...
@+ ?
JP
Bonjour,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Index >= 2 And Sh.Index <= 13 Then
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Sh.[A1]
End If
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 4 jan, 12:30, j-pascal <messa...@venir.com> wrote:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue
dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet
respectif de chaque feuille.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index >= 2 And Sh.Index <= 13 Then If Target.Address = "$A$1" Then On Error Resume Next Sh.Name = Format(Sh.[A1], "mmm yy") End If End If End Sub
http://cjoint.com/?berLXEW0dV
JB
On 4 jan, 14:39, j-pascal wrote:
Bonjour Jacques,
Merci
Ca fonctionne bien, mais je dois récupérer une valeur au format date. Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans l'onglet qqch comme "Jan 09".
J'ai essayé divers modif comme celle-ci : Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy")) Mais je n'arrive pas au bon résultat ...
@+ ?
JP
Bonjour,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index >= 2 And Sh.Index <= 13 Then If Target.Address = "$A$1" Then On Error Resume Next Sh.Name = Sh.[A1] End If End If End Sub
JB http://boisgontierjacques.free.fr/
On 4 jan, 12:30, j-pascal wrote:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de chaque feuille.
Merci d'avance pour votra aide,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
j-pascal
Ok, je note cette autre solution.
Merci
JP
Bonne année 2009 '-------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then On Error Resume Next ActiveSheet.Name = Format([A1], "mmm-yy") End If End Sub '--------------- -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de chaque feuille.
Merci d'avance pour votra aide,
JP
Ok, je note cette autre solution.
Merci
JP
Bonne année 2009
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
ActiveSheet.Name = Format([A1], "mmm-yy")
End If
End Sub
'---------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.22ee7d91716f4630.81386@venir.com...
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans
la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de
chaque feuille.
Bonne année 2009 '-------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then On Error Resume Next ActiveSheet.Name = Format([A1], "mmm-yy") End If End Sub '--------------- -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de chaque feuille.
