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

DL_13

XLDnaute Occasionnel

• 4 Février 2016

• #2

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

Cliquez pour agrandir...

Bonne journée

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 4 Février 2016

• #3

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

Bonjour,

un truc dans le genre ?

VB:

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

 

Dernière édition: 4 Février 2016

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 4 Février 2016

• #4

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 4 Février 2016

• #5

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é :

Code:

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

A bientôt

 

Vote positif 0 Vote négatif