Combobox: Problème de chargement

LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention   -  
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un combobox qui contient une liste des clients ( affichés par Nom + prénom). Le probleme se pose Lorsque je veux chercher par prenom ( deuxieme chaine de caractere). Ya til un moyen par lequel ma combo affiche Nom+prenom en tapant la premiere lettre du prenom et me donne les propositions possibles.

Merci pour votre reponse.

6 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Si les noms sont dans une colonne et les prenoms dans une autre colonne et le classement a-z sur les prenoms, chargez la combobox avec prenom + nom. Par defaut les comboboxs ont la propriete MachtEntry a
fmMatchEntryComplete, vous aurez le premier prenom qui commence par la ou les lettres saisies
0
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

les noms+prénoms sont enregistrés dans la même case. ya t-il un moyen d'ajouter un signe au début du combo (%) lorsque je veux qu'il capte la deuxième chaine de caractère (Prénom) ?

Merci.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

un signe au début du combo (%) Vous voulez avoir deux modes de fonctionnement un pour nom et un pour prenom ?????
0
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
oui , lorsque je veux chercher par nom y'a pas de problème mais lorsque je veux chercher des prénoms j'ajoute le % au début de ma recherche dans le combo.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

separateur espace entre nom et prenom.
test en majuscule pour recherche.

adaptez nom de feuille et plage nommee.

Private Sub ComboBox1_Change()
    Dim TNP, TN_P
    
    If Left(ComboBox1, 1) = "%" And Len(ComboBox1 > 1) Then
        TNP = Worksheets("feuil1").Range("liste").Value
        ComboBox1.Clear
        For x = 1 To UBound(TNP)
            TN_P = Split(TNP(x, 1), " ")
            If UCase(Left(TN_P(1), Len(ComboBox1) - 1)) = UCase(Right(ComboBox1, Len(ComboBox1) - 1)) Then
                ComboBox1.AddItem TNP(x, 1)
            End If
        Next x
    End If
End Sub
0
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

ca déboge ! je suis débutant en VBA, et je sais pas comment la faire fonctionner :/

Private Sub ComboBox1_Change()

Dim TNP, TN_P As Variant

If Left(ComboBox1, 1) = "%" And Len(ComboBox1 > 1) Then
TNP = Worksheets("CD").Range("B3:B100").Value
ComboBox1.Clear
For X = 1 To UBound(TNP)
TN_P = Split(TNP(X, 1), "")
If UCase(Left(TN_P(1), Len(ComboBox1) - 1)) = UCase(Right(ComboBox1, Len(ComboBox1) - 1)) Then
ComboBox1.AddItem TNP(X, 1)
End If
Next X
End If
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

manque un espace entre les "":

TN_P = Split(TNP(X, 1), "")

TN_P = Split(TNP(X, 1), " ")
0
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
toujours le meme problème. ca déboge à ce niveau
:
If UCase(Left(TN_P(1), Len(ComboBox1) - 1)) = UCase(Right(ComboBox1, Len(ComboBox1) - 1)) Then
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

un espace entre nom et prenom

quand vous avez l'erreur, clic sur debugage et passez le cursseur souris sur les variables de cette ligne pour voir leur contenu
0
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
il m'indique que TN_P(1) n'appartient pas à la selection !
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Cross posting sauvage !

Dans combien de forums cette question a été posée ??


0
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
y'a t'il un problème de poster des questions sur plusieurs forums ?
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Langazou,

Des questions différentes non, aucun.
Par contre, lorsque tu poses la même questions sur plusieurs forums, tu fais travailler plusieurs "équipes" de bénévoles sur le même sujet. C'est, en quelques sortes, un manque de respect pour ceux qui t'aident bénévolement (je le rappelle).

Cordialement,
Franck
0
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Pikaju,
oui tu as complètement raison mais le problème c'est que j'ai pas eu de réponse vu l'urgence de mon problème.
Merci pour votre compréhension.
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
1- le problème c'est que j'ai pas eu de réponse
Ici, tu poses ta question le 10/02, première réponse le 11/02 et problème résolu le 12/02.
Pour faire plus rapide, il faut se payer un informaticien...
2- vu l'urgence de mon problème
Urgence toute relative.
Il faut savoir que sur les forums, rien n'est considéré comme "urgent". Tu viens y poser une question, la réponse viendra (ou pas) en fonction (entres autres) de la disponibilité des "helpers" bénévoles.
Si c'est réellement urgent, il convient de faire appel à un/des professionnel(s) (cf 1-).

Tout ceci est inscrit dans la charte du forum, charte que, normalement, tu aurais du consulter avant de poser ta première question.

A lire donc :
- Notre charte,
- respect d'autrui,
- Conseils de rédaction.
0
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
Ok c'est noté.
Merci.
0