effacer les commentaires vieux de plus de 10 jours

[pascal21]

bonjour
dans un tableau j'inseère des commentaires dans les cellules
ces commentaires ne me sont plus utiles lorsque la date du jour est passée
c'est pourquoi, pour alléger le classeur je souhaite effacer les commentaires vieux de plus de 10 jours à la date du jour
la date est en colonne A
la zone des commentaires est ("b1:k1000")
merci pour votre aide

 

[Staple1600]

Re : effacer les commentaires vieux de plus de 10 jours

Bonjour


Et c'est à nous de créer le fichier exemple pour tester nos propositions ?

 

[pascal21]

Re : effacer les commentaires vieux de plus de 10 jours

bonjour staple

ah !! zut pas vu qu'il n'était pas passé
désolé

 

[Staple1600]

Re : effacer les commentaires vieux de plus de 10 jours

Re


Comment sait-on la date d'insertion des commentaires ?

C'est la date en colonne A qui sert de référence ?

Mais un commentaire a pu être modifié après cette date ou pas ?

 

[pascal21]

Re : effacer les commentaires vieux de plus de 10 jours

c'est la date de la colonne A qui sert de ref
et une fois passée la date du jour je n'ai plus besoin du commentaire (en principe) c'est pourquoi je laisse une marge de 10 jours
je rectifierai si besoin plus tard
les commentaires seront créer sur aujourdhui() au plus tôt et 15/20 jours maxi
(c'est un planning de chantier en fait)
je mets les renseignements principaux dans la cellule (client, lieux, chauffeurs, heures rdv) et en commentaire les renseignements moins importants mais necessaires( responsable chantier, son tel, adresse rdv, observations etc....) que je retrouve au survol de la souris
je veux supprimer ces commentaires a cause du poids qu'ils peuvent représenter dans un classeur

 

[Staple1600]

Re : effacer les commentaires vieux de plus de 10 jours

Re


Si j'ai bien compris, essaie d'adapter ceci

Sub test()
Dim c As Range
For Each c In Range("A2:A15")
If c <> "" Then
If c + 10 < Date Then
'ton code d'effacement des commentaires
End If
End If
Next c
End Sub

EDITION: A tester sur une copie de ton fichier

Sub testII()
Dim c As Range
For Each c In Range("A2:A15")
If c <> "" Then
If c + 10 < Date Then
c.Offset(, 1).Resize(3, 6).ClearComments
End If
End If
Next c
End Sub

 

[pascal21]

Re : effacer les commentaires vieux de plus de 10 jours

re
merci staple c'est parfait