Macro qui ajoute la date en commentaire automatiquement

chico_126 -  
skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un tableau excel ou j'entre des montants de paiement. J'aimerais que lorsque je met des données dans une cellule de cette plage (E4; P482) que la date de l'entré de donné soit ajouté en commentaire sur cette cellule.

Aussi, est-ce possible d'avoir le même resultat alors je mettrais seulement le remplissage de la cellule en vert sans prendre en compte l'entré de donné?

Merci!

2 réponses

  1.
    skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
     
    Voilà féjà pour la premièe partie. 

    Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:P482")) Is Nothing Then
    If Target.Value = "" Then
        Target.ClearComments
    Else
        Target.ClearComments
        Target.AddComment
        Target.Comment.Visible = False
        Target.Comment.Text Text:="Date : " & Chr(10) & Date
    End If
End If
End Sub


    Et je n'ai pas bien comrpis votre deuxième demande

    *Pensez mettre vos messages en [Résolu] et cliquer sur le + des conseil qui vous ont été utils"
    1
    1. chico_126
       
      Merci ça marche super! :-)

      La deuxième demande a le même principe que le premier, mais au lieu de s'activer avec l'entré de donné dans la cellule, la macro s'activerait avec la coloration en "vert clair" du fond de la cellule sans tenir compte des données.
      0
    2. skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
       
      Et si la cellule change de vert claire => à autre , le commentaire devrait disparaitre ?
      0
  2. skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
     
    Dans en commentaire vous voulez dire un commentaire excel ou

    Exemple :

    Vous inscrivez "A* dans la cellue le text qui apparait : "A - 28.05.14" ?
    0
    1. chico_126
       
      En commentaire excel(le genre de post-it jaune) donc pas dans la cellule
      0
    2. skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
       
      J'ai mis le code en dessous :)
      0
    3. chico_126
       
      merci beaucoup! :)

      et pour le deuxieme cas, où c'est le même principe que le premier, mais au lieu de s'activer avec l'entré de donné dans la cellule, la macro s'activerait avec la coloration en "vert clair"(5296274) du fond de la cellule sans tenir compte des données?
      j'ai essayé de changer le "target.value" par "target.interior.color" mais ça donne rien :(
      0
    4. skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
       
      Je peut vous proposer une sollution bricolage : 

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.Color = 5296274 Then
    Target.ClearComments
    Target.AddComment
    Target.Comment.Visible = False
    Target.Comment.Text "Date : " & Date
Else
End If
End Sub


      En gros si tu selectionne une case vert le commentaire est crée.

      Mais le problème est que si tu sélectionne une plage verte qui est verte depuis un moment alors elle prendra la date du jours actuelle. Cela peut être contourné avec une boite de dialogue qui demande si tu veux actualisé la date, mais encore une fois si tu as beaucoup de cellule verte tu risque d'avoir une boite de dialogue toute les 30 sec, si tu fais pas attention ou tu clic
      0