trouver une ligne # de l'élément sélectionné dans la listbox vba

Comment puis-je trouver la ligne # de l'élément sélectionné dans la listbox?

droit maintenant, j'ai un sub que toutes les entrées de l'élément trouvé dans la zone de liste, voir ci-dessous

Sub findnext()
Dim Name As String
Dim f As Range
Dim ws As Worksheet
Dim s As Integer
Dim findnext As Range
Set ws = ThisWorkbook.Worksheets("Master")
Name = surname.Value
ListBox1.Clear
Set f = Range("A:A").Find(what:=Name, LookIn:=xlValues)
Set findnext = f
Do
Debug.Print findnext.Address
Set findnext = Range("A:A").findnext(findnext)
ListBox1.AddItem findnext.Value
ListBox1.List(ListBox1.ListCount - 1, 1) = ws.Cells(findnext.Row, xFirstName).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = ws.Cells(findnext.Row, xTitle).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = ws.Cells(findnext.Row, xProgramAreas).Value
ListBox1.List(ListBox1.ListCount - 1, 4) = ws.Cells(findnext.Row, xEmail).Value
ListBox1.List(ListBox1.ListCount - 1, 5) = ws.Cells(findnext.Row, xStakeholder).Value
ListBox1.List(ListBox1.ListCount - 1, 6) = ws.Cells(findnext.Row, xofficephone).Value
ListBox1.List(ListBox1.ListCount - 1, 7) = ws.Cells(findnext.Row, xcellphone).Value
'ListBox1.List(ListBox1.ListCount - 1, 8) = ws.Cells(findnext.Row, xFirstName).Value
Loop While findnext.Address <> f.Address
End Sub

et si l'utilisateur sélectionne l'élément dans la zone de liste, puis il va remplir les informations dans la zone de texte de l'objet userform

Sub ListBox1_Click()
surname.Value = ListBox1.List(ListBox1.ListIndex, 0)
firstname.Value = ListBox1.List(ListBox1.ListIndex, 1)
tod.Value = ListBox1.List(ListBox1.ListIndex, 2)
program.Value = ListBox1.List(ListBox1.ListIndex, 3)
email.Value = ListBox1.List(ListBox1.ListIndex, 4)
SetCheckBoxes ListBox1.List(ListBox1.ListIndex, 5)        '<<<< added
officenumber.Value = ListBox1.List(ListBox1.ListIndex, 6)
cellnumber.Value = ListBox1.List(ListBox1.ListIndex, 7)     
End Sub

je veux figure de ListBox1_click() comment je peux déterminer la ligne # de l'élément sélectionné dans la listbox. une fois que j'ai cela, je code un update sub où il va retrouver la ligne # de l'élément sélectionné et je vais re-saisir les informations dans les zones de texte et mettre à jour les informations de la ligne.

j'ai pensé à stocker une ligne # caché dans un feuille de calcul lorsque je ne find.. mais je ne sais pas comment relier la ligne # de la found avec ce qui a été sélectionné dans la listbox

j'espère...ce qui a du sens, si ce n'est s'il vous plaît laissez-moi savoir!

InformationsquelleAutor Doolie1106 | 2014-04-14
  1. 2

    J'ai trouvé un moyen de contourner cet - j'ai fait un extra listcolumn pour stocker les row# de la found lorsque l'élément a été fouillé. puis j'ai fait une autre zone de texte à l'intérieur de l'objet userform qui serait entrée de la ligne#:

    par conséquent, dans le findnext() sous j'ai ajouté la ligne suivante storerownumber = findnext.row et ajouter une autre ligne pour la listbox. `listbox1.liste(listbox1.listcount-1,8) = storerownumber

    et à l'intérieur de la listbox1_click() sous j'ai ajouté la ligne suivante: rownumber.value = listbox1.list(listbox1.listindex,8)

    et faites une nouvelle sub update_click() et ajouté les lignes suivantes:

    Dim r As Long
Dim update As Range
Dim ws As Worksheet
Set ws = Worksheets("Master")
rownumber.Value = ListBox1.List(ListBox1.ListIndex, 8)
r = rownumber
ws.Cells(r, xLastName).Value = surname.Value
ws.Cells(r, xFirstName).Value = firstname.Value
ws.Cells(r, xTitle).Value = tod.Value
ws.Cells(r, xProgramAreas).Value = program.Value
ws.Cells(r, xEmail).Value = email.Value
ws.Cells(r, xStakeholder).Value = GetCheckBoxes
ws.Cells(r, xofficephone).Value = officenumber.Value
ws.Cells(r, xcellphone).Value = cellnumber.Value
end sub

    et il fonctionne très bien!

    InformationsquelleAutor Doolie1106
  2. 1

    Autant que je sache, vous devez effectuer une boucle sur toutes les lignes de ListBox comme vous pouvez avoir la Multi-sélection.

    For r = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(r) Then
Debug.Print "You selected row #" & r + 1
End If
Next
    • j'ai donc utilisé le code suivant que vous avez fournies, sauf qu'au lieu d'utiliser debug.print j'ai écrit ce qui suit: worksheets("hs").cells(1,1) = r et il m'a donné une valeur de 1 dans hs. hs est le caché de la feuille où je veux stocker la ligne# de l'élément sélectionné. le problème, c'est de me donner la ligne# à partir de la zone de liste, pas une ligne# constaté à partir de (à partir de la feuille de calcul excel). eg., si j'ai une entrée nommée apple et je fais un search et je trouve que apple, c'saisie de toutes les informations au sujet de pomme dans listbox. ma question est comment puis-je trouver la ligne# de apple où il a été sélectionné à partir de listbox? est-ce que les sens...?
    • J'ai pensé que vous avez demandé "comment je peux déterminer la ligne # de l'élément sélectionné dans la listbox"? Êtes-vous en essayant de sauver/trouver les cellules de feuille de calcul qui est contenue dans la zone de liste lorsque vous cliquez sur eux?
    • Ya, je suis en train de trouver la ligne# de l'objet dans la feuille de calcul une fois que je clique dessus de la zone de liste. la zone de liste est renseignée après find fonction, donc je veux trouver la ligne# de la found article une fois qu'il a été cliqué dans la zone de liste
    • Je vous propose de modifier votre trouver de la fonction et de mettre quelque chose comme WorksheetName!A1 dans la dernière colonne de la zone de liste (pas nécessaire pour l'utilisateur), puis en cliquant, activer la Feuille de calcul et sélectionnez la Gamme.
    InformationsquelleAutor PatricK