Rechercher une cellule dans un tableau word puis appliquer un style

Question

Bonjour, effectuant une mise à niveau de documents, je me retrouve dans un cas ou une tâche automatisée m'économiserais bien des efforts inutiles. J'ai quelques milliers de tableaux d'une longueur assez conséquente à mettre en forme. Et ne m'y connaissant pas encore assez malgré les essais, les recherches que j'ai effectuées et les aides que vous m'avez déjà apportées, je me vois vous demander à nouveau des conseils pour développer cette macro. Dans la première colonne il y a des cellules non-vides, quand elles sont non-vides, je dois mettre en forme toute la ligne avec un gris 25%, le texte en gras avec le style "Style 1" (qui est un style fait maison... avec une police précise). Dans le cas ou la cellule est vide, il ne faut pas appliquer de style, en gros, laisser tel quel. Voici un exemple, avec une ligne en gris, et une ligne ou la première cellule n'est pas vide mais où le style n'a pas encore été appliqué... Si la colonne n'est pas vide, elle contient au moins le caractère '_'. Test_00001 , Ouverture de l'objet par le réseau. , - , Failed , ---- , Etat initial : , Objet fermé., , ---- , Ouverture de l'objet par réseau., L interface YYY doit retomber., , ---- Test_00002, Fermeture de l'objet par l'opérateur., -, OK, ---- , Etat initial : , Objet ouvert., , ---- , Fermeture de l'objet par l'opérateur., L interface XXX doit retomber., Si ce n'est pas possible, tant pis, je ferai tout manuellement... Je vous remercie par avance, brau

cs_brau · Answer

Je m'aperçois que la première ligne du tableau avec le texte en gras n'apparaît pas en gris...

cs_MPi · Answer

Tu pourrais faire un filtre (non vide) sur la première colonne.
Rows(2).AutoFilter Field:=1, Criteria1:="<>" ' ligne 2 ou autre

Tu sélectionnes toutes les cellules et tu leur apposes le format nécessaire.
cells.font.colorindex = ce que tu veux (Integer)
cells.font.name = "ce que tu veux"  (String)
....

Ensuite tu enlèves le filtre et le tour est joué.

Je pense que c'est plus rapide que de passer par les boucles...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_brau · Answer

c'est une idée assez intéressante, je la mets en pratique demain!
merci pour cette réponse!

Rechercher une cellule dans un tableau word puis appliquer un style

3 réponses

Votre réponse

Discussions similaires