Metre en couleur des cellules contenant un commentaire spécifique

Michou9 · 16 Octobre 2018

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

Johan · 16 Octobre 2018

Salut,

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

"If c = Commentaire" suffit

Robert · 16 Octobre 2018

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

Robert · 16 Octobre 2018

Re,

Johan à dit:
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 · 16 Octobre 2018

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+

Metre en couleur des cellules contenant un commentaire spécifique

Michou9

XLDnaute Occasionnel

Pièces jointes

Johan

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

Discussions similaires