tester la présence de commentaires dans 1 cellule

[daniel]

Bonjour le Forum,

En VBA, comment tester si une cellule, dans une plage de cellules, apossède ou non un commentaire ? J'aimerais pouvoir afficher uniquement les lignes dont la première cellule, en A, ont un commentaire

Merci de votre aide...

Excellente après midi à toutes et tous

Daniel

 

[Hervé]

Bonjour daniel, le forum

Si j'ai bien compris, la premiere macro va te masquer toutes les lignes, dans la plage a1:a30, qui n'ont pas de commentaires en cellule A1.

Et la deuxieme réafficher toutes les lignes masquées.

Sub masquerligne()
Dim c As Range

For Each c In Range('a1:a30')
    Rows(c.Row).Hidden = c.Comment Is Nothing
Next c
End Sub
'**************************
Sub afficherligne()
Rows.Hidden = False
End Sub

salut

 

[myDearFriend!]

Bonjour daniel, Hervé, le Forum.

Ci-dessous, une autre façon de faire :

Sub AffichCommentaires()
Dim Plage As Range, PlageCom As Range
      'Définir la plage globale de traitement
      Set Plage = Range(Cells(1, 1), Cells(Range('A65536').End(xlUp).Row, 1))
      'Extraire de cette plage les cellules avec commentaires
      Set PlageCom = Plage.SpecialCells(xlCellTypeComments)
      'Masquer toute la plage globale
      Plage.EntireRow.Hidden = True
      'Afficher la plage des cellules commentées uniquement
      PlageCom.EntireRow.Hidden = False
End Sub

Cordialement,

 

[PascalXLD]

Re:tester la présence de commentaires dans 1 cellu

Bonjour

Juste pour préciser que j'ai supprimé le FIL Doublon

Bonne journée

 

[daniel]

Re:tester la présence de commentaires dans 1 cellu

Bonjour Hervé, MDF, le forum

Merci pour votre aide, je m'en vais tester vos solutions de ce pas...
Bonne fin de journée et encore merci

Daniel