Microsoft 365 Report de données dans Combobox list

Kael_88

XLDnaute Occasionnel
Bonjour le forum,

Je voudrai mettre dans le fichier "Mag", dans un combobox list "Prénom" les valeurs d'un autre fichier "Classe" par rapport à une donnée "Nom",
j'y suis arrivé, mais il ne m'affiche que la première valeur qu'il rencontre et pas les autres.

exemple : Nom "LACROIX" dans Prénom il me met juste "Edite" et ne met pas "Manon" afin que je puisse choisir.

Question 1 : comment mettre toutes les valeurs sans doublons dans ma combobox list "prénom"
Question 2 : Comment mettre un message " Pas de concordance " s'il ne trouve pas de "Nom" ou de "Prénom" dans le second fichier "Classe"
Question pour les pros : lorsque je remplis dans Nom les 4 dernières lettres des noms, je voudrais qu'il fasse la recherche comme si le mot était complet
exemple : Nom "RTIN" qu'il fasse la recherche comme si c'etait "MARTIN"

Cordialement
 

Pièces jointes

  • Classe.xlsx
    11.6 KB · Affichages: 18
  • Mag.xls
    742.5 KB · Affichages: 14

job75

XLDnaute Barbatruc
Bonjour Kael_88, le forum,

Votre projet est ce qu'il est, je ne vais pas tout refaire.

Pour faire une recherche intuitive sur le nom j'ai remplacé la TextBox par une ComboBox.

Voyez le fichier joint et sa macro :
VB:
Private Sub CBX_Nom_Change()
    Dim liste As String
   
    With CBX_Nom
        liste = RechercheNom(.Text).Nom1
        If liste = "" Then
            .Clear
            CBX_Prénom.SetFocus 'pour fermer la liste
            .SetFocus
        Else
            .List = Split(liste, Chr(1)) 'déconcatène les noms
            .DropDown 'déroule la liste
        End If
    End With

End Sub
Notez que la liste obtenue est sans doublon.

A+
 

Pièces jointes

  • Mag (1).xls
    770.5 KB · Affichages: 9
  • Classe.xlsx
    11.6 KB · Affichages: 6

Discussions similaires

Haut Bas