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

Signaler
Messages postés
3
Date d'inscription
samedi 16 mars 2019
Statut
Membre
Dernière intervention
16 mars 2019
-
Messages postés
3
Date d'inscription
samedi 16 mars 2019
Statut
Membre
Dernière intervention
16 mars 2019
-
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

1 réponse

Messages postés
28894
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
6 juillet 2020
2 598
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 ?


Messages postés
3
Date d'inscription
samedi 16 mars 2019
Statut
Membre
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 ?
Messages postés
8128
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
24 juin 2020
1 431
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 
Messages postés
3
Date d'inscription
samedi 16 mars 2019
Statut
Membre
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