XL 2016 A la première exécution de la macro, il manque un indice, mais pas après

xUpsilon · 16 Janvier 2020

Bonsoir tout le monde,

Je reviens pour mon configurateur une fois de plus, et cette fois-ci l'erreur est assez marrante vous allez voir.
Sur le fichier ci-joint, on crée une feuille par catégorie, cette catégorie étant désignée par un titre et des noms (bref on s'en fout).
Toujours est-il que lorsque j'exécute la première fois juste après avoir ouvert mon fichier ma macro, j'ai une erreur qui est la suivante : "L'indice n'appartient pas à la sélection". Cette erreur s'adresse à la ligne suivante :

VB:

Wb.VBProject.VBComponents(NomFeuil).CodeModule.insertlines j, LeCode(j)

NomFeuil est défini à la ligne d'avant par :

Code:

NomFeuil = Worksheets(3).CodeName

Cette troisième feuille est créée au sein de la macro, quelques lignes plus haut.

Le problème est le suivant : Lorsque j'exécute la macro pour la première fois depuis que j'ai ouvert le fichier, j'ai une erreur, et lorsque je regarde mes variables locales, je vois que mon NomFeuil est égal à "", plutot que de prendre le CodeName.
En revanche, si je ferme la macro, que je supprime la page générée, et que je relance la macro, cette fois ci le NomFeuil prend la bonne valeur et la macro fonctionne donc correctement.

Est-ce que qqun a une idée ? J'ai essayé de remplir le CodeName juste après la création de la page, j'ai essayé de remplir le CodeName plusieurs fois, en me disant que peut-être sur le premier coup il était encore vide pour une raison ou pour une autre, mais rien n'y fait. Je ne comprends pas pourquoi uniquement lors de la première exécution le CodeName de la feuille que je crée est égal à "".

Merci d'avance pour toute aide !

job75 · 17 Janvier 2020

Quand on ajoute une feuille elle se place en dernier dans la collection VBComponents donc :

VB:

    Set Wb = Workbooks(NomClasseur)
              
    For j = 1 To 3
        Wb.VBProject.VBComponents(Wb.VBProject.VBComponents.Count).CodeModule.insertlines j, LeCode(j)
    Next j

A placer aux 2 endroits concernés, NomFeuil n'est plus utilisé, voyez ce fichier (2), il n'y a plus de bug.

Dudu2 · 16 Janvier 2020

Bonjour,

VB:

NomFeuil = Worksheets(3).CodeName

Alors que tu n'as que 2 feuilles !
Ça marche ensuite car tu as un Worksheets.Add qui suit dans le code.
D.

sylvanu · 16 Janvier 2020

Bonjour tout le monde,
Dans cette boucle, où est défini LeCode(3) ? :

VB:

    For j = 1 To 3
        Wb.VBProject.VBComponents(NomFeuil).CodeModule.insertlines j, LeCode(j)
    Next j

Si on initialise LeCode(3)="Toto" avant cette boucle. Ça marche très bien.

xUpsilon · 17 Janvier 2020

@Dudu2 il y a un Worksheets.Add avant

@sylvanu effectivement j'avais complètement zappé ça. Ca ne tourne toujours pas par contre :/

Bon par contre du coup il subsiste que mon CodeName reste vide tant que ma macro n'a pas fini de s'exécuter, qqun a une idée de pourquoi ?

Merci en tout cas !

sylvanu · 17 Janvier 2020

Bonjour,
Essayer cette PJ. Ca a l'air de fonctionner.
J'ai modifié quelques trucs en erreur comme le fait que NeedCheck est vide si Range("I" & i) ="", ou dans le code importé, il manquait des espaces.
Essayer pour voir.

xUpsilon · 17 Janvier 2020

Re,

Toujours pas, et on voit bien dans les var locales que NomFeuil = "", c'est comme si le CodeName s'initialisait après la fin de l'exécution de la macro c'est très bizarre.

Ce qui est d'autant plus bizarre c'est que le problème n'arrive toujours qu'à la première exécution du code. Si je relance le code une seconde fois sans fermer le fichier entre deux, il tourne parfaitement ...

Je continue de chercher, merci pour ton aide !

xUpsilon · 17 Janvier 2020

Re,

J'ai une update intéressante mais qui ne fonctionnera pas pour mon utilisation (je vous explique après).
- En fait, si plutot que d'appeler NomFeuil j'appelle directement "Feuil3", qui est le CodeName que va forcément prendre la première feuille à être générée, à ce moment là ça fonctionne dès la première exécution (avec un système de boucle on pourrait adapter également aux autres feuilles qui sont générées ensuite)
- Le problème c'est que ce fichier est destiné à être utilisé partout dans le monde, donc suivant le pays ce sera "Feuil3" (France), "Tabelle1" (Allemagne), "Sheet1" (Angleterre), etc ... Bref du coup impossible d'appliquer cette méthode ...

Ce qui est malgré tout intéressant c'est que ça veut dire que le CodeName existe ! Sinon en appelant "Feuil3" il devrait me dire qu'il ne trouve pas l'indice !
Le problème semble donc être de récupérer ce CodeName dans la variable NomFeuil.

Je continue de chercher

job75 · 17 Janvier 2020

Bonjour xUpsilon, sylvanu, le forum,

Après la création de la 3ème feuille il faut sortir en relançant "Bouton1_Cliquer" :

VB:

'Creation of the first sheet
If Worksheets.Count < 3 Then
    Worksheets.Add After:=Sheets(Worksheets.Count)
    Application.OnTime 1, "Bouton1_Cliquer" 'relance la procédure
    Exit Sub 'sort de la procédure
End If

Je ne sais pas pourquoi seule cette 3ème feuille (la 1ère créée) pose problème.

A+

xUpsilon · 17 Janvier 2020

Bonjour job, re le fil,

Comme d'habitude quand on ne trouve pas la solution, c'est que job l'a
Grand merci pour ta solution !

Si quelqu'un passait par là et pouvait apporter une explication à pourquoi ça se comporte comme cela, je suis toujours preneur !

Bonne continuation

sylvanu · 17 Janvier 2020

Re,
Et pourtant je vous assure que la V3 marche chez moi.
Essayer cette V4.
J'ai mis des DoEvents après chaque création de page pour laisser un peu de temps pour cette création.

xUpsilon · 17 Janvier 2020

Re,

Toujours pas chez moi sylvanu ...
Un problème de version peut-être ? Je suis sous Excel 2016.
Je pense que le problème vient du fait que Excel doit s'attacher à d'abord exécuter le corps de la macro AVANT d'attribuer les paramètres par défaut à ceux qui n'ont pas été définis pour les instances créées. Mais pourquoi est-ce que ça tourne bien chez toi, je n'arrive pas à me l'expliquer ...

job75 · 17 Janvier 2020

Tiens très curieux, qu'est-ce que c'est que cette couleur verte sur mon post #8 ???

Je vais demander à David.

xUpsilon · 17 Janvier 2020

Re,

@job75 c'est parce que j'ai marqué ton post comme solution (Bouton "Marquer comme solution" en bas du post).

Bonne continuation

sylvanu · 17 Janvier 2020

C'est pour mieux mettre en exergue les meilleurs posts !

Bonjour Job.

xUpsilon · 17 Janvier 2020

Re,

Surprise ! Pour une raison que j'ignore ça a fonctionné la dernière fois quand je l'ai testé mais ça ne fonctionne plus.

Bref, je suis perdu. D'autres idées @job75 ?

XL 2016 A la première exécution de la macro, il manque un indice, mais pas après

xUpsilon

XLDnaute Accro

Pièces jointes

job75

Dudu2

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

xUpsilon

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Pièces jointes

xUpsilon

XLDnaute Accro

xUpsilon

XLDnaute Accro

job75

XLDnaute Barbatruc

Pièces jointes

xUpsilon

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Pièces jointes

xUpsilon

XLDnaute Accro

job75

XLDnaute Barbatruc

xUpsilon

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

xUpsilon

XLDnaute Accro

Discussions similaires