Barre de recherche Feuil1 avec données en Feuil2

Bonjour à tous,

Je travaille dans les ressources humaines et manipule pas mal de données salariales assez sensibles.

j'ai essayé d'adapter le code du tutoriel de Sébastien ci-contre à mes besoins;

(https://www.blog-excel.com/creer-un-champ-de-recherche-vba/)

il s'agit me concernant de rechercher dans la colonne A d'une seconde feuille les informations

et de les lister de la même façon en feuille 1.

Je tenais à recourir à cette barre de recherche pour éviter les allers retours dans la base de donnée et pour éviter qu'un salarié la modifie par mégarde.

Lorsque j'utilise le code ci-contre :

Option Compare Text
Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

    Dim rng As Range
    Set rng = Worksheets("FORMULES").Range("A:A")

 If TextBox1 <> "" Then
     If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                ListBox1.AddItem Cells(ligne, 1)
            End If
        End If
End Sub

j'obtiens une erreur 1004.

Je me doute qu'il s'agit d'une question de définition de l'espace à analyser / renseigner mais malheureusement je débute tout juste en VBA et malgré mes premières recherches, cela dépasse encore mes capacités...

Pourriez-vous m'aider s'il vous plait?

Par avance, merci à tous!

PS: j'ai tenté de retirer la part du code sur la colorisation puisqu'elles sont sur une autre page.

Bonsoir

Option Compare Text
Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

    Dim rng As Range
    Set rng = Worksheets("FORMULES").Range("A:A")

 If TextBox1 <> "" Then
     If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                ListBox1.AddItem Cells(ligne, 1)
            End If
        End If
End Sub

Tu définis rng que tu n'utilises pas

D'autre part, quand tu inscris Cells(ligne,1), ton résultat dépend de la feuille sur laquelle tu te trouves ; il faudrait peut-être le préciser devant Cells, c'est certainement cela qui provoque ton erreur...

A+

Bonjour,

merci pour la réponse,

J'ai supprimé la référence à RNG pour préciser à chaque fois la feuille utilisée,

Option Compare Text
Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

 If Sheets("2018").TextBox1 <> "" Then
      If Sheets("FORMULES").Range("A:A").Cells(ligne, 1) Like "*" & Sheets("2018").TextBox1 & "*" Then
                Sheets("2018").ListBox1.AddItem Sheets("2018").Cells(ligne, 1)
            End If
        End If
End Sub

J'ai essayé de faire varier les écritures mais je reste avec cette même erreur malheureusement.

Bonjour

Ton textbox est sur l'userform donc pas de sheets devant...idem pour listbox...

Quant à cela :

If Sheets("FORMULES").Range("A:A").Cells(ligne, 1)

C'est :

Sheets("FORMULES").Range("A:A")

ou

Sheets("FORMULES").Cells(ligne, 1)

mais pas range suivi de cells

A+

Bonjour

Peux-tu faire une extraction de ton fichier avec quelques lignes où tu changes les noms?

Cela sera plus facile pour t'aider

Merci

A+

C'est bon, tout est réglé

Option Compare Text

Private Sub TextBox1_Change()
Dim ligne As Long, DL As Long
    Application.ScreenUpdating = False
    DL = Sheets("FORMULES").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
    ListBox1.Clear
   If TextBox1 <> "" Then
    ListBox1.Clear
        For ligne = 6 To DL
            If Sheets("FORMULES").Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                ListBox1.AddItem Sheets("FORMULES").Cells(ligne, 1)
            End If
        Next ligne
    End If
End Sub

Merci beaucoup pour l'aide! je bloquais depuis plusieurs jours dessus...

Le script charge donc la page FORMULES qui contient mes données, colonne 1, de la ligne 6 à la fin

et renseigne la TextBox / ListBox sur l'userform

Avec un petit

Private Sub ListBox1_Click()
Dim MyData As New DataObject
 Set MyData = New DataObject
  MyData.SetText ListBox1.Value
    MyData.PutInClipboard
End Sub

pour permettre de copier le texte de la listbox et éviter les erreurs de saisie ça devrait le faire =)

Bonne soirée Patty5046 et de nouveau merci!

Enchantée que tu t'en sois sorti avec de petites pistes...

Tu vois, tu es un chef...

Merci de ton merci

Si ce n'est pas fait :

Bonne continuation