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 Ludovic,
Cette macro copie la feuille active sans tout le code dans son module feuille
'--------------------- Sub CopierFeuilleSansCode() Dim Sh As Worksheet Application.ScreenUpdating = False With ActiveSheet .Copy before:=Sheets(.Name) Set Sh = ActiveSheet With ThisWorkbook.VBProject.VBComponents(Sh.CodeName).CodeModule .DeleteLines 1, .CountOfLines End With .Select End With '---------------------
Salutations!
"Ludovic" a écrit dans le message de news: % Comment peut-on en VBA sélectionner une feuille pour la dupliquer dans le même classeur mais sans le code VBA qui lui est rattaché ?
Merci pour les infos.
-- Ludovic
Bonjour Ludovic,
Cette macro copie la feuille active sans tout le code dans son module feuille
'---------------------
Sub CopierFeuilleSansCode()
Dim Sh As Worksheet
Application.ScreenUpdating = False
With ActiveSheet
.Copy before:=Sheets(.Name)
Set Sh = ActiveSheet
With ThisWorkbook.VBProject.VBComponents(Sh.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
.Select
End With
'---------------------
Salutations!
"Ludovic" <rien@free.fr> a écrit dans le message de news: %23Jgca4R6FHA.2384@TK2MSFTNGP12.phx.gbl...
Comment peut-on en VBA sélectionner une feuille pour la dupliquer dans le
même classeur mais sans le code VBA qui lui est rattaché ?
Cette macro copie la feuille active sans tout le code dans son module feuille
'--------------------- Sub CopierFeuilleSansCode() Dim Sh As Worksheet Application.ScreenUpdating = False With ActiveSheet .Copy before:=Sheets(.Name) Set Sh = ActiveSheet With ThisWorkbook.VBProject.VBComponents(Sh.CodeName).CodeModule .DeleteLines 1, .CountOfLines End With .Select End With '---------------------
Salutations!
"Ludovic" a écrit dans le message de news: % Comment peut-on en VBA sélectionner une feuille pour la dupliquer dans le même classeur mais sans le code VBA qui lui est rattaché ?
Merci pour les infos.
-- Ludovic
Ludovic
Merci beaucoup du tuyau "michdenis" a écrit dans le message de news:
Bonjour Ludovic,
Cette macro copie la feuille active sans tout le code dans son module feuille
'--------------------- Sub CopierFeuilleSansCode() Dim Sh As Worksheet Application.ScreenUpdating = False With ActiveSheet .Copy before:=Sheets(.Name) Set Sh = ActiveSheet With ThisWorkbook.VBProject.VBComponents(Sh.CodeName).CodeModule .DeleteLines 1, .CountOfLines End With .Select End With '---------------------
Merci beaucoup pour le tuyau.
-- Ludovic
Merci beaucoup du tuyau
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ee2xoyT6FHA.2092@TK2MSFTNGP12.phx.gbl...
Bonjour Ludovic,
Cette macro copie la feuille active sans tout le code dans son module
feuille
'---------------------
Sub CopierFeuilleSansCode()
Dim Sh As Worksheet
Application.ScreenUpdating = False
With ActiveSheet
.Copy before:=Sheets(.Name)
Set Sh = ActiveSheet
With ThisWorkbook.VBProject.VBComponents(Sh.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
.Select
End With
'---------------------
Merci beaucoup du tuyau "michdenis" a écrit dans le message de news:
Bonjour Ludovic,
Cette macro copie la feuille active sans tout le code dans son module feuille
'--------------------- Sub CopierFeuilleSansCode() Dim Sh As Worksheet Application.ScreenUpdating = False With ActiveSheet .Copy before:=Sheets(.Name) Set Sh = ActiveSheet With ThisWorkbook.VBProject.VBComponents(Sh.CodeName).CodeModule .DeleteLines 1, .CountOfLines End With .Select End With '---------------------