Menu

Erreur de compilation - nom ambigu détecté: Userform_Initialize [Résolu]

Messages postés
3
Date d'inscription
samedi 16 mars 2019
Dernière intervention
16 mars 2019
- - Dernière réponse : Valbleau
Messages postés
3
Date d'inscription
samedi 16 mars 2019
Dernière intervention
16 mars 2019
- 16 mars 2019 à 19:47
Bonjour Je suis novice, j'ai créé un formulaire avec plusieurs listes déroulantes (comme montré ci-dessous) et quand je veux visualiser mon formulaire, j'ai le message "ERREUR DE COMPILATION - NOM AMBIGU DETECTE : Userform_Initialize"
Comment puis-je résoudre ce problème ? Merci par avance de votre aide

Option Explicit 'Activation de la déclaration explicite des variables
Dim Ws As Worksheet 'Variable pour un Objet Worksheet en PUBLIC pour tous les Controls de cet UserForm

Private Sub Userform_Initialize()
ComboBox21.ColumnCount = 1
ComboBox21.List() = Array("Homme", "Femme", "Ado", "Enfant")
End Sub

Private Sub Userform_Initialize()
ComboBox10.ColumnCount = 1
ComboBox10.List() = Array("Fixe", "Bureau", "Domicile", "Conjoint")
End Sub

Private Sub Userform_Initialize()
ComboBox20.ColumnCount = 1
ComboBox20.List() = Array("Sophro", "Hypnose", "Psy", "Coaching")
End Sub
Afficher la suite 

Votre réponse

1 réponse

Messages postés
25020
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
22 mars 2019
1904
0
Merci
Bonjour,

Tu ne peux pas avoir plusieurs fois la même fonction / sub dans ton programme ....
Sinon.. comment sait-il lequel il doit lancer quand tu y fais appel ?


Valbleau
Messages postés
3
Date d'inscription
samedi 16 mars 2019
Dernière intervention
16 mars 2019
-
Alors comment dois-je procéder ? Mon formulaire contient plusieurs comboBox à menu déroulant.
Dois-je mettre toutes les combobox à la file ? Autre ?
Patrice33740
Messages postés
7680
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
21 mars 2019
1667 -
Oui :
Private Sub Userform_Initialize()
  ComboBox21.ColumnCount = 1
  ComboBox21.List() = Array("Homme", "Femme", "Ado", "Enfant")
  ComboBox10.ColumnCount = 1
  ComboBox10.List() = Array("Fixe", "Bureau", "Domicile", "Conjoint")
  ComboBox20.ColumnCount = 1
  ComboBox20.List() = Array("Sophro", "Hypnose", "Psy", "Coaching")
End Sub 
Valbleau
Messages postés
3
Date d'inscription
samedi 16 mars 2019
Dernière intervention
16 mars 2019
-
Et voilà problème résolu: j'ai mis les ComboxBox à la suite avant End Sub et ça fonctionne !
Merci à toi Jordan45
Commenter la réponse de jordane45