Fonction de recherche

Bonjour,

Je souhaiterais utiliser une fonction qui parcours une plage de cellules.

Pour chaque cellule : recherche d'un texte défini

si le texte est présent dans la cellule (la cellule contient une phrase)

alors ma cellule A1 par exemple contiendra le texte "ok"

sinon ma cellule A1 contiendra le texte "absent"

Merci de votre aide je n'y arrive pas

Voila mon début :

Dim AA As Range

For Each AA In Range("i4:i47")

?????

Next AA

Edit modo : Code mis entre balises

Bonsoir Softmartel

Merci de faire attention de mette le code donné entre balises, même s'il fait 4 lignes

Voici une possibilité

Sub Test()
  Dim Cel As Range
  With ActiveSheet
    For Each Cel In .Range("I4:I47")
      If InStr(1, Cel, "Mon texte", vbTextCompare) > 0 Then
        ' Texte trouvé
        .Range("A" & Cel.Row).Value = "Ok"
      Else
        ' Texte non trouvé
        .Range("A" & Cel.Row).Value = "absent"
      End If
    Next Cel
  End With
End Sub

A+

Super merci j’ai adapté et cela fonctionne très bien.