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 : Sélectionner tout - Visualiser dans une fenêtre à part
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