Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal
Target As Range)...
Comment faire en sorte que, lorsque je copie la feuille "Directives", le
code contenu dans celle-ci soit également copié dans la nouvelle feuille
crée (dont on ne connaît pas le nom)
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
MichDenis
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier la feuille.
Salutations!
"Caroline L." a écrit dans le message de news: IWJZd.76396$ Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives" contient une macro du type Private Sub Worksheet_SelectionChange(ByVal Target As Range)... Comment faire en sorte que, lorsque je copie la feuille "Directives", le code contenu dans celle-ci soit également copié dans la nouvelle feuille crée (dont on ne connaît pas le nom)
Merci beaucoup et bonne fin de journée Caroline
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier la feuille.
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news: IWJZd.76396$WM1.1726909@wagner.videotron.net...
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal
Target As Range)...
Comment faire en sorte que, lorsque je copie la feuille "Directives", le
code contenu dans celle-ci soit également copié dans la nouvelle feuille
crée (dont on ne connaît pas le nom)
Explique un peu la manière que tu as prévu pour que l'usager puisse copier la feuille.
Salutations!
"Caroline L." a écrit dans le message de news: IWJZd.76396$ Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives" contient une macro du type Private Sub Worksheet_SelectionChange(ByVal Target As Range)... Comment faire en sorte que, lorsque je copie la feuille "Directives", le code contenu dans celle-ci soit également copié dans la nouvelle feuille crée (dont on ne connaît pas le nom)
Merci beaucoup et bonne fin de journée Caroline
Caroline L.
Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à la fin, que le code pourrait être copier).
Sub copier() '
Cells.Select Selection.Copy Sheets("Feuil2").Select ActiveSheet.Paste Range("A4").Select End Sub
merci pour ton aide Caroline
"MichDenis" a écrit dans le message de news:
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier la feuille.
Salutations!
"Caroline L." a écrit dans le message de news: IWJZd.76396$
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal Target As Range)... Comment faire en sorte que, lorsque je copie la feuille "Directives", le code contenu dans celle-ci soit également copié dans la nouvelle feuille crée (dont on ne connaît pas le nom)
Merci beaucoup et bonne fin de journée Caroline
Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à la
fin, que le code pourrait être copier).
Sub copier()
'
Cells.Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("A4").Select
End Sub
merci pour ton aide
Caroline
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
euktvcbKFHA.2764@tk2msftngp13.phx.gbl...
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier
la feuille.
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
IWJZd.76396$WM1.1726909@wagner.videotron.net...
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre
feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille
"Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal
Target As Range)...
Comment faire en sorte que, lorsque je copie la feuille "Directives", le
code contenu dans celle-ci soit également copié dans la nouvelle feuille
crée (dont on ne connaît pas le nom)
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à la fin, que le code pourrait être copier).
Sub copier() '
Cells.Select Selection.Copy Sheets("Feuil2").Select ActiveSheet.Paste Range("A4").Select End Sub
merci pour ton aide Caroline
"MichDenis" a écrit dans le message de news:
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier la feuille.
Salutations!
"Caroline L." a écrit dans le message de news: IWJZd.76396$
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal Target As Range)... Comment faire en sorte que, lorsque je copie la feuille "Directives", le code contenu dans celle-ci soit également copié dans la nouvelle feuille crée (dont on ne connaît pas le nom)
Merci beaucoup et bonne fin de journée Caroline
MichDenis
Bonjour Caroline,
Essaie ceci : Tu va copier (ajouter un clone de la feuil1) à ton classeur. Tout ce qu'il y a sur la feuille, bouton de commande, macro dans la feuille module ... graphes, va suivre !
Comme tu écrases tout ce que contient la feuil2, la procédure, elle, supprime cette feuille et la remplace par le clone de la feuil1.
'------------------------- Sub CopierUneFeuille()
On Error Resume Next Application.DisplayAlerts = False Worksheets("Feuil2").Delete Worksheets("Feuil1").Copy After:=Sheets(1) ActiveSheet.Name = "Feuil2" Range("A4").Select
End Sub '-------------------------
Salutations!
"Caroline L." a écrit dans le message de news: 0VKZd.76409$ Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à la fin, que le code pourrait être copier).
Sub copier() '
Cells.Select Selection.Copy Sheets("Feuil2").Select ActiveSheet.Paste Range("A4").Select End Sub
merci pour ton aide Caroline
"MichDenis" a écrit dans le message de news:
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier la feuille.
Salutations!
"Caroline L." a écrit dans le message de news: IWJZd.76396$
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal Target As Range)... Comment faire en sorte que, lorsque je copie la feuille "Directives", le code contenu dans celle-ci soit également copié dans la nouvelle feuille crée (dont on ne connaît pas le nom)
Merci beaucoup et bonne fin de journée Caroline
Bonjour Caroline,
Essaie ceci : Tu va copier (ajouter un clone de la feuil1) à ton classeur. Tout ce qu'il y a sur la feuille, bouton de
commande, macro dans la feuille module ... graphes, va suivre !
Comme tu écrases tout ce que contient la feuil2, la procédure, elle, supprime cette feuille et la remplace par le clone
de la feuil1.
'-------------------------
Sub CopierUneFeuille()
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("Feuil2").Delete
Worksheets("Feuil1").Copy After:=Sheets(1)
ActiveSheet.Name = "Feuil2"
Range("A4").Select
End Sub
'-------------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news: 0VKZd.76409$WM1.1772551@wagner.videotron.net...
Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à la
fin, que le code pourrait être copier).
Sub copier()
'
Cells.Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("A4").Select
End Sub
merci pour ton aide
Caroline
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
euktvcbKFHA.2764@tk2msftngp13.phx.gbl...
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier
la feuille.
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
IWJZd.76396$WM1.1726909@wagner.videotron.net...
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre
feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille
"Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal
Target As Range)...
Comment faire en sorte que, lorsque je copie la feuille "Directives", le
code contenu dans celle-ci soit également copié dans la nouvelle feuille
crée (dont on ne connaît pas le nom)
Essaie ceci : Tu va copier (ajouter un clone de la feuil1) à ton classeur. Tout ce qu'il y a sur la feuille, bouton de commande, macro dans la feuille module ... graphes, va suivre !
Comme tu écrases tout ce que contient la feuil2, la procédure, elle, supprime cette feuille et la remplace par le clone de la feuil1.
'------------------------- Sub CopierUneFeuille()
On Error Resume Next Application.DisplayAlerts = False Worksheets("Feuil2").Delete Worksheets("Feuil1").Copy After:=Sheets(1) ActiveSheet.Name = "Feuil2" Range("A4").Select
End Sub '-------------------------
Salutations!
"Caroline L." a écrit dans le message de news: 0VKZd.76409$ Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à la fin, que le code pourrait être copier).
Sub copier() '
Cells.Select Selection.Copy Sheets("Feuil2").Select ActiveSheet.Paste Range("A4").Select End Sub
merci pour ton aide Caroline
"MichDenis" a écrit dans le message de news:
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier la feuille.
Salutations!
"Caroline L." a écrit dans le message de news: IWJZd.76396$
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal Target As Range)... Comment faire en sorte que, lorsque je copie la feuille "Directives", le code contenu dans celle-ci soit également copié dans la nouvelle feuille crée (dont on ne connaît pas le nom)
Merci beaucoup et bonne fin de journée Caroline
Caroline L.
Re-bonjour, Je m'excuse, mon exemple n'était pas vraiment bon finalement, désolée. En fait, ma macro insère une nouvelle feuille, celle-ci est déplacée à la fin de toutes les feuilles (à droite), elle est renommée par l'utilisateur et elle reçoit un copie/coller de la feuille "Directives". Donc la nouvelle feuille devrait avoir également copie/coller le code de la feuille. Tu comprends ?
"MichDenis" a écrit dans le message de news: #
Bonjour Caroline,
Essaie ceci : Tu va copier (ajouter un clone de la feuil1) à ton classeur. Tout ce qu'il y a sur la feuille, bouton de
commande, macro dans la feuille module ... graphes, va suivre !
Comme tu écrases tout ce que contient la feuil2, la procédure, elle, supprime cette feuille et la remplace par le clone
de la feuil1.
'------------------------- Sub CopierUneFeuille()
On Error Resume Next Application.DisplayAlerts = False Worksheets("Feuil2").Delete Worksheets("Feuil1").Copy After:=Sheets(1) ActiveSheet.Name = "Feuil2" Range("A4").Select
End Sub '-------------------------
Salutations!
"Caroline L." a écrit dans le message de news: 0VKZd.76409$
Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à la
fin, que le code pourrait être copier).
Sub copier() '
Cells.Select Selection.Copy Sheets("Feuil2").Select ActiveSheet.Paste Range("A4").Select End Sub
merci pour ton aide Caroline
"MichDenis" a écrit dans le message de news:
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier
la feuille.
Salutations!
"Caroline L." a écrit dans le message de news: IWJZd.76396$
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal Target As Range)... Comment faire en sorte que, lorsque je copie la feuille "Directives", le code contenu dans celle-ci soit également copié dans la nouvelle feuille crée (dont on ne connaît pas le nom)
Merci beaucoup et bonne fin de journée Caroline
Re-bonjour,
Je m'excuse, mon exemple n'était pas vraiment bon finalement, désolée.
En fait, ma macro insère une nouvelle feuille, celle-ci est déplacée à la
fin de toutes les feuilles (à droite), elle est renommée par l'utilisateur
et elle reçoit un copie/coller de la feuille "Directives". Donc la nouvelle
feuille devrait avoir également copie/coller le code de la feuille. Tu
comprends ?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
#qFcC8bKFHA.3928@TK2MSFTNGP09.phx.gbl...
Bonjour Caroline,
Essaie ceci : Tu va copier (ajouter un clone de la feuil1) à ton classeur.
Tout ce qu'il y a sur la feuille, bouton de
commande, macro dans la feuille module ... graphes, va suivre !
Comme tu écrases tout ce que contient la feuil2, la procédure, elle,
supprime cette feuille et la remplace par le clone
de la feuil1.
'-------------------------
Sub CopierUneFeuille()
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("Feuil2").Delete
Worksheets("Feuil1").Copy After:=Sheets(1)
ActiveSheet.Name = "Feuil2"
Range("A4").Select
End Sub
'-------------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
0VKZd.76409$WM1.1772551@wagner.videotron.net...
Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à
la
fin, que le code pourrait être copier).
Sub copier()
'
Cells.Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("A4").Select
End Sub
merci pour ton aide
Caroline
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
euktvcbKFHA.2764@tk2msftngp13.phx.gbl...
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse
copier
la feuille.
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
IWJZd.76396$WM1.1726909@wagner.videotron.net...
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre
feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille
"Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal
Target As Range)...
Comment faire en sorte que, lorsque je copie la feuille "Directives", le
code contenu dans celle-ci soit également copié dans la nouvelle feuille
crée (dont on ne connaît pas le nom)
Re-bonjour, Je m'excuse, mon exemple n'était pas vraiment bon finalement, désolée. En fait, ma macro insère une nouvelle feuille, celle-ci est déplacée à la fin de toutes les feuilles (à droite), elle est renommée par l'utilisateur et elle reçoit un copie/coller de la feuille "Directives". Donc la nouvelle feuille devrait avoir également copie/coller le code de la feuille. Tu comprends ?
"MichDenis" a écrit dans le message de news: #
Bonjour Caroline,
Essaie ceci : Tu va copier (ajouter un clone de la feuil1) à ton classeur. Tout ce qu'il y a sur la feuille, bouton de
commande, macro dans la feuille module ... graphes, va suivre !
Comme tu écrases tout ce que contient la feuil2, la procédure, elle, supprime cette feuille et la remplace par le clone
de la feuil1.
'------------------------- Sub CopierUneFeuille()
On Error Resume Next Application.DisplayAlerts = False Worksheets("Feuil2").Delete Worksheets("Feuil1").Copy After:=Sheets(1) ActiveSheet.Name = "Feuil2" Range("A4").Select
End Sub '-------------------------
Salutations!
"Caroline L." a écrit dans le message de news: 0VKZd.76409$
Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à la
fin, que le code pourrait être copier).
Sub copier() '
Cells.Select Selection.Copy Sheets("Feuil2").Select ActiveSheet.Paste Range("A4").Select End Sub
merci pour ton aide Caroline
"MichDenis" a écrit dans le message de news:
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier
la feuille.
Salutations!
"Caroline L." a écrit dans le message de news: IWJZd.76396$
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal Target As Range)... Comment faire en sorte que, lorsque je copie la feuille "Directives", le code contenu dans celle-ci soit également copié dans la nouvelle feuille crée (dont on ne connaît pas le nom)
"Caroline L." a écrit dans le message de news: V4MZd.76961$ Re-bonjour, Je m'excuse, mon exemple n'était pas vraiment bon finalement, désolée. En fait, ma macro insère une nouvelle feuille, celle-ci est déplacée à la fin de toutes les feuilles (à droite), elle est renommée par l'utilisateur et elle reçoit un copie/coller de la feuille "Directives". Donc la nouvelle feuille devrait avoir également copie/coller le code de la feuille. Tu comprends ?
"MichDenis" a écrit dans le message de news: #
Bonjour Caroline,
Essaie ceci : Tu va copier (ajouter un clone de la feuil1) à ton classeur. Tout ce qu'il y a sur la feuille, bouton de
commande, macro dans la feuille module ... graphes, va suivre !
Comme tu écrases tout ce que contient la feuil2, la procédure, elle, supprime cette feuille et la remplace par le clone
de la feuil1.
'------------------------- Sub CopierUneFeuille()
On Error Resume Next Application.DisplayAlerts = False Worksheets("Feuil2").Delete Worksheets("Feuil1").Copy After:=Sheets(1) ActiveSheet.Name = "Feuil2" Range("A4").Select
End Sub '-------------------------
Salutations!
"Caroline L." a écrit dans le message de news: 0VKZd.76409$
Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à la
fin, que le code pourrait être copier).
Sub copier() '
Cells.Select Selection.Copy Sheets("Feuil2").Select ActiveSheet.Paste Range("A4").Select End Sub
merci pour ton aide Caroline
"MichDenis" a écrit dans le message de news:
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier
la feuille.
Salutations!
"Caroline L." a écrit dans le message de news: IWJZd.76396$
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal Target As Range)... Comment faire en sorte que, lorsque je copie la feuille "Directives", le code contenu dans celle-ci soit également copié dans la nouvelle feuille crée (dont on ne connaît pas le nom)
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news: V4MZd.76961$WM1.1830387@wagner.videotron.net...
Re-bonjour,
Je m'excuse, mon exemple n'était pas vraiment bon finalement, désolée.
En fait, ma macro insère une nouvelle feuille, celle-ci est déplacée à la
fin de toutes les feuilles (à droite), elle est renommée par l'utilisateur
et elle reçoit un copie/coller de la feuille "Directives". Donc la nouvelle
feuille devrait avoir également copie/coller le code de la feuille. Tu
comprends ?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
#qFcC8bKFHA.3928@TK2MSFTNGP09.phx.gbl...
Bonjour Caroline,
Essaie ceci : Tu va copier (ajouter un clone de la feuil1) à ton classeur.
Tout ce qu'il y a sur la feuille, bouton de
commande, macro dans la feuille module ... graphes, va suivre !
Comme tu écrases tout ce que contient la feuil2, la procédure, elle,
supprime cette feuille et la remplace par le clone
de la feuil1.
'-------------------------
Sub CopierUneFeuille()
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("Feuil2").Delete
Worksheets("Feuil1").Copy After:=Sheets(1)
ActiveSheet.Name = "Feuil2"
Range("A4").Select
End Sub
'-------------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
0VKZd.76409$WM1.1772551@wagner.videotron.net...
Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à
la
fin, que le code pourrait être copier).
Sub copier()
'
Cells.Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("A4").Select
End Sub
merci pour ton aide
Caroline
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
euktvcbKFHA.2764@tk2msftngp13.phx.gbl...
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse
copier
la feuille.
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
IWJZd.76396$WM1.1726909@wagner.videotron.net...
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre
feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille
"Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal
Target As Range)...
Comment faire en sorte que, lorsque je copie la feuille "Directives", le
code contenu dans celle-ci soit également copié dans la nouvelle feuille
crée (dont on ne connaît pas le nom)
"Caroline L." a écrit dans le message de news: V4MZd.76961$ Re-bonjour, Je m'excuse, mon exemple n'était pas vraiment bon finalement, désolée. En fait, ma macro insère une nouvelle feuille, celle-ci est déplacée à la fin de toutes les feuilles (à droite), elle est renommée par l'utilisateur et elle reçoit un copie/coller de la feuille "Directives". Donc la nouvelle feuille devrait avoir également copie/coller le code de la feuille. Tu comprends ?
"MichDenis" a écrit dans le message de news: #
Bonjour Caroline,
Essaie ceci : Tu va copier (ajouter un clone de la feuil1) à ton classeur. Tout ce qu'il y a sur la feuille, bouton de
commande, macro dans la feuille module ... graphes, va suivre !
Comme tu écrases tout ce que contient la feuil2, la procédure, elle, supprime cette feuille et la remplace par le clone
de la feuil1.
'------------------------- Sub CopierUneFeuille()
On Error Resume Next Application.DisplayAlerts = False Worksheets("Feuil2").Delete Worksheets("Feuil1").Copy After:=Sheets(1) ActiveSheet.Name = "Feuil2" Range("A4").Select
End Sub '-------------------------
Salutations!
"Caroline L." a écrit dans le message de news: 0VKZd.76409$
Bonsoir,
Voici un exemple avec la Sub suivante (c'est avec celle-ci, au début ou à la
fin, que le code pourrait être copier).
Sub copier() '
Cells.Select Selection.Copy Sheets("Feuil2").Select ActiveSheet.Paste Range("A4").Select End Sub
merci pour ton aide Caroline
"MichDenis" a écrit dans le message de news:
Bonjour Caroline,
Explique un peu la manière que tu as prévu pour que l'usager puisse copier
la feuille.
Salutations!
"Caroline L." a écrit dans le message de news: IWJZd.76396$
Bonjour,
Hé oui, c'est encore moi ! j'ai une autre petite question :
Je dois copier/coller la feuille nommée "Directives" dans une autre feuille
dont le nom sera aléatoire selon l'utilisateur, mais la feuille "Directives"
contient une macro du type Private Sub Worksheet_SelectionChange(ByVal Target As Range)... Comment faire en sorte que, lorsque je copie la feuille "Directives", le code contenu dans celle-ci soit également copié dans la nouvelle feuille crée (dont on ne connaît pas le nom)
