Existence d'une chaîne de caractère dans une feuille

Bonjour,

Dans un TCD qui existe déjà, je veux tester si une chaîne de caractère existe ou non à l'aide du code VBA.

J'ai essayé:

If Not IsNull(pvt.GetData("'Accord C'")) Then
MsgBox "La chaîne existe"

Où " Accord C" est la chaîne recherchée, mais ça ne marche pas.

Est ce que vous avez une idée de comment faire cette vérification?

Merci.

Salut,

N'ayant pas ton fichier à disposition, je ne vois pas trop comment agir sur ton code.

Mais est-ce que tu arrives à combiner quelque chose sur la base du code inscrit dans le fichier ci-joint :

Option Explicit

Sub aa()
Dim Cellule As Range, m As Integer, Chaîne As String

Chaîne = Range("G10")

For Each Cellule In Range("A1:D20")
On Error Resume Next

m = WorksheetFunction.Search(Chaîne, Cellule)

If m > 0 Then
    MsgBox ("La chaîne existe")
    Exit Sub
End If

Next

End Sub

Sinon, joints ton fichier (mais je ne suis pas certain de pouvoir t'aider avec les TCD).

A te relire.