Resultat d’information sur un userform
Bonjour le forum,
Toujours à la quête de progression
Je m’attaque cette fois-ci à un userform.
Je c’est bien que ce n’est pas les exemples qu’il manque sur le forum
Mais même en modifiant cet exemple je n’y arrive pas.
Avec cet exemple, récupéré (sujet de etoile aidé par Banzail 64)
J’ai voulu ajouter une fonction recherche.
Cette fonction devrait afficher les informations dans la partie infos générale. Lorsqu’un nom est sélectionné dans recherche, mais cela ne fonctionne pas.
En bref faire la même chose que la partie liste des licenciés, mais permet-en de faire une recherche surtout si la liste est longue.
Il y a-t-il une personne pour m’éclairer ?
arf, je cherche, mais toujours rien
Quelqu’un peut-il m’expliquer
Comment faire apparaitre les informations de la liste de recherche sur la partie infos générales ?
Voilà j’ai trouvé comment afficher les informations
Par contre j’ai dû créer un bug
Lorsque je recherche un nom et que je le sélectionne
Celui-ci ne correspond pas toujours à ce qui s’affiche dans info générale
S’il y a quelqu’un qui sait pourquoi qu’il n'hésite pas à se manifester.
Voilà j'ai trouvé le bug qui n'en était pas un puisqu'il fonctionne sans la partie recherche
Par contre du coup là je ne sais pas quoi faire
J’ai vraiment besoin d'aide, car lorsque je change
Ligne = Me.lst_Licencies.ListIndex + 4
a +19 ça fonctionne, mais uniquement pour le premier mot
Ce qui s’explique puisqu’il n’affiche que les noms qui correspondent à la recherche.
Du coup je ne vois pas comment je pourrais.
please can you help me ?
Private Sub lst_Licencies_Click()
Dim Ligne As Long
' Affichage du licencie sélectionné dans les cases txtbox
Ligne = Me.lst_Licencies.ListIndex + 4 'partie a modifier
'Selectionner la feuille Licenciés
Set WlBase = Sheets("Licencies")
'Récupérer les infos suivantes
With WlBase
Me.Txt_AthNumEnr = .Range("A" & Ligne) 'N° d'enregistrement du Licencié
Me.Txt_AthNom = .Range("B" & Ligne) 'Nom du Licencié
Me.Txt_AthPrenom = .Range("C" & Ligne) 'Prénom du Licencié
Me.Txt_AthDatenaiss = .Range("D" & Ligne) 'Date de naissance du Licencié
'Me.Txt_AthAnneenaiss = .Range("E" & Ligne) 'Annee de naissance du Licencié
Me.Txt_AthNumLicence = .Range("F" & Ligne) 'Numero licence du Licencié
Select Case .Range("G" & Ligne)
Case "M": Me.Opt_M = True
Case "F": Me.Opt_F = True
End Select
Me.CheckBox_Athlete = .Range("H" & Ligne) 'est il athlete du Licencié
Me.CheckBox_Coach = .Range("I" & Ligne) 'est il coach du Licencié
Me.Checkbox_Dirigeant = .Range("J" & Ligne) 'est il dirigeant du Licencié
Me.CheckBox_Officiel = .Range("K" & Ligne) 'est il officiel du Licencié
Me.Txt_AthCode = .Range("L" & Ligne) 'Code du Licencié
Me.Txt_AthNomClub = .Range("M" & Ligne) 'Nom du Club du licencié
Me.Txt_AthClubDep = .Range("N" & Ligne) 'Département du Club du licencié
Me.Txt_AthClubLigue = .Range("O" & Ligne) 'Ligue du club du licencié
Me.Txt_AthRemarques = .Range("P" & Ligne)
Me.Txt_AthDiplEnt = .Range("Q" & Ligne)
Me.Txt_AthDiplOff = .Range("R" & Ligne)
Me.Txt_AthSel = .Range("S" & Ligne)
End With
''recherche
If lst_Licencies.ListIndex > -1 Then 'partie a modifier
tbRechercher.Text = lst_Licencies.Value
Dim c As Range
With Sheets("Licencies")
With .Range("B4:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
Set c = .Find(what:=lst_Licencies.Value, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows)
End With
If Not c Is Nothing Then Application.Goto .Cells(c.Row, 1)
End With
End If
End Sub
Merci banzail64
J’ai testé est j’ai vu certain changement que tu as fait.
Effectivement il y a pas mal de code qui ne sert à rien.
Il ne me reste plus qu’à voir et à comprendre les autres changements que tu as faits vraiment merci.
Je vais mettre de l’ordre dans le code. Tu es trop fort
Merci !!!
As oui ça fonctionne de dingue !!!