Erreur de compilation - nom ambigu détecté: Userform_Initialize

Résolu/Fermé
Valbleau Messages postés 3 Date d'inscription samedi 16 mars 2019 Statut Membre Dernière intervention 16 mars 2019 - 16 mars 2019 à 18:28
Valbleau Messages postés 3 Date d'inscription samedi 16 mars 2019 Statut Membre 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

1 réponse

jordane45 Messages postés 38472 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 5 mai 2025 4 744
16 mars 2019 à 18:29
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 ?


0
Valbleau Messages postés 3 Date d'inscription samedi 16 mars 2019 Statut Membre Dernière intervention 16 mars 2019
16 mars 2019 à 19:25
Alors comment dois-je procéder ? Mon formulaire contient plusieurs comboBox à menu déroulant.
Dois-je mettre toutes les combobox à la file ? Autre ?
0
Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
16 mars 2019 à 19:30
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 
0
Valbleau Messages postés 3 Date d'inscription samedi 16 mars 2019 Statut Membre Dernière intervention 16 mars 2019
16 mars 2019 à 19:47
Et voilà problème résolu: j'ai mis les ComboxBox à la suite avant End Sub et ça fonctionne !
Merci à toi Jordan45
0