renommer une macro excel par macro

papy 73 ans · 28 Février 2018

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 · 28 Février 2018

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 · 28 Février 2018

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

Roland_M · 28 Février 2018

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 · 28 Février 2018

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.

VB:

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 · 28 Février 2018

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 · 28 Février 2018

Re à tous

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

VB:

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")

renommer une macro excel par macro

papy 73 ans

XLDnaute Occasionnel

Roland_M

XLDnaute Barbatruc

Pièces jointes

papy 73 ans

XLDnaute Occasionnel

Roland_M

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

papy 73 ans

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Discussions similaires