VBA - Trouver valeurs dans feuille avec boite de dialogue "rechercher"

[pascalmartin]

Bonjour
Débutant en VBA j'ai un petit soucis avec ma boite de dialogue "rechercher".
Après avoir chercher pdt quelque temps, j'ai réussi à faire a peu près ce que je souhaitais :
Ouvrir une inputbox, rentrer ma valeur à rechercher dans une plage de données, pour ensuite me rendre dessus.
Le problème : il y a plusieurs valeurs identiques dans ma plage de données et je suis obligé de cliquer sur mon bouton rechercher pour trouver les suivantes.
En plus si je souhaite faire une autre recherche je suis obliger de cliquer sur mon bouton jusqu'à avoir passer toutes mes valeurs identiques.
Je souhaiterai avoir le choix dans l'inputbox:
* continuer : pour passer aux valeurs suivantes (identiques)
* fermer : pour fermer mon inputbox... (et donc pouvoir passer à une nouvelle recherche en cliquant sur mon bouton).

Un peu perdu, je remercie ceux qui pourront m'éclairer.
D'avance merci.
Pascal.


Sub Recherche()
Dim rngTrouve As Range
Static strChaine As String
Static Ligne As Long
If Ligne = 0 Then
strChaine = InputBox("N° ou Nom à chercher ? :")
If strChaine = "" Then Exit Sub
Ligne = 1
End If
For Each rngTrouve In Range("CZ" & Ligne & "DA" & [CZ65536].End(xlUp).Row + 1)
If LCase(rngTrouve.Text) = LCase(strChaine) Then
rngTrouve.Activate
Ligne = rngTrouve.Row + 1
Exit Sub
End If
Next
MsgBox "Pas Trouvé(e)"
Ligne = 0
Set rngTrouve = Nothing
End Sub

 

[kjin]

Re : VBA - Trouver valeurs dans feuille avec boite de dialogue "rechercher"

Bonjour,
Utiliser

Application.Dialogs(xlDialogFormulaFind).Show

ou créer une boite de dialogue personnalisée (userform)
A+
kjin

 

[pascalmartin]

Re : VBA - Trouver valeurs dans feuille avec boite de dialogue "rechercher"

Salut,
Ok merci pour l'info. Je pense que je vais me tourner vers un userform
Merci beaucoup.
Même si je bloque déjà avec mon userform
a+