XL 2013 colorier cellule en vba

michokette · 22 Septembre 2020

Bonjour le forum

j'ai trouvé sur le net une macro qui me permet de trouver dans un tableau la cellule contenant un mot inscrit en D1 (voir fichier joint)
Pour que cela soit plus visuelle, je souhaiterai que la cellule se colorie en jaune par exemple
Quelqu'un pourrait t-il me dire que modification il faut faire à la macro pour que cela se fasse
En vous remerciant par avance de vos suggestions

job75 · 22 Septembre 2020

Bonjour michokette,

Pourquoi du VBA alors qu'une MFC fait très bien l'affaire ?

Sélectionner la colonne D et formule de la MFC =D1=D$1

A+

soan · 22 Septembre 2020

Bonjour michokette, job75,

Voici ton fichier en retour.

A) Sur la feuille de calcul

1) J'ai ajouté la ligne vide 2 pour que le tableau soit séparé de D1,
sinon, le .CurrentRegion mettrait en jaune D1 aussi !

2) J'ai nommé ton bouton "En Jaune"

B) Pour le code VBA

1) Ne pas appeler la sub : Selection() !!! car c'est un mot-clé réservé
(keyword) du VBA ; j'ai renommé ta sub : EnJaune().

2) Inutile de sélectionner la plage ! on met direct en jaune !

VB:

Option Explicit

Sub EnJaune()
  Dim cel As Range, plg$, mot$
  mot = [D1]: Application.ScreenUpdating = 0
  For Each cel In [A4].CurrentRegion
    If cel = mot Then plg = plg & cel.Address(0, 0) & ","
  Next cel
  If Len(plg) > 0 Then _
    Range(Left$(plg, Len(plg) - 1)).Interior.Color = 65535
End Sub

C) MFC (Mise en forme conditionnelle)

Je n'en n'ai pas mis, mais job75 à raison : une MFC suffit !

Je poste quand même ma solution, au cas où tu veux
absolument un code VBA ; et tu pourras aussi faire
une comparaison avec le code VBA initial.

soan

michokette · 22 Septembre 2020

Bonjour JOB75 et SOAN
je garde vos 2 solutions qui me satisfont toutes les 2
Mais effectivement je vais partir sur la MFC proposé par JOB75, qui est nettement plus facile à appréhender (pour ma part) qu’un code VBA
Merci à tous les 2 !!!!

XL 2013 colorier cellule en vba

michokette

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

soan

XLDnaute Barbatruc

Pièces jointes

michokette

XLDnaute Nouveau

Discussions similaires