Fonction recherche FIND avec InputBox

Version imprimable

Bonjour le forum

j'ai un petit soucis pour rechercher une valeur ou un texte dans une feuille.

Cette valeur ou ce texte peuvent être présent plusieurs fois.

La macro ci-dessous me permet de trouver la première occurrence mais pas les suivantes, j'ai essayé d'y mettre une boucle mais sans succès.

Je cherche à rechercher les occurrences une après l'autre après avoir trouver la première et lorsque celle qui m'intéresse pouvoir quitter la recherche.

Un grand merci à ceux qui pourront m'aider.

Ma macro

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Sub Recherche() ' Définition des variables Dim rangeObj As Range Dim searchObj As String ' Définition de l'InputBox Application.Goto Range("C1"), True searchObj = Application.InputBox(_ Prompt:="SAISIR LE CRITÈRE DE RECHERCHE . . .", _ Title:="**********QUI CHERCHE TROUVE !", _ Default:="Saisir ici votre requête", _ Type:=2) 'TYPE : 0 = FORMULE / 1 = NOMBRE / 2= TEXTE / 4 = VALEUR LOGIQUE (TRUE - FALSE) _ 8 = RÉFÉRENCE DE CELLULE (SOUS LA FORME D'UN OBJET RANGE) / 16 = VALEUR D'ERREUR TELLE QUE #N/A /64 = MATRICE DE VALEURS ' Déclaration de la zone de recherche With ActiveSheet.Range("C1:M550") ' Définition de la fonction de recherche Set rangeObj = .Find(what:=searchObj, after:=Range("C1")) If Not rangeObj Is Nothing Then Application.Goto rangeObj, False Range(ActiveCell, ActiveCell.End(xlToRight)).Select Else searchObj = MsgBox("LA RECHERCHE N'A PAS ABOUTI", _ VBA.VbMsgBoxStyle.vbExclamation + _ VBA.VbMsgBoxStyle.vbOKOnly, _ "****ET LE RÉSULTAT EST !") End If End With End Sub

Bonjour

Citation:

Envoyé par olivepao

[B]Je cherche à rechercher les occurrences une après l'autre après avoir trouver la première et lorsque celle qui m'intéresse pouvoir quitter la recherche.

Je te propose de modifier ainsi ton code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Recherche()
 
' Définition des variables
Dim rangeObj As Range
Dim searchObj As String
 
' Définition de l'InputBox
Application.Goto Range("C1"), True
searchObj = Application.InputBox( _
     Prompt:="SAISIR LE CRITÈRE DE RECHERCHE  .  .  .", _
     Title:="**********QUI CHERCHE TROUVE !", _
     Default:="Saisir ici votre requête", _
     Type:=2)
     'TYPE : 0 = FORMULE / 1 = NOMBRE / 2= TEXTE /  4 = VALEUR LOGIQUE (TRUE - FALSE) _
      8 = RÉFÉRENCE DE CELLULE (SOUS LA FORME D'UN OBJET RANGE) /  16 = VALEUR D'ERREUR TELLE QUE          #N/A /64 = MATRICE DE VALEURS
 
' Déclaration de la zone de recherche
With ActiveSheet.Range("C1:M550")
 
' Définition de la fonction de recherche
Set rangeObj = .Find(what:=searchObj, after:=Range("C1"))
     If Not rangeObj Is Nothing Then
       Do
         Application.Goto rangeObj, False
        Range(ActiveCell, ActiveCell.End(xlToRight)).Select
        If MsgBox("Recherche correcte ?", vbYesNo) = vbYes Then Exit Sub
            Set rangeObj = .FindNext(rangeObj)
       Loop While Not rangeObj Is Nothing
     Else
         searchObj = MsgBox("LA RECHERCHE N'A PAS ABOUTI", _
         VBA.VbMsgBoxStyle.vbExclamation + _
         VBA.VbMsgBoxStyle.vbOKOnly, _
         "****ET LE RÉSULTAT EST !")
     End If
End With
 
End Sub

29/01/2021, 19h32
olivepao

Bonjour anasecu et le forum

le code proposé par anasecu répond parfaitement à ma demande

Merci et très bonne soirée