Filtrer cellules avec un commentaire inséré

[DST]

Bonjour le forum,
existe-t'il une solution rapide pour filtrer les cellules avec ou non un commentaire inséré
Merci de votre aide
DST

 

[Gareth]

Re : Filtrer cellules avec un commentaire inséré

Bonsoir,

Peut etre : F5 / "Cellules" / "Commentaires" / OK

 

[DST]

Re : Filtrer cellules avec un commentaire inséré

Bonjour Gareth,
C'est une solution pour les mettre en surbrillance.
Y a t'il une solution pour les mettre d'une autre couleur (cela permettra des les filtrer)
Merci de votre aide
DST

 

[BOISGONTIER]

Re : Filtrer cellules avec un commentaire inséré

Bonjour,

Voir PJ

Function EstCommentaire(c)
   Application.Volatile
   EstCommentaire = Not c.Comment Is Nothing
End Function

JB

 

[Gareth]

Re : Filtrer cellules avec un commentaire inséré

Bonjour à tous,

Ci-joint des solutions dérivées de ma premiere proposition

 

[STephane]

Re : Filtrer cellules avec un commentaire inséré

DST,

Si tu as Excel 2010, la première solution de Gareth est complétable ainsi et ne nécessite pas de macro.
1°) Filtrer le tableau
2°) Utiliser la jumelle pour ne chercher que les commentaires ou utiliser la touche de raccourci "F5" (puis "Cellules" / "Commentaires")
3°) Utiliser la fonction de tri par couleur du filtre.


Gareth, je fais dériver le premier bloc de ta procédure de tri pour pouvoir l'utiliser sur une tableau plus grand.

sub CommentsSort
Dim x, lEndColumn
If ActiveSheet.Type <> xlWorksheet Then Exit Sub
ActiveSheet.UsedRange 'réinitialisation de la plage utilisée
lEndColumn = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
For Each x In Cells.SpecialCells(xlCellTypeComments)
x.EntireRow.Cells(1, lEndColumn).Value = 1
' x.offset(0, 1) = 1
Next
end sub