Couleur Commentaire VBARésolu

Question

Bonjour,

Je cherche &#224; cr&#233;er une macro qui pourrait verifier tout les commentaires de la feuille active, et qui changerais la couleur de la police seulement pour des mots donn&#233;s.

En fait dans mes commentaires il y a des noms, et par exemple apr&#233;s certain nom "Absent", j'aimerais que seul le mot absent se mette en Rouge.

Merci de votre aide.

michelxld · Accepted Answer

bonjour

je ne suis pas sur d'avoir bien compris ta demande , mais la macro ci dessous boucle sur tous les commentaires de la feuille active et colorie en rouge les mots "absents"

 
Sub modificationCommentaires()
Dim Cmnt As Comment
Dim Cible As String
Dim i As Integer, Valeur As Integer


If ActiveSheet.Comments.Count = 0 Then Exit Sub


For Each Cmnt In ActiveSheet.Comments
Cible = Cmnt.Text


For i = 1 To Len(Cible)
Valeur = InStr(i, Cible, "absent", vbTextCompare)
    If Valeur = 0 Then
    Exit For
    Else
    Cmnt.Shape.TextFrame.Characters(Valeur, 6).Font.ColorIndex = 3
    i = Valeur + 7
    End If
Next i


Next Cmnt
End Sub

bonne journ&#233;e
michel

losbek · Answer

Super c'est exactement &#231;a :)

Un grand Merci &#224; toi !!

Couleur Commentaire VBA

2 réponses

Discussions similaires