mauvaise info textBOX

[herve62]

bonsoir
il me reste un Pb à régler !
Peut-on créer une ListBox auto , C.a.d. :
j'entre un nom dans une list ou combo
J'aimerai savoir s'il est possible (simplement) d'afficher une LISTE dans la "ListBox" ?? ou autre type de box
si un nom correspond à plusieurs Prenom ?
Dupond Marc > case prenom affiche Marc
Leblanc Jules
Leblanc eric > Là dans la case "prenom" j'ai le choix entre Jules ou Eric pour valider
merci bien

 

[herve62]

Re : créer listbox auto

Yups !! on s'est croisé
Le tien fonctionne bien faut que je compare dans mon Appli
merci

 

[Papou-net]

Re : créer listbox auto

Voici une version commentée et améliorée.

La hauteur des ComboBox s'adapte automatiquement au nombre de lignes qu'elles contiennent.

A +

Cordialement.

 

[Papou-net]

Re : créer listbox auto

RE:

J'ai oublié de te préciser qu'il faut mieux intégrer le code dans l'événement Change plutôt que dans AfterUpdate.

Cordialement.

 

[herve62]

Re : créer listbox auto

Bonsoir
Apparemment j'ai pu adapter sauf que :
Il faudrait que SI multiple prénoms la box n'affiche RIEN temps que le Prénom n'est pas selectionné
car avec Change ma routine se poursuit et remplit plein d'autres box qui vont me donner la fiche et enregistrer dans une feuille
Donc si je change le Prenom ça change pas les autres .... modif ?? : ca va me compliquer à tout changer
Comme ça je fais juste le reste avec : IF Nom ET Prenom = ... ; avant d'afficher les infos dans les box
Merci

 

[Papou-net]

Re : créer listbox auto

RE:

Normalement, on ne devrait pas être loin d'en finir (enfin).

L'expérience n'en sera que plus grande!

Cordialement.

 

[herve62]

Re : créer listbox auto

Bonjour
Bin voilà !! impec
dommage que l'on peut pas mettre de couleurs en VBE pour voir ou sont les modif car j'ai déjà tout adapté dans l'appli
donc je vais pas refaire un copier/coller de ton nouveau code , mais je m'en sortirai
Encore Merci l'ancien !!

 

[herve62]

Re : créer listbox auto

Bonsoir
Sorry PAPOU , mais obligé de revenir !
Ca marche sans erreur dans mon appli , mais pas comme il faut
en effet j'ai encore une dizaine de box que j'alimente directe selon nom et prénom ( j'ai remis les 2 en CHANGE)
Le soucis c'est que DèS QUE BOX1 a une valeur .... TOUT s'affiche et donc si il y a un Prenom à choisir c'est Déjà les infos du 1er qui s'affichent !!

un extrait :

'nom_P = Box1.Value
'============
' Nouvelle METHODE ICI
'==================
Set nom_P = Feuil10.Columns(1).Find(Box1.Value)
  With Box2
  .Clear ' Efface Box2
  .AddItem nom_P.Offset(0, 1).Value ' Ajoute le prénom à Box2, situé en colonne B
  ' Vérifie si la cellule de la ligne inférieure contient le même nom
  While nom_P = nom_P.Offset(1, 0)
    ' Si oui, descend d'une ligne et ajoute le prénom
    Set nom_P = nom_P.Offset(1, 0)
    .AddItem nom_P.Offset(0, 1).Value
  Wend
  .ListRows = Box2.ListCount ' Ajuste la taille de Box2 au nombre de lignes
  If Box2.ListCount = 1 Then
    .ShowDropButtonWhen = 0
    .ListIndex = 0
    Else
    .ShowDropButtonWhen = 2
    .ListIndex = -1
  End If
End With
 '======================
  With Worksheets("SIGNALETIQUE")
ligF = .Range("A500").End(xlUp).Row
For lig_HE = 2 To ligF
 If nom_P = .Cells(lig_HE, 1).Value Then
 Box2.Value = .Cells(lig_HE, 2).Value
 Box3.Value = .Cells(lig_HE, 3).Value
 Box4.Value = .Cells(lig_HE, 4).Value
 Box5.Value = .Cells(lig_HE, 5).Value
 Box6.Value = .Cells(lig_HE, 6).Value
 box7.Value = .Cells(lig_HE, 7).Value ' ERREUR c'était une LABEL BOX avant ??

Donc il faudrait Que le reste ne se remplisse QUE lorsque BOX1 ET 2 soient correctement complétées ?
parce que j'ajoute aussi une image ....
Merci ; Bonne soirée

 

[herve62]

Re : créer listbox auto

J'ajoute le squelette de la suite de ton fichier : supposons que l'on doive afficher le Service & Mat . dans les 2 box

 

[Papou-net]

Re : créer listbox auto

RE:

Vois si ça te convient.

Cordialement.

 

[herve62]

Re : créer listbox auto

J'ai regardé vite fait : ça fonctionne
Mais fatigué , j'analyse tout ça demain ... à tête reposée
Merci bien de ton suivi .... et bonne nuit

 

[herve62]

Re : créer listbox auto

Juste pour savoir demain :
Apparemment tout mon code (BOX1) au niveau du remplissage des autres Box doit être transféré dans BOX2 ?
selon ce que j'ai aperçu vite fait (serv et mat > dans box2)

 

[Papou-net]

Re : créer listbox auto

Juste pour savoir demain :
Apparemment tout mon code (BOX1) au niveau du remplissage des autres Box doit être transféré dans BOX2 ?
selon ce que j'ai aperçu vite fait (serv et mat > dans box2)

RE:

Effectivement, puisque les autres box ne doivent être renseignées que si nom et prénom sont indiqués. La box 2 ne se remplit automatiquement que si box 1 contient un nom unique. Dans le cas contraire, c'est à l'opérateur d'indiquer le prénom. Une fois box 2 renseigné, les deux dernières suivent en cascade. C'est bien ce que j'ai compris que tu voulais, non?

Bonne nuit et bon repos.

A +

Cordialement.

 

[herve62]

Re : créer listbox auto

Bonjour
Voilà je m'en suis sorti sans trop de mal , tout mixé avec le reste de mon code
Donc étant aussi pédagogue , je dis : "quand tu as été aidé et que tu as réussi c'est que le Prof était bon ...!!"
Encore merci et Bonne journée

 

[Si...]

Re : créer listbox auto

salut

j'avais commencé à préparer une réponse qui m'a servi à traiter une demande similaire - tout comme Papou-net 😉.
Je l'ai complétée (ici le choix du nom sans doublon ne dépend pas du tri et la suite dépend de l'unicité du nom...).
J'ai choisi une suite plausible mais il ne sera pas difficle d'y intégrer la recherche des images voulues comme le code donné le laisse prévoir.

 

[herve62]

Re : créer listbox auto

MerSi au Si .. SI
d'avoir étudié mon Pb , ton code me parait simple !! mais fonctionne
je l'empile dans mon grenier . car je poursuis l'appli