dim Valeur as Variant dim Recherche as Range Valeur=Textbox1.text Set Recherche = Sheets("BDD").Columns("A").Find(Valeur, LookIn:=xlValues, LookAt:=xlWhole) if not recherche is nothing then msgbox "Valeur <" & valeur & "> trouvée sur la ligne " & recherche.row else msgbox "Valeur non trouvée" end if
With Worksheets("BDD")
For Each CIBLE In .Range("A1:A" & Range("A65536").End(xlUp).Row)
Set TBLF = .Find(TextBox1.Value, LookIn:=xlValues)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question