Discussion :

[Un Internaute]

Bonjour le forum,
J'ai un peu "gratté" mais pas trouvé ou je n'ai pas cherché où il faut.
Peut-on trier les modules standard par ordre numérique croissant?
Merci pour vos éventuels "retours"
Cordialement

[gFZT82]

Bonjour,

A priori, tu n'as rien à faire.
Le classement des modules standards se fait automatiquement suivant un ordre numérique croissant.

Cordialement.

[Un Internaute]

Bonjour gFZT82,
Oui je sais. En tout j'ai 16 modules mais comme j'en ai renommé 9 (Fenêtre propriétés) certains autres ne sont plus par ordre numérique croissant.
Exemple : 1 4 6 7 8 9
A part les renommer manuellement je ne vois pas comment faire.

Cordialement

[Marc-L]

Bonjour,

supprimer les modules en les exportant puis les réimporter en bon ordre …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Un Internaute]

Bonjour Marc-L,
J'ai fait mais ça ne change rien ou alors mal fait
Cordialement

[Oliv-]

Bonjour,
Es-tu sûr de bien parler des modules vba ? car en principe c'est automatique !

[Un Internaute]

Bonsoir Oliv,
Oui c'est bien du VBA modules standard mais comme j'en ai renommé certains ça vient de là mais c'est pas grave tout fonctionne bien.
Voici en PJ les modules.
Merci à vous
Bonne fin de soirée
Cordialement

[Invité]

Salut,

Que cherche-tu finalement ?
As-tu un exemple [Avant] => [Après] de ce que tu souhaite obtenir ?

@+


-------------------------------------------------------------------

Pour renommer un Module existant(important) en un autre nom de Module n'existant pas déjà(important aussi), un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub VBComponentRenameTest()
    Excel.Workbooks(ThisWorkbook.Name).VBProject.VBComponents("Module1").Properties("Name").Value = "Module1New"
End Sub

[Un Internaute]

Bonsoir Nouveau2,
C'est tout simplement pour savoir si c'est possible mais ça ne changera rien.
C'est à la place de faire clic droit renommer chaque module
C'est de l'esthétique!

Module1= 1
Module4= 2
Module6= 3
Module7= 4
Module8= 5
Module9= 6

Cordialement

[AlainTech]

Bonjour,

En fait, si j'ai bien compris, ce que tu cherches à faire ce n'est pas trier (ce qui est déjà le cas) mais bien renommer.

[Un Internaute]

Bonjour AlainTech,
Exactement c'est bien ça.
Bonne journée à toi
Cordialement

[AlainTech]

Bonjour,

Une prochaine fois, essaie d'utiliser les bons termes, qu'on ne perde pas 6 messages qui ne répondent pas à ta question.

Regarde la 2e partie du Post #8 de Nouveau2.

[Un Internaute]

re-AlainTech,
Effectivement je me suis mal exprimé et je m'en excuse
Autre excuse je n'ai pas vu la macro de Nouveau2.
Effectivement ça fonctionne.
Peut-on en faire plusieurs à la fois?
Cordialement

[AlainTech]

Oui, ça s'appelle une boucle.

Mais, sérieusement, je n'en vois pas l'usage ici.
Plus vite renommé que programmé.

[Un Internaute]

Bonsoir AlainTech,
Oui c'est bien mon avis également pour ce projet.
Je vais essayer d'y travailler quand même car ça me fait "C$$$R de m'en taper 100 à renommer.
Encore merci pour les "retours"
Je ne met pas "résolu" volontairement
Bonne fin de soirée à tous
Cordialement

[Un Internaute]

Bonsoir le forum,
Bon ben je jette l'éponge!
Si ça intéresse quelqu'un de faire une boucle je pense que de nombreux membres du forum et autres seront preneur.
Moi pas capable
Bonne fin de soirée à vous tous
Cordialement

[gFZT82]

Bonjour,

Tu peux adapter le code proposé par Nouveau2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub VBComponentRenameTest()
Dim N
    For Each N In Excel.Workbooks(ThisWorkbook.Name).VBProject.VBComponents
        If Left(N.Properties("Name").Value, 6) = "Module" Then
            N.Properties("Name").Value = "A" & Right(N.Properties("Name"), Len(N.Properties("Name").Value) - 6)
        End If
    Next N
End Sub

Cordialement.

[Un Internaute]

Bonjour gFZT82,
GROS PROGRES!!!
Mais ça bloque à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

N.Properties("Name").Value = "Module" & Nombre

Numéros modules anciens à gauche et nouveaux à droite :
1 1
4 2
6 3
7 4
8
9
8 et 9 inchangé alors qu'ils devraient s'appeler 5 et 6
Si tu as des idées ne te prive pas!!!
Bonne fin de soirée à toi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub VBComponentRenameTest()
Dim N
Dim Nombre As Integer
 
  Nombre = 1
  For Each N In Excel.Workbooks(ThisWorkbook.Name).VBProject.VBComponents
    If Left(N.Properties("Name").Value, 6) = "Module" Then
      N.Properties("Name").Value = "Module" & Nombre            'Right(N.Properties("Name"), Len(N.Properties("Name").Value) - 6)
      Nombre = Nombre + 1
    End If
  Next N
End Sub

[gFZT82]

Bonjour,

Tout ce que je peux te dire, c'est que lorsque j'effectue le test avec
Module1
Module4
Module6
Module7
Module8
Module9

J'obtiens bien le résultat espéré
Module1
Module2
Module3
Module4
Module5
Module6

La vérité est ailleurs

A+

[Un Internaute]

Bonjour gFZT82,
Tu as de la chance moi non.
Je peux mettre mon fichier STP?
A+ et merci encore

Voici mon fichier
Le module concernant la renumérotation des modules s'appelle: RenommerNumerosModules
Si toi gFZT82 ça fonctionne pas chez moi.
Bien cordialement