Effacer tous les commentaires des cellules vides

[Francis]

Bonjour le forum
Je cherche à effacer tous les commentaires des cellules vides dans une feuille Excel.
J’ai pondu ces quelques lignes Mais hélas je suis toujours aussi fâché avec les macros…

For Each cel In ActiveSheet.Comments
If ActiveSheet.cel.Value = "" Then
ActiveSheet.Comments.Delete
End If
Next
End Sub

Si quelqu’un peut me corriger ces quelques lignes
D’avance merci
Francis

 

[Pierrot93]

Re : Effacer tous les commentaires des cellules vides

Bonjour Francis

essaye le code ci dessous :

Sub test()
Dim c As Comment
For Each c In ActiveSheet.Comments
    If c.Parent.Value = "" Then c.Delete
Next c
End Sub

bon après midi
@+

 

[Francis]

Re : Effacer tous les commentaires des cellules vides

Bonjour Pierrot93 et le forum
Merci pour ta réponse rapide.
Je ne connaissais pas l'expression "Parents".Cela marche très bien.
Merci
Francis (du 17)

 

[myDearFriend!]

Re : Effacer tous les commentaires des cellules vides

Bonjour Francis, Pierrot93, le Forum,

Pour info, on peut éviter une boucle en faisant tout simplement comme ça :

    Cells.SpecialCells(xlCellTypeBlanks).ClearComments

Cordialement,

 

[Pierrot93]

Re : Effacer tous les commentaires des cellules vides

Re, bonjour Didier🙂

bravo Didier, bien vu, comme d'hab... bonne fin d'après midi.