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

 

[dev_co]

Re : créer listbox auto > AJOUT nouveau

Bonjour
Pour parfaire , il faudrait pouvoir AJOUTER un nom , donc
BOX1 : vide et si l'on commence à remplir que la BOX2 ne cherche RIEN temps qu'elle ne soit pas sélectionnée ? en fait elle reste vide et on entre le Prénom
donc Ajout d'un bouton "nouveau" : et le code que je cherche ....??
ensuite mettre les infos dans la feuille , ça je saurai faire facile !!
Là le PB c'est que dès que l'on se met en BOX1 la liste des existants s'affichent
Merci

 

[herve62]

Re : créer listbox auto

Bonjour
Je viens de m'apercevoir d'un Bug !
En effet lorsque l'on selectionne un nom qui est unique mais dont le prénom se retrouve à un autre nom on a pas les bonnes infos qui s'affichent ( service , mat.)
je remets le fichier

 

[herve62]

Re : mauvaise info textBOX

Bonjour
j'ai mis à jour
donc on voit bien que pour les 2 THOMAS , le 1er affiche le service et matricule du 2eme
Alors que si on selectionne le 2eme de suite (Bermandel) on a bien les bonnes infos
Merci

 

[Papou-net]

Re : mauvaise info textBOX

Bonjour à tous,

Effectivement, cela vient de la recherche du prénom à partir de la ligne du nom.

Voilà qui devrait corriger le problème, sous réserves d'essai plus poussés:

Private Sub Box2_Change()
If Box2.ListIndex > -1 Then
  LgN = Lg
  Set Prenom = Feuil1.Range("B" & LgN - 1 & ":B" & Rows.Count).SpecialCells(xlCellTypeConstants).Find(Box2.Value)
  LgN = Prenom.Row
  Serv = Feuil1.Cells(LgN, 3)
  Mat = Feuil1.Cells(LgN, 4)
End If
End Sub

Cordialement.

 

[herve62]

Re : mauvaise info textBOX

Bonjour
Salut Papou ! merci
Je dois partir , j'essairai ce soir
J'ai trouvé un truc qui fonctionne en cherchant avec des points d'arrêt , ajout variable etc .... pour voir ou ça péchait !!
J'ai juste mis : IF .... ListIndex >0 (au lieu de -1)
et ajouté un Else
Est ce fiable ?

 

[Papou-net]

Re : mauvaise info textBOX

RE:

Effectivement, ta solution semble fonctionner également. Est-ce plus fiable, ça je ne saurais le dire à brûle-pourpoint. Toutefois, j'ai un doute car l'index 0 représente la première ligne de la liste alors que l'index -1 signifie que la valeur cherchée n'est pas dans la liste. De plus, ton code s'en trouve un peu plus "touffu".

Mais comme je le disais précédemment, tout ceci sous réserve de vérifications plus poussées.

Cordialement.

 

[herve62]

Re : mauvaise info textBOX

Bon là avec la liste aussi assez courte dans mon appli cela va bien aussi en mettant : Lng -1
Moi ce que j'avais remarqué en affichant une variable pour ListIndex était que c'était 0 ( pour 1 seul) et 1 pour plusieurs prénoms donc voilà ; Mon "Lng" passait de 6 à 9 , ou 5 à 7 ?? et je me suis dit qu'il n'y avait pas de relation
mais vrai : j'ai supprimé le else, mais cela n'enlève pas le reste du "touffu" car je dois encore tondre le code !!
Encore merci à toi ( car pas d'autre réponse)
Juste un dernier truc : je peux faire "Nouveau" ( bouton) et alors il ne faut plus de liste en box1 ni effet en box2
cela fonctionne à 90% car
-à la 1ere frappe ( 1ere lettre)> rien ; si on fait pas attention on a OTO au lieu de TOTO
-Si un nom commence par un déjà connu Box2 affiche le prénom ensuite c'est bon ( vide) on peut mettre le prénom qu'on veut
Si tu as une idée de la modif ??