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
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
Bonjour,
A priori, tu n'as rien à faire.
Le classement des modules standards se fait automatiquement suivant un ordre numérique croissant.
Cordialement.
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
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 …
C'est parce que la vitesse de la lumière est plus rapide que celle du son que tant de gens paressent brillants avant d'avoir l'air con ! (Thomas Boishardy)
Bonjour Marc-L,
J'ai fait mais ça ne change rien ou alors mal fait
Cordialement
Bonjour,
Es-tu sûr de bien parler des modules vba ? car en principe c'est automatique !
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
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
Dernière modification par AlainTech ; 03/11/2014 à 20h55. Motif: Suppression de la citation inutile
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
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.
N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
Pensez aussi à voter pour les réponses qui vous ont aidés.
------------
Je dois beaucoup de mes connaissances à mes erreurs!
Bonjour AlainTech,
Exactement c'est bien ça.
Bonne journée à toi
Cordialement
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.
N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
Pensez aussi à voter pour les réponses qui vous ont aidés.
------------
Je dois beaucoup de mes connaissances à mes erreurs!
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
Oui, ça s'appelle une boucle.
Mais, sérieusement, je n'en vois pas l'usage ici.
Plus vite renommé que programmé.
N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
Pensez aussi à voter pour les réponses qui vous ont aidés.
------------
Je dois beaucoup de mes connaissances à mes erreurs!
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
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
Bonjour,
Tu peux adapter le code proposé par Nouveau2
Cordialement.
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
Bonjour gFZT82,
GROS PROGRES!!!
Mais ça bloque à la ligneNuméros modules anciens à gauche et nouveaux à droite :
Code : Sélectionner tout - Visualiser dans une fenêtre à part N.Properties("Name").Value = "Module" & Nombre
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
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+
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager