Bonjour à tous,
J'ai actuellement un champ de recherche que j'ai réussis à faire grâce à la page Blog-excel.
Malgré mon faible niveau en VBA, j'ai réussis à modifier selon mes envies.
Mais je me retrouve bloqué actuellement, car je souhaiterai pouvoir cliquer sur le résultat de la listbox, afin qu'elle me ramène directement sur la cellule.
J'ai tenté les lignes suivantes mais j'ai un message d'erreur.
Option Compare Text
Private Sub ListBox1_Click()
With ListBox1
Cells(.List(.ListIndex, 1), 4).Select
End With
End Sub
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("A12:J20000").Interior.ColorIndex = 2
ListBox1.Clear
If TextBox1 <> "" Then
For ligne = 12 To 20000
If Cells(ligne, 4) Like "*" & TextBox1 & "*" Then
Range("A" & ligne & ":J" & ligne).Interior.ColorIndex = 6
ListBox1.AddItem Cells(ligne, 4)
End If
Next
End If
End Sub
Vous trouverez un fichier modèle en pièce jointe.
Merci d'avance de votre retour.