Userform ne s'initialise pas

Importation3 est bien le nom de mon Userfrom et non pas le libellé. Pourtant quand l'userform s'affiche il ne s’initialise pas et j'arrive pas à trouvé pourquoi.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Importation3_Initialize()   If Importation3.Caption = "Sélectionner le Lot à Importer" Then For i = 2 To 16 ComboBox1.AddItem Sheets(29).Cells(i, 14) 'Ajoute les valeurs des cellules A1 à A4 avec la boucle Next   ElseIf Importation3.Caption = "Sélectionner la vétusté à Importer" Then   ElseIf Importation3.Caption = "Sélectionner l'OBS à Importer" Then   End If

---

Je pense que ca fonctionnera mieux en utilisant la propriété value.
Fait une conversion en chaine si necessaire.

Bonjour,
Quel que soit le nom de ton formulaire (UserForm) la procédure événementielle doit dans être Private Sub UserForm_Initialize()

Merci mais comment je précise quel userform je veux initialiser?

bonjour,
tu ne le précise pas Private Sub UserForm_Initialize() est une méthode du Userform tu la décrits dans le code du formulaire en l'occurrence Importation3!

dans ton code tu appels le formulaire et celui-ci exécutera la méthode UserForm_Initialize

Code:

---

Importation3.show

---

Bonjour,

Citation:

---

Merci mais comment je précise quel userform je veux initialiser?

---

De même que pour les feuilles, les procédures événementielles d'un UserForm font partie intégrante de celui-ci. Tu peux d'ailleurs utiliser le mot clé ME qui est le UserForm lui même.
As-tu au moins essayé de modifier le code ?
A lire Utiliser les UserForm en VBA Excel et tout particulièrement le chapitre IV. Les évènements dans un UserForm

Ok merci beaucoup