Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel vider les macros d'un fichier

vider les macros d'un fichier

3 réponses
Avatar
gerard
bonsoir

je sauve un fichier sous un autre nom et je voudrais lui supprimer toutes
les userform et sub qu'il contient

merci
ge
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Denis Michon
Bonjour Gérard,

Attention
Set VBComps = ActiveWorkbook.VBProject.VBComponents

En conséquence :
Supprime tout le code du classeur actif

'---------------------
Sub SupprimeToutCodeEtFormulaire()

Dim VBComp As Object
Dim VBComps As Object

Set VBComps = ActiveWorkbook.VBProject.VBComponents

For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp

End Sub
'---------------------


Salutations!



"gerard" a écrit dans le message de news:brakj9$2us$
bonsoir

je sauve un fichier sous un autre nom et je voudrais lui supprimer toutes
les userform et sub qu'il contient

merci
ge
Avatar
gerard
Bonsoir
enfin de compte j'effectue une copie de la feuille et comme ca je n'ai plus
les macros et les userforms
donc c'est bon
mais il en reste sur la feuille peut on les supprimer par macro

merci
ge
"gerard" a écrit dans le message de
news:brakj9$2us$
bonsoir

je sauve un fichier sous un autre nom et je voudrais lui supprimer toutes
les userform et sub qu'il contient

merci
ge




Avatar
Denis Michon
Bonsoir Gérard,

La procédure suivante détruit tout le code la Feuille "Feuil1"

Attention, ici "Feuil1" n'est pas le nom de l'onglet de la feuille, mais la propriété "Name" de l'objet feuille que tu
retrouves dans la fenêtre de l'éditeur de code dans l'explorateur de projet : Le nom de la feuille placée entre parenthèse.
Au besoin modifie seulement le nom dans la procédure.

'---------------------------
Sub ViderModuleFeuil1DeSonCode()

With ActiveWorkbook.VBProject.VBComponents("Feuil1")
With .CodeModule
.DeleteLines 1, .CountOfLines
End With
End With

End Sub
'---------------------------


Salutations!



"gerard" a écrit dans le message de news:bran4m$3ml$
Bonsoir
enfin de compte j'effectue une copie de la feuille et comme ca je n'ai plus
les macros et les userforms
donc c'est bon
mais il en reste sur la feuille peut on les supprimer par macro

merci
ge
"gerard" a écrit dans le message de
news:brakj9$2us$
bonsoir

je sauve un fichier sous un autre nom et je voudrais lui supprimer toutes
les userform et sub qu'il contient

merci
ge