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

Résolu
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

  1. Modérateur
    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 ?

    1. Alors comment dois-je procéder ? Mon formulaire contient plusieurs comboBox à menu déroulant.
      Dois-je mettre toutes les combobox à la file ? Autre ?
    2. 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 
    3. Et voilà problème résolu: j'ai mis les ComboxBox à la suite avant End Sub et ça fonctionne !
      Merci à toi Jordan45