Bonjour à tous!
J'ai une feuille excel pleine de boutons dont je parcours les textes à la recherche d'un autre texte:
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"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Quelqu'un a une idée là-dessus?
Merci!
Partager