VBA cellule couleur si un mot dans commentaire

[laraviole]

Bonsoir le Forum,
Dans un fichier j'ai une colonne avec des commentaires,
je voudrais savoir si on peut passer automatiquement la cellule commentaire en jaune par exemple si le mot "OK" est dans le commentaire. A savoir qu'il peut être écrit "Ok", "OK", "NOK" ,"Nok" . Merci pour votre aide
Cordialement
Laraviole

 

[BOISGONTIER]

Re : VBA cellule couleur si un mot dans commentaire

Bonsoir,

Dans un module

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

 

[laraviole]

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

 

[BOISGONTIER]

Re : VBA cellule couleur si un mot dans commentaire

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

jb

 

[laraviole]

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

 

[laraviole]

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

 

[BOISGONTIER]

Re : VBA cellule couleur si un mot dans commentaire

Bonjour,

Voir PJ

JB

 

[laraviole]

Re : VBA cellule couleur si un mot dans commentaire

Bonjour,
Sans commentaire, je revoie ma copie
Mille merci