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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pascalmartin

XLDnaute Nouveau
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
427
Réponses
3
Affichages
298
Réponses
3
Affichages
582
Retour