Bonjour Neonato, Arnaud, le Forum
Une autre approche que celle d'Arnaud qui offre l'avantage de scanner à l'intérieur de la String de l'ActiveCell sans paramétrer à quel emplacement on espère trouver la String Recherchée.
Sub Searching602()
Dim C as range
With ActiveCell
Set c = .Find(602, LookIn:=xlPart)
If Not c Is Nothing Then MsgBox "Bingo !!! "
End With
End Sub
En partant de cette même approche, plutot que de boucler avec For m = 1 To 10 pour finir par des "Select" (ralentissant) Cells(m, 1).Select on peut faire ceci :
Sub Searching()
Dim C As Range
Dim FirstAddress As String
Dim SearchedString As String
Dim ResultsMsg As String
SearchedString = InputBox("Taper la String à rechercher")
With ActiveSheet.Range("A1:A10")
Set C = .Find(SearchedString, LookIn:=xlPart)
If Not C Is Nothing Then
FirstAddress = C.Address
Do
ResultsMsg = ResultsMsg & C.Value & " " & vbTab & C.Address & vbCrLf
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstAddress
End If
End With
If ResultsMsg <> "" Then
MsgBox "Votre Recherche " & SearchedString & " contenue dans les éléments suivants" & vbCrLf & ResultsMsg
Else
MsgBox "Pas d'éléments trouvés pour " & SearchedString
End If
End Sub
Bonne Journée
@+Thierry