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

A voir également:

Nom ambigu détecté vba
Trouver un numéro de portable avec un nom ✓ - Forum Mobile
Nom de l'adresse - Forum Consommation & Internet
Usb non detecté - Guide
Que faut il écrire dans le champ obligatoire : Adresse (suite)*? ✓ - Forum Réseaux sociaux
Trouver une adresse avec un nom de famille gratuit ✓ - Forum Mobile

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38167 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 7 mai 2024 4 657
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 ?

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 ?

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
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

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

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

Livebox s'allume mais marque pas de réseau orange

Nom d’adresse

Trouver un nom avec une adresse

Discussions similaires

Newsletters