renommer une macro excel par macro

[papy 73 ans]

Bonjour à chacun,
Je voudrais savoir s'il est possible de renommer une macro par macro ?
Exemple : Macro test() la renommer : macro essai()
En vous remerciant.

 

[Roland_M]

Bonjour,

oui c'est possible !
mais la macro qui effectue le travail doit se situer dans un module unique
comme dans cet exemple que j'ai adapté !
voir ci-joint

 

[papy 73 ans]

Bonjour Roland_M
Content de voir ta fidélité à me répondre, c'est super
Un grand merci

 

[Roland_M]

re

ben, c'est que je suis papy 72 ans !

et on n'oublie pas de liker quand on est satisfait ! ça fait toujours plaisir.
mais ça semble tomber en désuétude ! ça fait longtemps que j'en ai eu un !

c'est à dire cliquer sur la main pouce en l'air "j'aime" en bas à droite du message.

 

[Lone-wolf]

Bonjour papy 🙂 , Roland_M 🙂

Un autre exemple, mais il y a un inconvéniant, c'est qu'il faut compter toutes les lignes et les déduire après dans le code. Exemple: ici 17 lignes.

Sub Test()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim LineNum As Long
Dim NewName As String

Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Module1")
Set CodeMod = VBComp.CodeModule

NewName = "Sub VBE()"
With CodeMod
.DeleteLines 1
LineNum = .CountOfLines - 17
.InsertLines LineNum, NewName
End With
End Sub

 

[papy 73 ans]

Re,
Roland_M c'est fait avec les arriérés
Lone-wolf merci de ton implication mais le code de Roland_M me satisfait

 

[Lone-wolf]

Re à tous

Je viens de faire un test avec ceci, pas besoin de compter les lignes.

Option Explicit
'Cocher la référence Microsoft Visual Basic for Applications Extensibility 5.3 library
Sub VBE()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim LineNum As Long
Dim NewName As String

Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Module1")
Set CodeMod = VBComp.CodeModule

NewName = "Sub VBE()"

With CodeMod
.DeleteLines 3
LineNum = 3
.InsertLines LineNum, NewName
End With

End Sub

Et succès aussi dans un autre module (ici le 2)
Set VBComp = VBProj.VBComponents("Module2")