Bonsoir le forum,
J'ai parcouru pas mal de forum et je n'arrive pas à trouver une methode de recherche simple pour trouver plusieurs occurences sur une feuille.
J'ai un grand listing avec des dates, des montants et des mots et je cherche à faire une macro pour mettre en évidence une valeur recherchée.
Un USF (LookFor) s'ouvre, je rentre la valeurs à rechercher dans un textbox (Textbox1). en cliquant sur le bouton CommandButton1 la macro me trouve bien la valeur dans le tableau et la selectionne.
Mais j'aimerais qu'en cliquant sur un 2eme bouton (commandbutton2), la macro me cherche et trouve la 2nde occurance et la selectionne à son tours.. ainsi de suite jusqu'à ce qu'il n'y ai plus d'occurence ( avec Message ).
Voila le bout de mon code: Je sais pas ou insérer le 2eme bouton pour trouver une autre occurence.
Si quelqu'un a la solution.
Private Sub CommandButton2_Click()
If TextBox1 = "" Then
MsgBox "Inscrire une valeur"
TextBox1.SetFocus
GoTo Fin
Else
On Error Resume Next
Dim Recherche
Err = 0
Recherche = TextBox1
Cells.Find(What:=Recherche, LookIn:=xlValues).Activate
If Err <> 0 Then
TextBox1.SetFocus
Else
TextBox1.SetFocus
End If
End If
Fin:
End Sub
Merci beaucoup.
Seb
J'ai parcouru pas mal de forum et je n'arrive pas à trouver une methode de recherche simple pour trouver plusieurs occurences sur une feuille.
J'ai un grand listing avec des dates, des montants et des mots et je cherche à faire une macro pour mettre en évidence une valeur recherchée.
Un USF (LookFor) s'ouvre, je rentre la valeurs à rechercher dans un textbox (Textbox1). en cliquant sur le bouton CommandButton1 la macro me trouve bien la valeur dans le tableau et la selectionne.
Mais j'aimerais qu'en cliquant sur un 2eme bouton (commandbutton2), la macro me cherche et trouve la 2nde occurance et la selectionne à son tours.. ainsi de suite jusqu'à ce qu'il n'y ai plus d'occurence ( avec Message ).
Voila le bout de mon code: Je sais pas ou insérer le 2eme bouton pour trouver une autre occurence.
Si quelqu'un a la solution.
Private Sub CommandButton2_Click()
If TextBox1 = "" Then
MsgBox "Inscrire une valeur"
TextBox1.SetFocus
GoTo Fin
Else
On Error Resume Next
Dim Recherche
Err = 0
Recherche = TextBox1
Cells.Find(What:=Recherche, LookIn:=xlValues).Activate
If Err <> 0 Then
TextBox1.SetFocus
Else
TextBox1.SetFocus
End If
End If
Fin:
End Sub
Merci beaucoup.
Seb
