A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux
derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18
Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code
de feuille, la nouvelle feuille ne comporte pas le dit "code de
feuille".
En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le
code de 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
Jacky
Bonjour, Par exemple '-------- Dim nom As String nom = "S" & Right(ActiveSheet.Name, 2) + 1 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = nom '--------------- reste à gérer l'existence préalable de la feuille -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18 Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de feuille, la nouvelle feuille ne comporte pas le dit "code de feuille". En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code de feuille ?
Bonjour,
Par exemple
'--------
Dim nom As String
nom = "S" & Right(ActiveSheet.Name, 2) + 1
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
'---------------
reste à gérer l'existence préalable de la feuille
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.72407d941736a46d.81386@venir.com...
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux
derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18
Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de
feuille, la nouvelle feuille ne comporte pas le dit "code de feuille".
En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code
de feuille ?
Bonjour, Par exemple '-------- Dim nom As String nom = "S" & Right(ActiveSheet.Name, 2) + 1 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = nom '--------------- reste à gérer l'existence préalable de la feuille -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18 Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de feuille, la nouvelle feuille ne comporte pas le dit "code de feuille". En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code de feuille ?
j-pascal
Merci bcp; c'est parfait.
JP
Bonjour, Par exemple '-------- Dim nom As String nom = "S" & Right(ActiveSheet.Name, 2) + 1 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = nom '--------------- reste à gérer l'existence préalable de la feuille -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18 Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de feuille, la nouvelle feuille ne comporte pas le dit "code de feuille". En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code de feuille ?
Merci bcp; c'est parfait.
JP
Bonjour,
Par exemple
'--------
Dim nom As String
nom = "S" & Right(ActiveSheet.Name, 2) + 1
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
'---------------
reste à gérer l'existence préalable de la feuille
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.72407d941736a46d.81386@venir.com...
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers
numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18
Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de
feuille, la nouvelle feuille ne comporte pas le dit "code de feuille".
En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code
de feuille ?
Bonjour, Par exemple '-------- Dim nom As String nom = "S" & Right(ActiveSheet.Name, 2) + 1 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = nom '--------------- reste à gérer l'existence préalable de la feuille -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18 Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de feuille, la nouvelle feuille ne comporte pas le dit "code de feuille". En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code de feuille ?
j-pascal
Re,
En fait, je cherchais à copier (et non seulement ajouter) la feuille !
(D'où l'incohérence de ma question subsidiaire ...)
J'ai (naïvement) modifié comme suit :
Sheets.Copy after:=Sheets(Sheets.Count)
ce qui me copie toutes les feuilles, et non pas seulement la feuille active !
Suis un peu perdu ...
@+ ?
JP
Bonjour, Par exemple '-------- Dim nom As String nom = "S" & Right(ActiveSheet.Name, 2) + 1 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = nom '--------------- reste à gérer l'existence préalable de la feuille -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18 Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de feuille, la nouvelle feuille ne comporte pas le dit "code de feuille". En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code de feuille ?
Re,
En fait, je cherchais à copier (et non seulement ajouter) la feuille !
(D'où l'incohérence de ma question subsidiaire ...)
J'ai (naïvement) modifié comme suit :
Sheets.Copy after:=Sheets(Sheets.Count)
ce qui me copie toutes les feuilles, et non pas seulement la feuille
active !
Suis un peu perdu ...
@+ ?
JP
Bonjour,
Par exemple
'--------
Dim nom As String
nom = "S" & Right(ActiveSheet.Name, 2) + 1
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
'---------------
reste à gérer l'existence préalable de la feuille
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.72407d941736a46d.81386@venir.com...
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers
numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18
Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de
feuille, la nouvelle feuille ne comporte pas le dit "code de feuille".
En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code
de feuille ?
En fait, je cherchais à copier (et non seulement ajouter) la feuille !
(D'où l'incohérence de ma question subsidiaire ...)
J'ai (naïvement) modifié comme suit :
Sheets.Copy after:=Sheets(Sheets.Count)
ce qui me copie toutes les feuilles, et non pas seulement la feuille active !
Suis un peu perdu ...
@+ ?
JP
Bonjour, Par exemple '-------- Dim nom As String nom = "S" & Right(ActiveSheet.Name, 2) + 1 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = nom '--------------- reste à gérer l'existence préalable de la feuille -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18 Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de feuille, la nouvelle feuille ne comporte pas le dit "code de feuille". En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code de feuille ?
j-pascal
Oups, j'ai fait ceci qui semble fonctionner :
nom = "S" & Right(ActiveSheet.Name, 2) + 1 ActiveSheet.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = nom
@+
JP
Bonjour, Par exemple '-------- Dim nom As String nom = "S" & Right(ActiveSheet.Name, 2) + 1 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = nom '--------------- reste à gérer l'existence préalable de la feuille -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18 Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de feuille, la nouvelle feuille ne comporte pas le dit "code de feuille". En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code de feuille ?
Oups, j'ai fait ceci qui semble fonctionner :
nom = "S" & Right(ActiveSheet.Name, 2) + 1
ActiveSheet.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
@+
JP
Bonjour,
Par exemple
'--------
Dim nom As String
nom = "S" & Right(ActiveSheet.Name, 2) + 1
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
'---------------
reste à gérer l'existence préalable de la feuille
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.72407d941736a46d.81386@venir.com...
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers
numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18
Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de
feuille, la nouvelle feuille ne comporte pas le dit "code de feuille".
En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code
de feuille ?
nom = "S" & Right(ActiveSheet.Name, 2) + 1 ActiveSheet.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = nom
@+
JP
Bonjour, Par exemple '-------- Dim nom As String nom = "S" & Right(ActiveSheet.Name, 2) + 1 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = nom '--------------- reste à gérer l'existence préalable de la feuille -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18 Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de feuille, la nouvelle feuille ne comporte pas le dit "code de feuille". En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code de feuille ?
Jacky
Re.. Désolé, j'avais pas vu la "Question subsidiaire"
Oups, j'ai fait ceci qui semble fonctionner :
Ben.. voila ! ;o))))) -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Oups, j'ai fait ceci qui semble fonctionner :
nom = "S" & Right(ActiveSheet.Name, 2) + 1 ActiveSheet.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = nom
@+
JP
Bonjour, Par exemple '-------- Dim nom As String nom = "S" & Right(ActiveSheet.Name, 2) + 1 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = nom '--------------- reste à gérer l'existence préalable de la feuille -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18 Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de feuille, la nouvelle feuille ne comporte pas le dit "code de feuille". En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code de feuille ?
Re..
Désolé, j'avais pas vu la "Question subsidiaire"
Oups, j'ai fait ceci qui semble fonctionner :
Ben.. voila !
;o)))))
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.73357d947bab1f40.81386@venir.com...
Oups, j'ai fait ceci qui semble fonctionner :
nom = "S" & Right(ActiveSheet.Name, 2) + 1
ActiveSheet.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
@+
JP
Bonjour,
Par exemple
'--------
Dim nom As String
nom = "S" & Right(ActiveSheet.Name, 2) + 1
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
'---------------
reste à gérer l'existence préalable de la feuille
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.72407d941736a46d.81386@venir.com...
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux
derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18
Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de
feuille, la nouvelle feuille ne comporte pas le dit "code de feuille".
En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le
code de feuille ?
Re.. Désolé, j'avais pas vu la "Question subsidiaire"
Oups, j'ai fait ceci qui semble fonctionner :
Ben.. voila ! ;o))))) -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Oups, j'ai fait ceci qui semble fonctionner :
nom = "S" & Right(ActiveSheet.Name, 2) + 1 ActiveSheet.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = nom
@+
JP
Bonjour, Par exemple '-------- Dim nom As String nom = "S" & Right(ActiveSheet.Name, 2) + 1 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = nom '--------------- reste à gérer l'existence préalable de la feuille -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
A partir de : "Sheets.Add after:=Sheets(Sheets.Count)"
, comment puis-je renommer ma feuille créée en récupérant les deux derniers numéros de la feuille active auxquels on ajoute 1.
Ex.
Feuille active (à partir de laquelle je lance la macro) = S18 Nouvelle feuille créée (placée à droite) = S19
Ca fait 2 heures que je patauge lamentablement ;-(
Merci pour vos lumières,
JP
Question subsidiaire :
Sauf erreur de ma part, lorsqu'on copie une feuille contenant du code de feuille, la nouvelle feuille ne comporte pas le dit "code de feuille". En supposant que je ne me trompe pas, y-a-t-il un moyen d'importer le code de feuille ?