Code VBA pour afficher une ligne si des cellules ont un commentaire

Bonjour le forum,

Dans un classeur Excel, j'ai un ensemble de cellules qui peuvent contenir des commentaires (H11:I125,H131:I180). Ces commentaires correspondent à une légende qui est ligne 185.

Normalement la ligne 185 est masquée.

Je voudrais que lorsque certaines cellules de (H11:I125,H131:I180) contiennent un commentaire la ligne 185 soit affichée.

J'ai écris le code suivant

If Not Range("H11:I125, H131:I180").Comment Is Nothing Then Rows("185").Hidden = False

mais ça fonctionne pas.

Merci pour votre aide

Bonsoir,

La propriété "comment" ne s'applique qu'à une cellule. Tu peux essayer ce code :

    Dim note As Comment

    For Each note In ActiveSheet.Comments
        If Not Intersect(Range("H11:I125, H131:I180"), note.Parent) Is Nothing Then Rows("185").Hidden = False: Exit For
    Next note

Bonjour,

Une alternative.

Cdlt.

Public Sub XXX()
Dim rngCmts As Range
    On Error Resume Next
    'xlCellTypeComments = -4144
    Set rngCmts = ActiveSheet.Range("H11:I125, H131:I180").SpecialCells(-4144)
    On Error GoTo 0
    If Not rngCmts Is Nothing Then ActiveSheet.Rows(185).Hidden = False
End Sub

Bonjour,

Merci beaucoup pour votre aide.

Très bonne journée.