VBA cellule couleur si un mot dans commentaire

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Février 2010

• #2

Re : VBA cellule couleur si un mot dans commentaire

Bonsoir,

Dans un module

Code:

Function Comment(c)
  Application.Volatile
  If c.Comment Is Nothing Then
     Comment = ""
  Else
     Comment = Replace(c.Comment.Text, Chr(10), "")
  End If
End Function

MFC:
=ESTNUM(CHERCHE("OK";comment(A1)))

La mise en forme conditionnelle

JB

 

Pièces jointes

• Classeur1.xls

  24.5 KB · Affichages: 93
• Classeur1.xls

  24.5 KB · Affichages: 97
• Classeur1.xls

  24.5 KB · Affichages: 98

Vote positif 0 Vote négatif

L

laraviole

XLDnaute Junior

• 25 Février 2010

• #3

Re : VBA cellule couleur si un mot dans commentaire

Bonsoir BOISGONTIER,
Je me suis mal exprimée, le commentaire est écrit dans la cellule par contre je range ta solution car elle va aussi me servir .

Etonnant, tout à l'heure j'étais sur Formation Excel VBA JB
Cdlt
Laraviole

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Février 2010

• #4

Re : VBA cellule couleur si un mot dans commentaire

Mfc:
=estnum(cherche("ok";a1))

jb

 

Vote positif 0 Vote négatif

L

laraviole

XLDnaute Junior

• 25 Février 2010

• #5

Re : VBA cellule couleur si un mot dans commentaire

Pourquoi faire simple quand on peut faire compliqué. Sur ce coup je ne suis pas fière de moi.
Merci et Bonne soirée
Laraviole

 

Vote positif 0 Vote négatif

L

laraviole

XLDnaute Junior

• 26 Février 2010

• #6

Re : VBA cellule couleur si un mot dans commentaire

Bonjour le Forum,
Pour compter les couleurs j'utilise :
Function sommecouleur(MaPlage As Range, MaCellRef As Range)
Dim c As Range
Dim montotal As Double
Application.Volatile True
For Each c In MaPlage
If c.Interior.ColorIndex = MaCellRef.Interior.ColorIndex Then
montotal = montotal + 1
End If
Next
sommecouleur = montotal
End Function
Le probléme c'est que lorsque le celleule est de couleur grace à une une mise en forme conditionnelle cela ne fonctionne pas
Merci pour votre aide
Cdlt
Laraviole

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 26 Février 2010

• #7

Re : VBA cellule couleur si un mot dans commentaire

Bonjour,

Voir PJ

JB

 

Pièces jointes

• Copie de Classeur1(1).xls

  21.5 KB · Affichages: 125
• Copie de Classeur1(1).xls

  21.5 KB · Affichages: 122
• Copie de Classeur1(1).xls

  21.5 KB · Affichages: 126

Vote positif 0 Vote négatif

L

laraviole

XLDnaute Junior

• 26 Février 2010

• #8

Re : VBA cellule couleur si un mot dans commentaire

Bonjour,
Sans commentaire, je revoie ma copie
Mille merci

 

Vote positif 0 Vote négatif