USF recherche VBA

[marcelio]

Bonsoir le Forum,

J'ai beau chercher sur le forum, mais je n'arrive pas à trouver la solution à mon problème
J'ai un USF qui fait une recherche sur ma feuille entière,
J'aimerais quel fasse sa recherche uniquement de la cellule D4 à EK43

Mon code
Option Explicit
Option Compare Text

Private Sub TextBox1_Change()
Dim R As Range
With ListBox1
.Clear
If TextBox1 = "" Then Exit Sub
For Each R In Cells.SpecialCells(xlCellTypeConstants)
If R Like "*" & TextBox1 & "*" Then
.AddItem R
.List(.ListCount - 1, 1) = R.Address
End If
Next
If .ListCount = 0 Then
MsgBox "pas de trace", vbInformation, "Saisie annulée..."
TextBox1 = ""
End If
End With
End Sub

Private Sub CommandButton2_Click()
Dim i As Byte
With ListBox1
If .ListCount > 0 Then
For i = 0 To .ListCount - 1
If .Selected(i) = True Then Range(.List(i, 1)).Select: Exit For
Next
End If
End With
Unload Me
End Sub

Private Sub ListBox1_Click()
Range(ListBox1.List(ListBox1.ListIndex, 1)).Select
End Sub

Merci beaucoup de votre aide.

Marcelio

 

[Lone-wolf]

Re : USF recherche VBA

Bonsoir marcelio,

regarde si ce fichier te convient.


A+ 😎

 

[JCGL]

Re : USF recherche VBA

Bonjour à tous,

Peux-tu essayer ceci :

Private Sub TextBox1_Change()  Dim R As Range
  With ListBox1
    .Clear
    If TextBox1 = "" Then Exit Sub
    'For Each R In Cells.SpecialCells(xlCellTypeConstants)
    For Each R In Feuil1.Range("D4:EK43")
      If R Like "*" & TextBox1 & "*" Then
       .AddItem R
       .List(.ListCount - 1, 1) = R.Address
      End If
    Next
    If .ListCount = 0 Then
      MsgBox "pas de trace", vbInformation, "Saisie annulée..."
      TextBox1 = ""
    End If
  End With
End Sub

A+ à tous

 

[marcelio]

Re : USF recherche VBA

Bonsoir JCGL, Lone-Wolf et le Forum,

Je vous remercie pour vos réponse, je vais garder celle de JCGL qui correspond le mieux à mon fichier.
Je vous souhaite à tous les 2 et au Forum une bonne soirée.

A+ Marcelio

 

[marcelio]

Re : USF recherche VBA

Bonsoir JCGL, Lone-Wolf et le Forum,

Je vous remercie pour vos réponse, je vais garder celle de JCGL qui correspond le mieux à mon fichier.
Je vous souhaite à tous les 2 et au Forum une bonne soirée.

A+ Marcelio