XL 2010 Non renvoie des valeurs d'une liste déroulante

[houkmellah]

Bonjour chers membres,

Afin de faciliter la saisie de données, j'ai crée un formulaire de saisie en VBA. Cependant deux listes à multicritères de ce dernier ne renvoient pas les valeurs sélectionnées vers le tableau concerné contrairement aux autres cases de saisie.

Voici le lien pour télécharger le fichier en question sur wetransfer, le formulaire s'affiche en cliquant sur le bouton "Nouveau Prospect" se situant dans la feuille "Base". Les deux listes sont " projets" et "Type de bien". lien :

Je vous remercie d'avance,
Taha.

 

[Compte Supprimé 979]

Bonjour,

Normal, avec ce code

  For Each ctrl In UserForm1.Controls
    Colonne = Val(ctrl.Tag)
    If Colonne > 0 Then Sheets("Base").Cells(derligne, Colonne) = ctrl
  Next

Ce sont des liste multicritères, donc pour renvoyer leur contenu, tu dois :
- faire une boucle sur toutes les valeurs qu'elles contiennent
- concaténer dans une variable, les valeurs des lignes sélectionnées
- inscrire alors le contenu de cette variable

A+