Colorier une cellule en fonction du contenu

Bonjour à tous,
Je souhaiterais utiliser un module sur VBA pour colorier le fond de la cellule en fonction du contenu (texte) sans passer par le MFC prévu sur Excel.
En effet, j'ai sur VBA, la possibilité de compter les cellules en fonction de leur couleur mais en utilisant la mise en forme conditionnelle d'Excel
je ne parviens pas à utiliser mon mini programme VBA pour compter les cellules colorées.
Merci pour votre aide.8-)

Bonjour et bienvenue au forum !
Qu'est-ce qui te pose problème ? As-tu déjà essayé d'obtenir un code avec l'enregistreur de macro (code à adapter !) ?


PS : ceci est le forum Excel et non pas VBA, la prochaine fois pose ta question dans le bon forum ;)

Bonjour,

Effectivement, comme le dit riaolle, sur le forum VBA, c'est plus efficace.

Il te faut créer un nouveau module dans VBA :

Code:

---

1 2 3 4 5 6 7

Sub Change_Couleur() If Sheets("Feuil1").Range("A1").Value = "Texte_Recherche" Then Sheets("Feuil1").Range("a1").Interior.ColorIndex = 6 Else Sheets("Feuil1").Range("a1").Interior.ColorIndex = 0 End If End Sub

---

Ensuite, dans les événements 'Change' de ta feuille "Feuil1", tu tapes l'appel à cette procédure :

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) Change_Couleur End Sub

---

C'est Ok ça marche. Merci beucoup: D

Salut.

Le problème du coloriage par VBA, c'est qu'une modification de la cellule n'apportera pas la modification de la couleur, là où une MFC le ferait.

Personnellement, je laisserais à Excel le soin de colorier par MFC, et je compterais les cellules qui correspondent à la condition de la MFC. Cela me semble bien plus simple que de coder les conditions en VBA...

Beaucoup bien sûr....

Citation:

---

Envoyé par Pierre Fauconnier

Salut.

Le problème du coloriage par VBA, c'est qu'une modification de la cellule n'apportera pas la modification de la couleur, là où une MFC le ferait.

Personnellement, je laisserais à Excel le soin de colorier par MFC, et je compterais les cellules qui correspondent à la condition de la MFC. Cela me semble bien plus simple que de coder les conditions en VBA...

---

Je vais essayer les 2 formules. Merci c'est très sympa...

Et j'ajouterais qu'il n'est peut-être pas nécessaire, dans ce cas, de passer par VBA, une formule matricielle pourrait faire l'affaire. Et si tu utilises VBA (par exemple pour intégrer cela à une procédure VBA existante), tu pourras utiliser les techniques VBA qui permettent de calculer les formules (EVALUATE, notamment). Grâce à cela, une modification de la condition sera adaptée par simple modification de la formule XL ou VBA qui compte les cellules qui répondent à la condition.

Tu dégages alors complètement le problème de l'expression de la condition du code VBA et tu rends ton code beaucoup plus maintenable.

Citation:

---

Envoyé par QuestVba

Bonjour,

Effectivement, comme le dit riaolle, sur le forum VBA, c'est plus efficace.

Il te faut créer un nouveau module dans VBA :

Code:

---

1 2 3 4 5 6 7

Sub Change_Couleur() If Sheets("Feuil1").Range("A1").Value = "Texte_Recherche" Then Sheets("Feuil1").Range("a1").Interior.ColorIndex = 6 Else Sheets("Feuil1").Range("a1").Interior.ColorIndex = 0 End If End Sub

---

Ensuite, dans les événements 'Change' de ta feuille "Feuil1", tu tapes l'appel à cette procédure :

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) Change_Couleur End Sub

---

---

Je reviens vers parce que j'aurais plutôt souhaité colorier la cellule d'une plage comprenant un texte précis et pas seulement une cellule
comme indiqué dans votre programme. Cela suppose que le code VBA recherche une valeur sous forme de texte et utilise la condition If pour appliquer la coloration de la cellule. Je peux après additionner les couleurs et un nombre d'item. Si vous pouvez aire quelque chose? Merci d'avance.
Mais nous tracassez pas, je suis un petit amateur de programmation.

Je ne comprends toujours pas pourquoi tu ne veux pas utiliser les MFC et les formules conditionnelles que tu utilises dans ta mfc

Pièce jointe 286366

Mettre en dur dans ton code la partie de texte recherchée est une très mauvais pratique qui va t'obliger à modifier ton code le jour où tu voudras modifier ta condition. Utiliser les formules, dans Excel ou dans VBA sur base des conditions et pas sur base des couleurs est un moyen très sécurisant de travailler.

Travailler sur les couleurs dans Excel est toujours une mauvaise solution, et c'est d'ailleurs pourquoi Excel ne propose pas de telles fonctions...

En VBA, tu peux aussi compter les cellules qui répondent à la condition, de plusieurs façons, mais j'aime bien la plage nommée en Excel pour éviter justement de coder en dur...

Pièce jointe 286371

Code:

---

1 2 3 4 5

Sub Test() Dim NB1 As Long   NB1 = Evaluate(Range("Formule").Value) End Sub

---