XL 2010 rechercher valeur dans commentaires

[mathieuV]

Salut a tous!!

Apres moultes recherches sur le net, pas trouve:
je suis novice VBA, et utilise Excel 2010.

Le but est de colorer en Rouge toutes les cellules contenant le texte MV au sein de son commentaire dans une feuille.

j'utilise un Tableau tres simplifie ci Joint pour exemple.


Merci de votre Aide!!!
Mathieu

 

[sousou]

Bonjour

Installe ce petit code et lance la macro deb()


Public Const mot = "MV"

Sub deb()
For Each i In Sheets(1).UsedRange 'pour chaque cellule utilisée dans la feuille 1
On Error Resume Next
commentaire = ""
commentaire = i.Comment.Text 'commentaire= le commentaire de la celule
'Si pas de commentaire erreur, on ne fait rien
On Error GoTo 0

If testcomment(commentaire) = True Then 'test si le commentaire contient le mot recherché
i.Interior.Color = RGB(255, 0, 0) 'si le test est vrai mise en roouge de la cellule
End If
Next
End Sub

Function testcomment(c)
If InStr(1, c, mot) <> 0 Then testcomment = True
End Function

 

[mathieuV]

...le VBA novice arrive pas...:
question 1:

question 2:
quand je Lance la macro deb:
dois auparavant selectionner la Zone ou elle doit chercher, ou va t elle le faire dans toute la feuille?

merci pour la reponse super rapide!!!!!!!!!!!!!!!!!!!!!!
tres cordialement

 

[DoubleZero]

Bonjour, mathieuv, sousou, le Forum,

Une autre suggestion avec le code ci-après (dans un module standard) :

Option Explicit
Sub Cellule_colorer_selon_commentaire()
    Dim c As Range
    For Each c In Cells.SpecialCells(xlCellTypeComments)
        c.Interior.ColorIndex = xlNone
        If c.Comment.Text Like "*MV*" Then c.Interior.ColorIndex = 3
    Next
End Sub

A bientôt

 

[mathieuV]

Good Job, Man!!!
merci!!!!!!!!!