[Excel] Erreur 1004 avec un search
Bonjour à tous!
J'ai une feuille excel pleine de boutons dont je parcours les textes à la recherche d'un autre texte:
Code:
1
2
3
4
5
6
7
8
9
10
11
| If Range("N4").Value <> "" Then
Texte_recherche = Range("N4").Value
For Each bouton In ActiveSheet.Shapes
bouton.Select
Texte = Selection.Characters.Text
Resultat = Application.WorksheetFunction.Search(Texte_recherche, Texte)
If (Resultat > 0) Then
MsgBox ("Trouvé! ")
End If
Next bouton
End If |
Mais voilà: si le texte n'est pas trouvé, la macro plante et me retourne une erreur 1004 "impossible de lire la propriété search de la classe WorksheetFunction"
Quelqu'un a une idée là-dessus?
Merci!
