Discussion :

[Unknow28]

Bonjour,

j'ai parcouru de nombreux forums qui parlait de ma question, mais j'y comprend rien, les exemples sont par pour des débutants comme moi.
Quelqu'un pourrait-il m'indiquer un code commenté ligne par ligne qui me permettrait de supprimer une procédure (ou module je crois) dans un classeur Excel en VBA.
En fait, je lance une procédure à l'aide d'un bouton qui vide certaines cellules d'une feuille Excel mais je ne veux plus que l'utilisateur puisse réutiliser cette procédure une fois qu'il a enregistré son travail (mais je conserve le bouton pour faire le reste de la macro)
J'ai des exemples de codes, mais je ne sais pas à quoi correspondent tous les termes, où est le nom du code ou de la procédure, trop compliqué pour moi.
Voici ces exemples:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
' Le code ci-dessous permet de supprimer la procédure "asupprimer" contenu dans le module "thisworkbook (code du classeur)
 
sub supprimer_module() 
dim LineStart As long
dim Linecount As long 
with thisworkbook.VBProject.VBComponents("thisworkbook").CodeModule 
LineStart = .ProcStartLine("asupprimer", vbext_pk_Proc)
Linecount = .ProccountLines("asupprimer", vbext_pk_Proc) 
.deleteLines LineStart, Linecount
end with 
end sub 
 
' Supprimer la procédure "deleteMe" du module "Module1"
 
sub supprimer_procédure
dim LineStart As long
dim Linecount As long
with thisworkbook.VBProject.VBComponents("Module1").CodeModule
LineStart = .ProcStartLine("deleteMe", vbext_pk_Proc)
Linecount = .ProccountLines("deleteMe", vbext_pk_Proc)
.deleteLines LineStart, Linecount
end with
end sub

Qui peut me commenter ceci, que dois-je remplacer par quoi?
Y a t-il plus simple?
Mon classeur s'appelle "Nomenclature" et j'ai 2 modules "Recap" et "Imprimer" et je veux supprimer "Recap".
Merci d'avance de votre aide.

[Qwazerty]

SAlut
Je connais pas trop ca, (y'a deja eu des sujet similaire y'a quemque jours/semaines) mais en lisant juste cette ligne dans ton code fourni

Supprimer la procédure "deleteMe" du module "Module1"

Je dirais que dans le code qui suis cette ligne tu dois replacer deleteMe par le nom de la procedure que tu veux supprimer et Module1 par le nom du module qui contient la procedure que tu veux supprimer.

Je me demande si tu confond pas un peu Module et Procedure dans ta question, donc je m'avancerais pas sur les nom a mettre a la place.
En effet Recap c'est un module ou le nom de ton procedure (Sub Recap), au vu du nom suivant Imprimer je suppose que c'est procedure et non module, donc DeleteMe doit etre remplacé par Recap et Module1 par ... ben je sais pas je doute que tu donnes l'info, a moins que tu confondes classeur et Module.. mais je ne le pense pas.

Ps: Par contre tu vas surement etre embeté un moment ou a un autre, car si tu supprimes cette fonction, il te faudra aussi supprimer les eventuels boutons, ou parties de code qui y faisaient reference, sinon ca va planter (je pense)

A++
Qwaz

[kiki29]

Soir Bon, voir http://excel.developpez.com/faq/?page=VBA#DeleteMacro

[Unknow28]

Merci à tous, mais j'arrive toujours pas à faire fonctionner ces codes "erreur 1004" et voir le débogae joint plus bas.
Même celui ci-dessous que j'ai trouvé suite au post de kiki29:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
'Supprimer la macro nommée "MaMacro" dans le "module3"
Sub supprimerUneMacroPrecise()
Dim Debut As Integer, Lignes As Integer
 
    With ThisWorkbook.VBProject.VBComponents("Module3").CodeModule
        Debut = .ProcStartLine("MaMacro", 0)
        Lignes = .ProcCountLines("MaMacro", 0)
        .DeleteLines Debut, Lignes
    End With
End Sub

Que veut dire "Vous devez ajouter la référence "Microsoft visual Basic For Application Extensenbility x.x" à votre projet" et que doit-on mettre à la place de "X.X"?
Merci de vos réponses

[SilkyRoad]

bonsoir

Que veut dire "Vous devez ajouter la référence "Microsoft visual Basic For Application Extensenbility x.x" à votre projet.

Dans l'éditeur de macros,
Menu Outils
Références
coche la ligne ""Microsoft visual Basic For Application Extensenbility 5.3".
Clique sur le bouton OK pour valider.
Ensuite, réessaye ta macro.


bonne soirée
michel

[Unknow28]

Merci de cette réponse; ceci a-t-il une influence pour les utilisateurs qui utiliseront le classeur sur un autre poste que celui où a été créé la macro?
Doit-on faire la même manip sur leur poste?
Par ailleurs, j'ai essayé la manip, enregistré le classeur, mais une fois réouvert, j'ai toujours le code erreur 1004: "L'accès par programme au projet Visual Basic n'est pas fiable".
C'est déroutant.
Bonne année!