Microsoft 365 Report de données dans Combobox list

Kael_88 · 1 Août 2021

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

job75 · 2 Août 2021

Kael_88 à dit:
si ce n'est pas abusé, pourrais tu essayer de résoudre la question 3, merci d'avance.

Le fichier est déjà bien compliqué, ça suffit comme ça.

Kael_88 · 2 Août 2021

Bonjour le forum, @job75,

Merci de l'avoir vu, aurais tu une solution moins compliqué à proposer par hasard ?

Cordialement

job75 · 3 Août 2021

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+

Kael_88 · 3 Août 2021

Bonjour le forum, @job75,

merci de t'être repenché sur cette séquence et tu as bien fais, ta proposition fait exactement ce à quoi je pensais.
Me reste plus qu'a l'adapter à mon programme.

Merci encore

Cordialement

Microsoft 365 Report de données dans Combobox list

Kael_88

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Kael_88

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

Kael_88

XLDnaute Occasionnel

Discussions similaires