Zone de recherche en vba Résolu

Question

Bonjour à tous,

Je fais appel à votre bienveillance pour m'aider à trouver le code adapté. Mes connaissances en vba sont proches de zéro, j'ai eu beau regarder différents forums et fichiers proposés en essayant d'adapter selon mon cas, j'ai toujours une erreur d'exécution en retour.

Même si c'est inutile de préciser, je suis sur Excel 2016...

Dans le fichier joint, je souhaite tout simplement pouvoir afficher dans la ListBox1 les différents résultats trouvés dans la colonne A de la feuil1 en fonction de la recherche de la Textbox1

Les critères de recherche doivent être "dynamiques" - pas sûr que ce soit la bonne expression, mais par exemple que le résultat s'affine au fur et à mesure de la saisie même si le critère de recherche est incomplet (i.e : pari va afficher paris, parigot, parisien etc etc...)

La colonne A est amenée à évoluer en terme de ligne dans le temps

Fichier ici

https://uploadnow.io/files/1kX1YGx

Merci par avance, j'ai mal au crâne depuis ce matin à force de regarder du code que je ne comprends pas

danielc0 · Answer

Bonjour,

Désolé, je ne vois pas comment récupérer le fichier sans ouvrir un compte ?

Daniel

via38 · Answer

Bonjour

1) Poste ton fichier sur un site libre d'accès comme cjoint.com

2) Pour une recherche intuitivité voir les exemples et codes VBA donnés ici : http://boisgontierj.free.fr/

Cdlmnt

Via

danielc0 · Answer

Fais un clic droit sur Feuil2, clique sur "Visualiser le code" et colle cette macro :

Private Sub TextBox1_Change()
  Dim C As Range
  Me.ListBox1.Clear
  With Sheets("Feuil1")
    If Me.TextBox1.Value = "" Then
      For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        Me.ListBox1.AddItem C.Value
      Next C
    Else
      For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        If Left(C, Len(Me.TextBox1.Value)) = Me.TextBox1.Value Then
          Me.ListBox1.AddItem C.Value
        End If
      Next C
    End If
  End With
End Sub

Enregistre.

La macro sélectionne les enregistrements dont le libellé commence par ce qui est saisi dans le textbox :

Daniel

danielc0 · Answer

Dans ce cas :

Private Sub TextBox1_Change()
  Dim C As Range
  Me.ListBox1.Clear
  With Sheets("Feuil1")
    If Me.TextBox1.Value = "" Then
      For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        Me.ListBox1.AddItem C.Value
      Next C
    Else
      For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        If InStr(1, UCase(C.Value), UCase(Me.TextBox1.Value)) > 0 Then
          Me.ListBox1.AddItem C.Value
        End If
      Next C
    End If
  End With
End Sub

Daniel

Danielco · Answer

C’est fait exprès quand la textbox est Vide, il n’y a aucune sélection puisqu’il n’y a aucun caractère dans la textbox. Je ferai la modification demain (C’est pas facile avec un téléphone).

Daniel

danielc0 · Answer

Bonjour à tous,

Voici le code modifié avec des explications en commentaire. Il n'y a aucun souci avec InStr et 2016. J'ai utilisé Excel 2016 pendant sept ans sans aucun problème.

'se déclenche quand le textbox est modifié
Private Sub TextBox1_Change()
  Dim C As Range
  'vidage du listbox
  Me.ListBox1.Clear
  'tout ce qui commence par un "." se réfère à "Feuil1"
  With Sheets("Feuil1")
    'si le textbox n'est pas vide
    If Me.TextBox1.Value <> "" Then
      'pour chaque cellule de Feuil1 commençant à A2 jusqu'en bas
      For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        'si la cellule contient la valeur du textbox
        If InStr(1, UCase(C.Value), UCase(Me.TextBox1.Value)) > 0 Then
          'on ajoute la cellule dans le listbox
          Me.ListBox1.AddItem C.Value
        End If
      Next C
    End If
  End With
End Sub

Daniel

Zone de recherche en vba

6 réponses

Votre réponse

Discussions similaires