Mise à 0 intempestive de combobox créées dynamiquement

skoobi

XLDnaute Barbatruc

• 8 Octobre 2008

• #2

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?!!

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 9 Octobre 2008

• #3

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

 

Vote positif 0 Vote négatif

Z

zef

Guest

• 10 Octobre 2008

• #4

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.

 

Pièces jointes

• Essai Userform.xls

  33.5 KB · Affichages: 56
• Essai Userform.xls

  33.5 KB · Affichages: 55
• Essai Userform.xls

  33.5 KB · Affichages: 59

Vote positif 0 Vote négatif

Z

zef

Guest

• 14 Octobre 2008

• #5

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.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 14 Octobre 2008

• #6

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é 🙁.

 

Dernière édition: 14 Octobre 2008

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 14 Octobre 2008

• #7

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.

 

Pièces jointes

• UserformCrééVBA.zip

  9.7 KB · Affichages: 19

Vote positif 0 Vote négatif

Z

zef

Guest

• 15 Octobre 2008

• #8

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.

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 15 Octobre 2008

• #9

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é

Code:

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.

 

Pièces jointes

• UserformCrééVBA.xls

  27 KB · Affichages: 43

Vote positif 0 Vote négatif

Z

zef

Guest

• 16 Octobre 2008

• #10

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.

 

Vote positif 0 Vote négatif