Mettre la police en rouge et en gras si il y a un commentaire dans la cellule

[Myst]

Bonjour le forum
Je cherche a mettre en rouge et en gras la police de caractére dans les cellules qui comportent des commentaires ,j'ai fait un petit fichier pour exemple
merci

 

[DL_13]

Re : Mettre la police en rouge et en gras si il y a un commentaire dans la cellule

Bonjour,P

Peut-être avec ce bout de code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Comment Is Nothing Then
With Target.Font
.Color = vbRed
.Bold = True
End With
End If
End Sub

Bonne journée

 

[gilbert_RGI]

Re : Mettre la police en rouge et en gras si il y a un commentaire dans la cellule

Bonjour,

un truc dans le genre ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.NoteText <> "" Then
    With ActiveCell
    .Font.ColorIndex = 3
    .Font.Bold = True
    End With
    End If
End Sub

 

[Myst]

Re : Mettre la police en rouge et en gras si il y a un commentaire dans la cellule

Bonjour DL_13
merci c'est parfait
Bonne journée

 

[DoubleZero]

Re : Mettre la police en rouge et en gras si il y a un commentaire dans la cellule

Bonjour à toutes et à tous,

Une autre possibilité :

Option Explicit
Sub Commentaires_repérer()
    With Cells.SpecialCells(xlCellTypeComments).Font
        .ColorIndex = 3
        .Bold = True
    End With
End Sub

A bientôt