Mise à 0 intempestive de combobox créées dynamiquement

[zef]

Bonjou à tous,

J'ai créé un userform ainsi que des combobox sur cet userform par une macro dans un module VBA. Je mets ces combobox à jour en reprenant les lignes d'une feuille Excel.
Jusque là tout va bien, un userform est créé dans mon projet et les champs des combobox remplies.
Mais si je lance la présentation de cet userform (mynewUF.show dans le même module mais une autre sub), l'userform apparaît tel que je l'ai conçu à la seule différence que tous les champs des combobox sont vides...

Est-ce normal qu'il y ait une mise à zéro des champs qui s'effectue alros que personne ne lui demande rien?!!
Merci de votre aide,
Zef.

 

[skoobi]

Re : Mise à 0 intempestive de combobox créées dynamiquement

Bonjour,

Mais si je lance la présentation de cet userform (mynewUF.show dans le même module mais une autre sub), l'userform apparaît tel que je l'ai conçu à la seule différence que tous les champs des combobox sont vides...

Est-ce normal qu'il y ait une mise à zéro des champs qui s'effectue alros que personne ne lui demande rien?!!

Avec le fichier (ou un extrait) on y verrait plus clair.

 

[BERRACHED said]

Re : Mise à 0 intempestive de combobox créées dynamiquement

Salut,zef,skoobi

donc il est mal Instialiser ton Usf,mais comme il a dit Skoobi renvoi ton fichier exemple on verra mieux

Cordialement

 

[zef]

Re : Mise à 0 intempestive de combobox créées dynamiquement

Salut à tous les deux,
Voici mon fichier (nettoyé grossièrement, il reste donc peut-être des lignes qui semblent ne servir à rien et d'autres qui ne servent effectivement à rien).

La méthode utilisée pour afficher le Userform est surement bizarre mais l'a solution alternative "Macroscenario.show" (laissée en commentaire dans le code) génère une erreur systématiquement.

Merci de votre aide,

Zef.

 

[zef]

Re : Mise à 0 intempestive de combobox créées dynamiquement

Personne pour me répondre? Je suis arrivé à bout d'idées pour trouver une solution. Si quelqu'un avait l'ombre d'une piste, cela pourrait considérablement m'aider.

Merci!

Zef.

 

[skoobi]

Re : Mise à 0 intempestive de combobox créées dynamiquement

Re bonjour,

Je viens de m'apercevoir que tu as créé ton USF à la volé, chose que je n'ai encore jamais fait donc je passe la main, désolé 🙁.

 

[Lii]

Re : Mise à 0 intempestive de combobox créées dynamiquement

Bonsoir Tous,

moi aussi, je découvre.
Il est normal qu'à l'affichage par .Show les combos soient vides.
Je créerais donc une procédure .Initialize dans l'USF pour alimenter les combos.
Voir un exemple dans le fichier joint.

 

[zef]

Re : Mise à 0 intempestive de combobox créées dynamiquement

Hello,
Merci Lii pour ta réponse. Bizarrement je n'ai pas rencontré plusieurs messages d'erreur en essayant d'ouvrir ton classeur ("mauvais format de compression" quand j'essaie de le dézipper puis nouveau message d'erreur du type "classeur inutilisable" quand j'ouvre Excel et une fois ouvert le fichier est complètement vide).
J'ai essayé néanmoins d'insérer une macro initialize dans le code du USF mais le problème reste le même: quand je lance la macro, l'USF est créé, le code est ajouté comme je le veux dans ce dernier mais n'est pas lu à moins que je le relance manuellement par la suite ( ce que je veux éviter).

Zef.

 

[Lii]

Re : Mise à 0 intempestive de combobox créées dynamiquement

Re,

Je ne comprends pas.
Je te joins donc un fichier non zippé et qui tourne chez moi.
Voici ce que j'ai ajouté

With mynewform.CodeModule
    j = .CountOfLines
    .InsertLines j + 1, "Sub affiche_Macroscenario()"
    .InsertLines j + 2, "Macroscenario.show"
    .InsertLines j + 3, "End Sub"
[COLOR=SeaGreen][B]Rem macro initialisation combo[/B][/COLOR]
.InsertLines j + 4, "Private Sub UserForm_Initialize()"
.InsertLines j + 5, "  For i = 1 To DerliA"
.InsertLines j + 6, "    If f.Cells(i, 2).Value <> """" Then"
.InsertLines j + 7, "      scenario = f.Cells(i, 2).Value"      
.InsertLines j + 8, "      ComboBox1.AddItem scenario"
.InsertLines j + 9, "    End If"
.InsertLines j + 10, "  Next"
.InsertLines j + 11, "End Sub"

End With

en déclarant "Public" les variables i, f, scenario.

 

[zef]

Re : Mise à 0 intempestive de combobox créées dynamiquement

Bonjour,

Merci Lii! Cette fois-ci j'ai pu ouvrir ton fichier sans problème (c'est à n'y rien comprendre).
Il semblerait par ailleurs qu'en rajoutant la macro initialize comme tu l'as fait, aujourd'hui cela marche (alors que cela ne semblait pas non plus fonctionner hier...).
Il doit y avoir des jours comme ça où on n'arrive pas à grand-chose.


Donc, je te remercie (surtout pour le bouton Smiley de ton fichier 😉 ).

A bientôt,
Zef.