recherche dans commentaires

[michel.dupont]

Bonjour
je pensais grâce à jOB75 (merci à lui) avoir trouvé la solution mais j'ai entretemps travailler sur le fichier et le code de la macro activer par le bouton "recherche commentaires" ne fonctionne plus.Pour rappel il s'agit d' un fichier de réservation de véhicules ; la macro en question doit coloriser les cellules d'une feuille qui comportent dans ses commentaires (triangle rouge) un mot introduit via une messagebox.
je joins le fichier merci à tous
Michel

 

[Jacky67]

Bonjour
je pensais grâce à jOB75 (merci à lui) avoir trouvé la solution mais j'ai entretemps travailler sur le fichier et le code de la macro activer par le bouton "recherche commentaires" ne fonctionne plus.Pour rappel il s'agit d' un fichier de réservation de véhicules ; la macro en question doit coloriser les cellules d'une feuille qui comportent dans ses commentaires (triangle rouge) un mot introduit via une messagebox.
je joins le fichier merci à tous
Michel

Bonjour,
Apparemment le "CodeName" de la feuille a changé
Comme il n'y a qu'une feuille à traiter, je propose de remplacer
==> With Feuil1 'CodeName
par
==> With ActiveSheet