Nommer un module en VBA

[Laurent]

Bonjour,

J'aimerais, tout simplement, nommer un module en VBA (excel). Quelqu'un pourrait-il m'aider ??

Un grand merci,

Laurent

 

[Pascal76]

Bonjour

Quand tu cliques sur le module et que tu ouvres la fenêtre proriétés tu peux changer le nom (Name) du module

Pascal

 

[ChTi'160]

Salut"Laurent et Pascal"
je me permet cette intrusion je n'arrive pas a renommer les Modules
exemple "Module1" je n'arrive à changer que le nom du VBAproject
peux tu me renseigner
Merci d'avance
A+++
Jean Marie

 

[Pascal76]

Salut Jean marie

Il faut que ta fenetre Propriétés soit affichée.

Ensuite quand tu cliques sur Module1 tu as juste dans la fenêtre propriétés le "Name" du module en l'occurence "Module1". Tu tapes le nouveau nom et l'affaire st dans le sac

Pascal

 

[ChTi'160]

Re pascal
merci (avec du temps)j'ai compri, je passe par affichage et ensuite fenêtre propriétés
et là je change Name
merci
A+++
Jean Marie

 

[Pascal76]

RE

Excuse Jean-Marie mais c'est vrai que cette fenêtre "Propriétés" est toujours visible chez moi (car on s'en sert pas mal) donc j'avais oublié la précision pour l'afficher.

Pascal

 

[@+Thierry]

Bonjour Pascal, Jean Marie, Laurent

Ayant compris le titre "Nommer un module en VBA voici donc deux exemple pour comment faire en VBA

Pour un seul Module :

Sub RenameOneModule()
    With ActiveWorkbook.VBProject.VBComponents("Module1")
        .Name = "MonBeauModule"
    End With
End Sub


Pour tous les Modules (si ils comportent le numéro standard)

Sub ReNameAllModules()
Dim Number As String
Dim VBModule As Object


With ActiveWorkbook.VBProject

    For Each VBModule In .VBComponents
        If VBModule.Type = 1 Then
            '(Type 3 => Private Module de UserForm)
            '(Type = 100 => Private Module de Sheet ou ThisWorkBook)
            Number = Right(VBModule.Name, 1)
            VBModule.Name = "MonBeauModuleRoiDesForets" & Number
        End If
    Next
End With

End Sub

Bonne Fin de Journée
@+Thierry

 

[@+Thierry]

Re à tous

Ah oui, pour vous éviter de chercher (ce qui est arrivé à pas mal d'XLD), sous Office XP (2002 ou 2003) il faut pour que ce genre de code fonctionne, au préalable avoir cocher dans le second onglet des Sécurités Macro, la CheckBox "Trust Access to Visual Basic Project" (qui devrait se traduire en bon françois par quelque chose comme "Faire Confiance à l'Accès au Projet Visual Basic...")

Bon Fin d'Aprèm
@+Thierry