Recherche chaine de caractère dans commentaires

Question

J'ai cr&#233;&#233; un plan avec excel. Chaque cellule repr&#233;sente la surface occup&#233;e par un marchand. 
Si celui-ci a pay&#233; sa cotisation pour un mois donn&#233;, le mois est repris en commentaire dans la cellule.
Apr&#232;s quelques mois, j'ai donc en commentaire quelque chose comme ceci :
09/2004
10/2004
11/2004
12/2004


J'aimerai recolorier la cellule si un certain mois figure dans le commentaire. 
Par exemple pour savoir quel marchand a pay&#233; sa cotisation pour 11/2004, et visualiser sur le plan
qui n'a pas encore pay&#233; et qui a d&#233;j&#224; pay&#233;.


Comment puis-je faire pour interroger une partie du commentaire et trouver ceux qui contiennent
la chaine de caract&#232;re que je cherche.
Par exemple : la cellule A2 contient 
en commentaire 
09/2004
10/2004
11/2004
12/2004


Je questionne pour savoir si le mois "11/2004" est contenu dans le commentaire, 
Si oui je met un fond de couleur gris&#233; pour la cellule, 
si non je je met un fond de couleur rouge pour cette cellule. 
Merci de votre aide.

mrdep1978 · Answer

'Si le commentaire de la cellule C3 contient "11/2004", alors le fond est mis en gris, sinon en rouge
    If InStr(1, Range("c3").Comment.Text, "11/2004") > 0 Then
        Range("C3").Comment.Shape.Fill.ForeColor.RGB = RGB(128, 128, 128)
else
        Range("C3").Comment.Shape.Fill.ForeColor.RGB = RGB(255, 0, 0)
    End If

Richard_9 · Answer

Merci,
cela fonctionne tr&#232;s bien.  Je ne connaissais pas cette fonction.
Encore une petite question :
Certaines cellules ne contiennent pas de commentaires, comment tester si la cellule contient un commentaire avant de faire la recherche. ceci pour &#233;viter le plantage.
Merci

mrdep1978 · Answer

'Teste si l'objet Comment existe
If Not Range("c3").Comment Is Nothing Then
       If InStr(1, Range("c3").Comment.Text, "11/2004") > 0 Then
           Range("C3").Comment.Shape.Fill.ForeColor.RGB = RGB(128, 128, 128)
      Else
           Range("C3").Comment.Shape.Fill.ForeColor.RGB = RGB(255, 0, 0)
       End If 
End if

Recherche chaine de caractère dans commentaires

3 réponses

Discussions similaires