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 -
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
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
-
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 ?
-
-
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 -
-