Rechercher et Remplacer avec respect des caractéristiques de Police V1

La fonction Rechercher – Remplacer d’Excel gère mal les remplacements quand les caractéristiques de Police de la cellule sont hétérogènes : Après Remplacement, toutes les caractéristiques de Police de chaque cellule concernée, sont identiques.
La fonction Rechercher – Remplacer de mon fichier prend en compte cette hétérogénéité.
Exemple avec Remplacement de cherche par trouvons

Fonctionnement (voir détail dans le fichier pdf)

Il est similaire à celui de la fonction Rechercher – Remplacer d’Excel, mais ici, il se limite à la recherche de texte et non du format :

• Saisie des caractéristiques de la Recherche (Texte recherché, Texte de Remplacement, Respect de la Casse, Totalité de la cellule) dans une fenêtre sur le modèle de la fenêtre standard.
• Sur l’activation du bouton Police, équivalent du bouton Format… de la fonction Standard, affichage d’une fenêtre équivalente à celle de la fonction Standard :
• Saisie des caractéristiques de Police (Nom, Style, Taille, Soulignement, Couleur, Barré, Exposant, Indice) à appliquer au Texte de Remplacement.
• Après validation de la saisie, retour à la fenêtre précédente.
• Sur l’activation de l’un des boutons de Remplacement, remplacement du Texte Recherché par le Texte de Remplacement, en fonction des critères de recherche, en appliquant, le cas échéant, les caractéristiques de Police indiquées dans la fenêtre associée au bouton Police.

Aspects Techniques
Le fichier est composé de :

• 2 UserForms (UF_RechercherRemplacer et UF_Police)
• 1 Module (Module1_RechercherRemplacer)

La macro à exécuter est RechercherEtRemplacer
Une suggestion, créer un fichier (version xlam) avec les 3 objets, le placer dans le répertoire des Macros Complémentaires et intégrer la macro dans le Ruban.