Effacer tous les commentaires des cellules vides

Pierrot93

XLDnaute Barbatruc

• 1 Mars 2008

• #2

Re : Effacer tous les commentaires des cellules vides

Bonjour Francis

essaye le code ci dessous :

Code:

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
@+

 

Vote positif 0 Vote négatif

F

Francis

XLDnaute Junior

• 1 Mars 2008

• #3

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)

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 1 Mars 2008

• #4

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 :

Code:

    Cells.SpecialCells(xlCellTypeBlanks).ClearComments

Cordialement,

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Mars 2008

• #5

Re : Effacer tous les commentaires des cellules vides

Re, bonjour Didier

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

 

Vote positif 0 Vote négatif