Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Complètement d'accord avec toi Claude... Un exemple aurait été plus parlant... Mais quand ceux qui devraient parler ferment leur gueule, ceux qui devraient se taire disent des conneries (cherche pas dans le dictionnaire des citations elle n'existe pas cell-là)...
Bon, pour finalement répondre à ta question, en supposant que tu veux changer le nom de la macro : 'Macro1' par 'MamacroPerso' qui se trouve dans le module 1, même si je pige pas trop l'utilité du truc :
Fo la référence W VB extensibility x.x pour que ça fonctionne.
Code:
Sub change()
Dim A_rempl As String, Rempl_par As String
A_rempl = "Sub "
A_rempl = A_rempl & " [COLOR="YellowGreen"]Macro1[/COLOR](" 'Pour remplacer Sub Macro1
Rempl_par = "Sub [COLOR="YellowGreen"]MaMacroPerso[/COLOR](" 'par Sub MaMacroPerso
With ThisWorkbook.VBProject.VBComponents("[COLOR="Red"]Module1[/COLOR]").CodeModule
For i = 1 To .CountOfLines
.ReplaceLine i, Replace(.Lines(i, 1), A_rempl, Rempl_par)
Next
End With
End Sub
Ben tu vois Claude quand tu veux... Pour Saftmama, tu vois aussi ! rien ne sert de s'offusquer et de jouer les bons samaritains ça sert très très très souvent à rien...
Re,
Robert, tu as sorti les moufles...😀, mais ça nous dit pas si tu as compris la question, parce que personnellement, moi-même donc, je ne comprends pas, mais c'est comme d'hab...
A+
kjin
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD