VBA Excel - moteur de recherche

Dernière réponse : 10 Décembre 2005 15:42 dans Programmation

matt55

8 Décembre 2005 14:22:48

Bonjour à tous,

Je viens ici car là je bloque !!!

Les bases :

j'ai une liste de documents dans un tableau(titre, auteur, date, ....)

j'ai crée un formulaire de recherche en VB qui inscrit le résultat dans des champs appropriés (voir image)

Le problème est que lorsque je clique une première fois j'ai bien un résultat mais si je clique à nouveau sur Search, ça ne bouge pas, la recherche se fait sur la cellule active (il s'agit de celle qui résulte du code qui me permet de récupérer la première cellule de la ligne).

Voilà le code de mon formulaire :

Private Sub CommandButton2_Click()

Dim var As String

Dim ligne As Integer

 
Sheets("HMI").Select

var = TextBox1.Text

 
If var = "" Then

    CommandButton4.Visible = False

    Exit Sub

Else

 
    Sheets("HMI").Select

    Cells.Find(What:=var, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate

 
'Afficher le formulaire de résultat(s)

            UserForm2.Height = 528

            UserForm2.Width = 520

            Frame1.Visible = True

 
'Activer la cellule la plus à gauche

            ligne = ActiveCell.Row

            Cells(ligne, 1).Select

 
 
 
'Inscrire les résultats de la recherche dans les champs correspondants

            TitleBox.Text = ActiveCell.Offset(0, 1).Text

            Author.Text = ActiveCell.Offset(0, 15).Text

            Abstract.Text = ActiveCell.Offset(0, 16).Text

            Year.Text = ActiveCell.Offset(0, 14).Text

            Linkbox.Text = ActiveCell.Offset(0, 17).Text

 
 
 
End If

 
End Sub