Metre en couleur des cellules contenant un commentaire spécifique

Michou9

XLDnaute Occasionnel
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



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

Pièces jointes

  • CouleurCelluleCommentaire.xlsm
    19.7 KB · Affichages: 13

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Michou, bonjour le forum,

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

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

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 799
Membres
101 818
dernier inscrit
tiftouf5757