Discussion :

[wabo67]

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

[oOVaveOo]

Bonjour,

Peut-on savoir ce qui ne fonctionne pas dans ta macro ?

Est-ce que ton fichier s'ouvre ?
Car il manque le nom du fichier là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open Filename:="C:\Documents and Settings\WEBER\Mes documents\bdd\NOMDUFICHIER.XLS"

[wabo67]

non le fichier s ouvre

mais le fichier ne recherche pas que dans la colone A
Si j'ai la meme valeur dans la B il selectionne aussi

[oOVaveOo]

Il faut que tu précise où chercher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A:A").Select
        Set c = Selection.Find( .... etc

@+