Ajout automatique d'infos dans un commentaire

[francis]

Bonjour a tous,

Dans la plage B8-M24 je rentre dans les cellules des montants representant des ventes, et une macro me cree un commentaire comportant la date et heure du jour .

Lorsque la vente est payée je remplis la cellule en jaune. Serait il possible qu'a ce moment là une macro rajoute au commentaire existant la date du jour?
Par avance merci

 

[Bernard]

Bonjour Francis

Pour ajouter du texte au commentaire après mise en jaune de la cellule, utiliser la macro suivante :

Sub Réglement()
Dim Plage As Range
Dim Cell As Range
Dim D As String

Set Plage = Range("B8:M24")
For Each Cell In Plage
If Cell.Interior.ColorIndex = 6 Then
D = Cell.Comment.Text
D = D & " Réglé le " & Date
Cell.Comment.Text Text:=D
End If
Next Cell
End Sub

Aujourdhui, elle rajoute "réglé le 13/10/04".

Cordialement

Bernard

 

[myDearFriend]

Bonsoir Francis, Bernard.


Francis (Bleck), dans ce Lien supprimé, MichelXLD et moi-même t'avions déjà donné réponse pour cette même question... Pour ma part, je t'avais même joint un exemple qui fait exactement ce que tu demandais et redemandes aujourd'hui (enfin je crois) !

Mais comme tu n'as jamais réapparu dans ce fil pour nous dire si ça te convenait ou non....


Didier_mDF

 

[francis]

Merci Bernard et surtout milles excuses a Didier.
J avais effectivement passé ce premier message la veille de mon depart en vacance et je l'avais completement oublié a mon retour.
Avec toute l'aide que tu m'as apporté je ne me serais pas permis de te laisser sans remerciements.
Encore merci a tous les deux
Francis (Bleck)