Discussion :

[EAU24]

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.

[riaolle]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range) 
   Change_Couleur 
End Sub

[EAU24]

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

[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...

[EAU24]

Beaucoup bien sûr....

[EAU24]

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...

[Pierre Fauconnier]

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.

[EAU24]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pierre Fauconnier]

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



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...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Test()
  Dim NB1 As Long
 
  NB1 = Evaluate(Range("Formule").Value)
End Sub