bonjour

Je voudrais recherche le mon du textbox dans la colonne A:A
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
       Workbooks.Open Filename:="C:\Documents and Settings\WEBER\Mes documents\bdd"
 
        Set c = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
 
 
        On Error GoTo Erreur
        If c = "" Then
        UserForm1.Hide
        End If
        c.Activate 'active la cellule trouvée
 
         Exit Sub
 
Erreur:
    UserForm2.Show
 
End Sub
Merci