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

Résolu
Valbleau Messages postés 3 Statut Membre -  
Valbleau Messages postés 3 Statut Membre -
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 40050 Statut Modérateur 4 754
 
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 Statut Membre
 
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 8930 Statut Membre 1 780
 
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 Statut Membre
 
Et voilà problème résolu: j'ai mis les ComboxBox à la suite avant End Sub et ça fonctionne !
Merci à toi Jordan45
0