[wd2010][VBA] problème ComboBox vide
Résolu
bj51
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai créé un petit UserForm permettant à l'utilisateur d'entrer des informations pour le document en cours (c'est un modèle de rapport). L'une des information est le type d'étude concerné, qui se compose de deux lettres. J'ai donc créé une ComboBox sur le UserForm afin de permettre le choix du type d'étude. Problème : la ComboBox est vide et ne propose pas les choix énoncés. Le code présent dans l'Initialize du UserForm est le suivant :
J'ai vérifié que les noms étaient corrects (du UserForm, de la ComboBox) et je suis dans une impasse.
Cordialement,
J'ai créé un petit UserForm permettant à l'utilisateur d'entrer des informations pour le document en cours (c'est un modèle de rapport). L'une des information est le type d'étude concerné, qui se compose de deux lettres. J'ai donc créé une ComboBox sur le UserForm afin de permettre le choix du type d'étude. Problème : la ComboBox est vide et ne propose pas les choix énoncés. Le code présent dans l'Initialize du UserForm est le suivant :
Option Explicit
Private Sub doc_props_Initialize()
[...]
' Type d'étude
With Me.ComboBox_prefixe_n_etude
.Clear
.AddItem "BA"
.AddItem "VI"
.AddItem "EN"
.AddItem "LO"
.AddItem "EA"
.AddItem "AC"
End With
[...]
End Sub
J'ai vérifié que les noms étaient corrects (du UserForm, de la ComboBox) et je suis dans une impasse.
Cordialement,
A voir également:
- [wd2010][VBA] problème ComboBox vide
- Supprimer page word vide - Guide
- Caractere vide - Guide
- Coeur vide ✓ - Forum Réseaux sociaux
- Code pour écrire un coeur VIDE : alt+??? ✓ - Forum Mail
- Formate pour taxer client frigo vide ✓ - Forum Matériel & Système
6 réponses
J'ai trouvé une solution "bourrine" consistant à créer une Sub pour chaque ComboBox :
Si quelqu'un a une solution pour que ça fonctionne directement dans l'Initialize, je suis preneur.
Cordialement,
Private Sub ComboBox_prefixe_n_etude_Enter()
With ComboBox_prefixe_n_etude
.Clear
.AddItem "BA"
.AddItem "VI"
.AddItem "EN"
.AddItem "LO"
.AddItem "EA"
.AddItem "AC"
End With
End Sub
Si quelqu'un a une solution pour que ça fonctionne directement dans l'Initialize, je suis preneur.
Cordialement,
Bonsoir,
With Me.ComboBox_prefixe_n_etude
Puisque tu as l'air d'être dans une procédure extérieure le Me. me parait osé.
As-tu essayé en nommant le userform ?
eric
edit : après relecture tu es plutôt dans l'initialize mais teste quand même, ça ne mange pas de pain...
With Me.ComboBox_prefixe_n_etude
Puisque tu as l'air d'être dans une procédure extérieure le Me. me parait osé.
As-tu essayé en nommant le userform ?
eric
edit : après relecture tu es plutôt dans l'initialize mais teste quand même, ça ne mange pas de pain...
J'avais testé sans le Me., même résultat. Je reste sur ma solution qui fonctionne pour le moment, à défaut de mieux.
Cordialement,
Cordialement,
Bonsoir,
Je viens de tester et ton code initial marche bien.
Par contre j'ai remarqué que le Private Sub UserForm_Initialize() ne change pas de nom. Quelque soit le nom donné au userform, le sub reste toujours UserForm_Initialize()
Bizarre mais bon, faut admettre...
eric
Je viens de tester et ton code initial marche bien.
Par contre j'ai remarqué que le Private Sub UserForm_Initialize() ne change pas de nom. Quelque soit le nom donné au userform, le sub reste toujours UserForm_Initialize()
Bizarre mais bon, faut admettre...
eric
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
OK, j'ai testé avec UserForm_Initialize(), et maintenant j'ai une erreur d'exécution 5825 : L'objet a été supprimé.
Avant, le UserForm se lançait mais là plus rien. Mon code d'appel est :
ou bien, le même une fois le document ouvert :
Des idées ?
Cordialement,
Avant, le UserForm se lançait mais là plus rien. Mon code d'appel est :
Private Sub Document_New() ' Lancement automatique de la userform à chaque nouveau document. Load doc_props doc_props.Show End Sub
ou bien, le même une fois le document ouvert :
Public Sub doc_propsReload() Load doc_props doc_props.Show End Sub
Des idées ?
Cordialement,