Recherche dans une listebox

Bonjour le forum.

je voudrai crée une fonction recherche dans toute la listtbox avec la textbox27 mais mes connaissances excel, insuffisante, me le permmette pas,si vous avez une idee pour le code !!!!

MERCI DE VOTRE AIDE

Bonjour jexcelpas,

Il nous manque des explications, que veux tu faire comme recherche exactement ?

A+

bonjour,

une recherche sur toute la listebox de la colonne A à Z.

MERCI

Re,

Voici le code à mettre dans ton USF

Private Sub TextBox27_AfterUpdate()
  Dim Rng As Range, Lig As Long
  ' Avec la feuille indiquée
  With Sheets("THSauvegarde")
    ' En cas d'erreur on continue le code
    On Error Resume Next
    ' Effectuer une recherche du terme saisi dans toutes les cellules
    Set Rng = .Cells.Find(Me.TextBox27)
    ' Si une cellule est trouvée
    If Not Rng Is Nothing Then
      ' Récupérer la ligne trouvée
      Lig = Rng.Row
      ' Sélectionner la Listbox
      Me.ListBox1.SetFocus
      ' Se positionner sur la ligne - 2 pour l'entête - 1 pour l'index qui commence à 0
      Me.ListBox1.ListIndex = Lig - 3
    Else
      MsgBox "Aucune correpondance trouvée !"
    End If
    On Error GoTo 0
  End With
End Sub

A+

Bonjour

Bonjour BrunoM45

J'ai pris mon temps et surtout j'ai du comprendre de travers, mais bon j'ai fait ça

A tester

bonjour banzai64,

nickel cela correspond à ce que je souhaitais.

2 petites questions

1) Comment faire si je veux modifier ce même fichier pour une recherche sur une autre feuille EX : La Feuil "original "comme source?.

2)lorsque je veux modifier une ligne de la listbox l'heure s'affiche dans la textbox sous le format 42010 au lieu de hh:mm je suppose qu'il faut mettre une référence du type format = "hh:mm"mais ou?

MERCI DE VOTRE AIDE

re,

Jexcelpas non plus dans le savoir vivre...

Tu es nouveau sur le forum, mais cela n'empêche pas la POLITESSE

jexcelpas a écrit :

bonjour banzai64,

nickel cela correspond à ce que je souhaitais.

@BrunoM45, désolé, mais ton code ne correspond pas à ce que je cherchais

C'est simple et efficace, je te laisse donc dans le mains de notre ami Banzai64

A tchao

Bonjour

C'est bien de respecter la charte du forum

Si vous avez obtenu la réponse espérée, commencez par cliquer sur le bouton Image du post qui a résolu votre problème et n'oubliez pas de remercier tous ceux qui vous ont aidé.

jexcelpas a écrit :

1) Comment faire si je veux modifier ce même fichier pour une recherche sur une autre feuille

Le plus simple, car je n'ai pas trop cherché, c'est de sélectionner l'autre feuille

jexcelpas a écrit :

l'heure s'affiche dans la textbox sous le format 42010 au lieu de hh:mm

Tu as des dates et des heures qui sont au format texte au lieu d'être au format date

la rustine de ce fichier devrait pallier ce problème

A tester