commentaire automatique si échéance en approche dans une cellule

[pascal21]

bonjour le forum
j'ai déjà trouvé dans le forum comment afficher un message si une date d'échéance arrive (30 jours) ou est dépassée
je cherche le moyen de réaliser la même chose mais à la place du message traditionnel,j 'aimerais qu'un commentaire du genre ( attention contrôle dans " calcul du temps restant affiché dans la cellule" ou contrôle dépassé) s'insère automatiquement dans la cellule concernée pour la colonne C
est-ce possible
merci

 

[pascal21]

Re : commentaire automatique si échéance en approche dans une cellule

bonjour Jean-Marcel et merci

If CDate(Range("A1")) - 30 < Date Then
    Range("A1").AddComment
    'Range("A1").Comment.Visible = True
    Range("A1").Comment.Text Text:="échéance dans " & Range("a1").Value - Date & " jours"

en titillant un peu le code j'arrive à afficher le nombre de jours restant avant l'échéance
mais ce n'est que pour la cellule a1
maintenant il faudrait que:
_ ça fonctionne sur la colonne C de la ligne 5 à 140
_ ça se mette à jour à l'ouverture du classeur (il faut penser à effacer commentaire à la fermeture sinon erreur)
_ si la cellule colonne C est vide alors exit macro pour cette cellule

Je vois bien le déroulement mais je ne sais pas l'écrire en code
dés qu'il faut utiliser if intercept etc.....
je patauge

 

[pascal21]

Re : commentaire automatique si échéance en approche dans une cellule

If CDate(Range("A1")) - 30 < Date Then
    Range("A1").AddComment
    'Range("A1").Comment.Visible = True
    If Range("a1").Value < Date Then
    Range("A1").Comment.Text Text:="échéance dépassée depuis " & Date - Range("a1").Value & " jours"
    Else
  Range("A1").Comment.Text Text:="échéance dans " & Range("a1").Value - Date & " jours"
    
    End If
    End If

quelques rajouts dont je ne suis pas peu fière vu mon niveau en vba concernant une condition si date dépassée (ce qui ne devrait jamais arriver lol!!!!!) mais on ne sait jamais

 

[pascal21]

Re : commentaire automatique si échéance en approche dans une cellule

re
effacer les commentaires en fermant le classeur
ça je savais faire
merci quand même
ce que je ne sais pas faire, c'est d'adapter le code pour une zone de cellules
pour chaque zone de cellules ("c5:c35) etc.....!!

 

[pascal21]

Re : commentaire automatique si échéance en approche dans une cellule

je relance je suis toujours à la recherche d'une solution

 

[pascal21]

Re : commentaire automatique si échéance en approche dans une cellule

Bonsoir
Je ne comprends pas ,
je croyais avoir répondu à ta question.
Peut tu être plus explicite
Essaye' en modifiant tes dates, entre C5 et C35 ensuite tu fermes le classeur puis tu l'ouvres.

toutes mes excuses j'ai bien ouvert ton classeur1 mais je n'avais pas remarqué la macro qui fonctionnait sur une seule cellule
j'avais juste regardé le module sans jeté un oeil sur workbook
ça fonctionne
merci encore et bonne soirée