[VBA Excel] Appliquer une macro sur une celulle contenant une valeur

Bonjour à tous,

Exposé :
1/ Une celulle contient une valeur issue d'une fonction rechercheV
2/ J'ai une macro qui applique un motif sur une celulle en fonction de sa valeur (comme la mise en forme conditionnelle, mais avec plus de conditions)

Question :
Comment appliquer la macro sur une celulle sans écraser la fonction rechercheV qu'elle contient ?

J'ai pensé inclure la fonction rechercheV dans la macro, ca marche, mais ca fait un code un peu lourd car beaucoup de celulles sont concernées par ce traitement.

Si quelqu'un à une solution plus simple, je suis preneur.

Merci et bonne journée à tous
Thierry

Sans le type du traitement souhaité pas solution (par exemple tu pourrais désirer la peindre en rouge ou en vert, l'écrire en italique.... ) ;)
Sinon, en récupérant sa valeur, tu peux bien en faire ce que tu veux mais tu n'auras plus ta recherchev en cas de modif de la base de données :cry:

Tu as vu juste, il s'agit de colorer la celulle en fonction de sa valeur.
Le fond de la question c'est de savoir s'il y a un moyen simple d'appliquer une macro sur une celulle qui contient déjà une fonction d'excel (quelqu'elle soit). J'ai l'impression que non, en tout cas merci de ta première réponse.
Thierry

SAlut
J'ai regarder et sauf erreur de ma part le calcul d'une cellule ne declenche pas le OnChange de la feuil, donc la solution la plus simple, mais bon faut voir la complexité de ta formule, c'est de regarder si la cellule Target du OnChange fait partie dune des cellule contenu dans ta formule
Par exemple

Code:

---

=SI(ET(B14=4;B13="");B14;"Gagné")

---

Dans se cas la tu va tester si le OnChange a ete declenché par B14 ou B13, ansi si Target = B14 ou Target = B13 alors ... et ensuite tu recupert la valeur de ta cellule (celle qui contient la formule) et tu la format a ton gout.

Si les formule sont nombreuse et complex il a y peut tre une possibilité de le faire avec les Audits, mais ca va allourdir le fonctionnement de ton classeur si a chaque modif d'une cellule on controle si elle appartient a une des cellule contenant une formule et qui doit etre reformatée.

Apres pour la partie formatage conditionnele via une macro c'est ici mon code est peut etre pas super elegant mais fonctionnel

A++
Qwaz

Bonsoir, tchauviere;

Tant que tu ne touches qu’au format, peu importe que la cellule contienne une formule ou non ; voici un exemple simple :

Code:

---

1 2 3

Sub Macro1() Selection.Font.ColorIndex = 3 End Sub

---

En fait tu as plusieurs solutions pour appliquer simplement le code donné par Bigalo : Tu peux lancer une macro par un bouton qui teste le contenu des cellule à peindre, ou tu utiliser l'événement Calculate.
Calculate fonctionnera, soit à l'ouverture de ton classeur, soit sur commande, soit pour toute modif effectuée dans ta feuille de calculs impliquant une formule.

Code:

---

1 2 3

Private Sub Worksheet_Calculate() if Range("A1") = "Coucou !" then Range("A1").Font.ColorIndex = 3 End Sub

---

Dans cet exemple, A1 contient une formule (=RechercheV(.......) qui renvoie "Coucou !" et la référence fournie par cette formule a été modifiée.

PS - F9 ne fonctionne pas pour une mise à jour de ton arc en ciel si aucune modif n'est effectuée dans la plage de recherche.

Merci de vos réponses, je vois tout ca ce WE, désolé de ne pas commenter plus vite ma Free box est morte, prochaine connextion lundi
Bon WE à tous

Hello,
Finalement j'ai collé ma procédure en Auto_Open et modifié mon code pour qu'il s'applique à toute la feuille. Ca marche comme je voulais.
J'ai essayé ton Worksheet_Calculate() mais sans arriver à le faire fonctionner à l'ouverture du fichier.
Merci encore, bonne journée
à tous
Thierry