Question avec " application.worksheetFunction"

Bonjour

avec mon petit de code suivant :

Dim x As String
x = Application.WorksheetFunction.CountIf(Range("a1:a14"), Range("c16"))    
If x > 0 Then
MsgBox " le contenu de c16 est dans la plage a1:a14"
Else
MsgBox "  le contenu de c16 n'est pas dans la plage a1:a14"
End If
End Sub

qui consiste à verifier si le contenu de ma cellule c16 existe dans la plage a1:a14 de ma feuille de calcul marche bien , cependant je ne vois pas comment localiser ma cellule dans la plage a1:a14 ( par exemple à l'aide d'un "select") ( je sais que j'aurai pu utiliser

l'instruction for , mais je ne souhaite pas .

Voyez vous une solution simple ?

Merci pour vos réponses

Bonjour

Simple je ne sais pas mais c'est une solution

Sub truc()
Dim Cel As Range

  Set Cel = Range("A1:A14").Find(what:=Range("C16"), LookIn:=xlValues, lookat:=xlWhole)
  If Not Cel Is Nothing Then
    MsgBox " le contenu de c16 est dans la plage a1:a14"
    Cel.Select
  Else
    MsgBox "  le contenu de c16 n'est pas dans la plage a1:a14"
  End If
End Sub

Merci Banzai , je vais tester ça !