Metre en couleur des cellules contenant un commentaire spécifique

[Michou9]

Bonjour

Je n'arrive pas à créer une macro me permettant de mettre en couleur toutes les cellules d'une zone définie qui contiennent un commentaire spécifié

Si il y a quelqu'un qui peut corriger mon erreur

Il semble que l'on ne peut pas utiliser la propriété "Comment" à une variable comme je le fais ??

Merci par avance

Option Explicit

Sub Essai()

Dim c As Range
Dim Commentaire As String

Commentaire = Range("L9").Value

For Each c In ActiveSheet.Range("C4:H25")
If c.Comment.Text = Commentaire Then c.Interior.ColorIndex = 36
Next c
End Sub

 

[Johan]

Salut,

Tu te compliques la vie, VBA c'est tout simple ^^

"If c = Commentaire" suffit

 

[Robert]

Bonjour Michou, bonjour le forum,

Une cellule ne contenant pas de commentaire va générer une erreur. Essaie comme ça :

Sub Essai()
Dim c As Range
Dim Commentaire As String

Commentaire = Range("L9").Value
For Each c In ActiveSheet.Range("C4:H25")
  On Error Resume Next
  If c.Comment.Text = Commentaire Then
  If Err <> 0 Then
  Err.Clear
  GoTo suite
  End If
  c.Interior.ColorIndex = 25 'à adapter
  End If
suite:
Next c
End Sub

 

[Robert]

Re,

Salut,

Tu te compliques la vie, VBA c'est tout simple ^^

"If c = Commentaire" suffit

Heu pas vraiment Johan !... On parle du commentaire pas de la valeur...

 

[Michou9]

Bonjour Johan, Bonjour Robert

Merci Robert pour ton aide
Ta macro fonctionne parfaitement
Et cela me parait même très simple, maintenant que je vois la solution !

A+