Discussion :

[Un Internaute]

Bonjour le forum,
Ça n'intéresse personne de terminer la macro?
Dommage vu le nombre de visites.
Bon WE à tous
Cordialement

[gFZT82]

Bonjour,

Si tu souhaites obtenir l'aide des membres du forum, il faut que tu t'obliges à te montrer agréable.
Si les intervenants ne te répondent pas, c'est sûrement pour une bonne raison.
Avec ton dernier message, tu risques de rebuter les plus susceptibles.

Voici une solution qui utilise un traitement intermédiaire.

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
Sub VBComponentRenameTest()
Dim N
Dim Nombre As Integer
    Nombre = 1
    For Each N In Excel.Workbooks(ThisWorkbook.Name).VBProject.VBComponents
        If N.Name <> "UserForm1" Then
            If Left(N.Properties("Name").Value, 6) = "Module" Then
                N.Properties("Name").Value = "InterM" & Nombre
                Nombre = Nombre + 1
            End If
        End If
    Next N
    For Each N In Excel.Workbooks(ThisWorkbook.Name).VBProject.VBComponents
        If N.Name <> "UserForm1" Then
            If Left(N.Properties("Name").Value, 6) = "InterM" Then
                N.Properties("Name").Value = "Module" & Right(N.Properties("Name").Value, Len(N.Properties("Name").Value) - 6)
            End If
        End If
    Next N
End Sub

Cordialement.

[Un Internaute]

Bonsoir gFZT82,
Où ai-je été "désagréable"?
Je pense que mes propos ont été mal interprétés lorsque j'ai écrit : Ça n'intéresse personne de terminer cette macro?
J'ai écrit ça parce que j'ai vu un grand nombre de visites et que j'en ai déduit que ça intéresse beaucoup de monde .
Dans la vie en générale on me dit: Tu es TROP Gentil
J'écris MERCI à chaque fois
J'écris BIEN CORDIALEMENT à chaque fois
ENCORE UN GRAND MERCI car ça fonctionne super
Bonne fin de soirée à toi
Bien cordialement

PS: Que dois-je faire de plus?