Sujet Précédent Sujet Suivant

Macro qui ajoute la date en commentaire automatiquement

Fermé
chico_126 - 27 mai 2014 à 12:25
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 - 30 mai 2014 à 12:13
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!

A voir également:

2 réponses

Réponse 1 / 2
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
Modifié par skk201 le 28/05/2014 à 11:45
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
chico_126
28 mai 2014 à 12:18
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
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
28 mai 2014 à 12:32
Et si la cellule change de vert claire => à autre , le commentaire devrait disparaitre ?
0
Réponse 2 / 2
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
28 mai 2014 à 10:57
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
chico_126
28 mai 2014 à 11:46
En commentaire excel(le genre de post-it jaune) donc pas dans la cellule
0
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
28 mai 2014 à 11:57
J'ai mis le code en dessous :)
0
chico_126
Modifié par chico_126 le 29/05/2014 à 11:59
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
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
30 mai 2014 à 12:13
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