XL 2019 application police automatique

[Utilisateur222.222]

Bonjour à tous, je cherche de l'aide pour la rédaction d'une Macro.

Dans cette macro, je souhaite, sur un fichier excel déjà existant , parcourir chaque cellule et d'analyser la police d’écriture de celle-ci. ( ex calibri)
Si une police autre que le calibri est détecté, un message soit affiché à l'aide d'une messagebox, puis que le calibri soit automatiquement appliqué à ces cellules.

J'avais pensé à une boucle For par exemple

Merci à vous

 

[vgendron]

bonjour
et pourquoi ne pas simplement selectionner toute la feuille et appliquer la police calibri??

 

[Utilisateur222.222]

bonjour
et pourquoi ne pas simplement selectionner toute la feuille et appliquer la police calibri??

Car exceptionnellement certaines cellules peuvent avoir un format et donc possiblement une police particulière par exemple dans un tableau par manque de place ou d'autres cas encore

 

[chris]

Bonjour
Pour info Microsoft permet de chercher tout ce qui est dans tel ou tel format dans Excel comme dans Word, mais pas ce qui n'a pas tel format
Si un autre discriminant que la police existe, cela peut éviter ce type de boucle sur des millions de cellules

 

[vgendron]

Car exceptionnellement certaines cellules peuvent avoir un format et donc possiblement une police particulière par exemple dans un tableau par manque de place ou d'autres cas encore

autant prendre le problème dans le bon sens...
par défaut, la feuille est en calibri
et pour les cas exceptionnels, tu changes la police..