Alimenter ma listview avec find et findnext

Question

Https://www.excel-pratique.com/~files/doc2/BmXxglogiciel_caprin.zip Voilà mon problème: je cherche à alimenter ma listview dans le userform "saisie de pesée" avec tous les animaux de ma base de données dont la colonne sexe renvoie "M"(pour essayer la procédure je commence avec l'option mâle pour pas trop m'embrouiller, je l'étendrai aux autres controles aprés avoir compris). Pour l'instant j'arrive à l'alimenter avec une seule valeur, les autres n'apparaissent pas un peu comme la fonction rechercheV d'excel en fait! je ne sais pas si c'est ma fonction cherchersexe qui est défaillante ou la procédure chercher_click!! si quelqu'un pouvait m'aider! svp ma tête chauffe extrêmement......

galopin01 · Answer

C'est un peu les deux : Tu envoies juste une fois la recherche en interrogeant la fonction et la fonction tourne en boucle jusqu'au dernier de la liste : donc elle ne te renvoie que le dernier de la liste. Je peiux me tromper mais à mon avis tu ne peux pas gérer la boucle dans la fonction. Personnellement, je virerais la fonction et je gèrerais toute la recherche dans la Sub. Je tacherai d'y réfléchir cet a.m. A+...

galopin01 · Answer

Bah... Je n'est pas eu besoin d'une grosse sieste pour trouver la soluce :

Effectivement YFO supprimer la Function et tu remplaces la Sub comme suit :

Private Sub Chercher_Click()
Dim Trouvemale As Range, ligne%, PlageCible As Range, adresse$, c, SexReq$
With Me.ListView1
  ligne = 1
  Set PlageCible = ThisWorkbook.Sheets(NumCheptel.Value).Range("C:C")
  SexReq = "M"
  Set Trouvemale = PlageCible.Find(SexReq, LookIn:=xlValues, lookat:=xlWhole)
  adresse = Trouvemale.Address
    Do
      .ListItems.Add , , Trouvemale.Offset(, -2)
      .ListItems(ligne).ListSubItems.Add 1, , Trouvemale.Offset(, -1)
      .ListItems(ligne).ListSubItems.Add 2, , Trouvemale
      .ListItems(ligne).ListSubItems.Add 3, , Trouvemale.Offset(, 1)

      ligne = ligne + 1
      Set Trouvemale = PlageCible.FindNext(Trouvemale)
    Loop While Trouvemale.Address <> adresse
End With
End Sub

A+