Ajouter un commentaire VBA

Version imprimable

03/01/2020, 13h53
Peerl

Ajouter un commentaire VBA
Bonjour à tous,

je bug :roll:!

j'ai un code qui fait un transfert de données entre deux feuilles.
le but :
insèrer le commentaire qui :
- affiche l'ancienne valeur de la cellule dans f2 dans le commentaire
- indique la source (f1) de la nouvelle valeur
- ne pas écraser un commentaire existant
cette ligne de code :
est normalement responsable de l'insertion du commentaire lors du transfert.

Code:

f2.Cells(id.Row, .Cells(1, j)).AddComment "valeur de la cellule précédente" & f2.Cells(id.Row, .Cells(1, j)).Value & " source " & f1.Name

Cette ligne :
- Insère le commentaire mais :
- affiche la nouvelle valeur de la cellule dans le commentaire et non pas l'ancienne
- indique la source (f1) de la nouvelle valeur
- écrase un commentaire existant
Merci pour votre aide
03/01/2020, 14h19
mat955

Bonjour,

Si tu ne veux pas écraser le commentaire précédent, utilise :

Code:

MaCellule.Comment.Text Text:=MaCellule.Comment.text & "Commentaire à ajouter..."

Bonjour,

Citation:

•écrase un commentaire existant

Une proposition pour ne écraser le commentaire précédent
(moi j'ai travaillé sur la cellule A2 je te laisse adapter)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Macro1() Dim commentaire_prec As String 'je regarde si il y a déjà un commentaire dans la cellule On Error Resume Next commentaire_prec = Range("A2").Comment.Text On Error GoTo 0 If Len(commentaire_prec) = 0 Then Range("A2").AddComment 'si non alors je le crée Range("A2").Comment.Text Text:=commentaire_prec & Chr(10) & "nouveau commentaire" End Sub
Citation:

•affiche la nouvelle valeur de la cellule dans le commentaire et non pas l'ancienne

ça dépend a quel moment tu fait ta copie, si tu met le commentaire avant la copie tu aura l'ancienne valeur

edit: @mat955
Attention le code que tu propose renvoie une erreur si il n'y a pas de commentaire dans la cellule

edit2: code corrigé, merci. Ca m'apprendra a changé le nom de ma variable en cours de route pour faire plus joli

03/01/2020, 14h51
mat955

Halaster08,

Oui, j'ai donné ça à titre d'exemple. je reconnais qu'une belle gestion d'erreur aurait été plus propre :ccool:

En ce qui concerne ton code, il est beau, mais je pense que tu as loupé un tout petit truc

Code:

If Len(commentaire_prec) = 0 Then Range("A2").AddComment 'si non alors je le crée

J'étais obligé de critiqué pour ne pas perdre la face :aie:
03/01/2020, 15h23
Peerl

Citation:

Envoyé par halaster08

Bonjour,
Une proposition pour ne écraser le commentaire précédent
(moi j'ai travaillé sur la cellule A2 je te laisse adapter)

ta proposition ne s'applique que sur une seule cellule ?

Citation:

ça dépend a quel moment tu fait ta copie, si tu met le commentaire avant la copie tu aura l'ancienne valeur

donc, si je comprends bien,ta macro sera plutôt utiliser seule et non pas intégrer dans le code qui effectue le transfert ?

merci les gars
03/01/2020, 16h08
halaster08

Citation:

Envoyé par Peerl

ta proposition ne s'applique que sur une seule cellule ?

Là pour l'exemple oui, comme que le code que tu as proposé, tu peux sans souci l'intégrer dans une boucle

Citation:

donc, si je comprends bien,ta macro sera plutôt utiliser seule et non pas intégrer dans le code qui effectue le transfert ?

Pas du tout, tu peux très bien l'intégrer à ta copie.
Ce que je dis c'est que tu veux récupérer la valeur de ta cellule avant la copie, tu dois exécuté cette partie du code avant de faire la copie

Bonsoir,

Sur cet exemple, on enregistre en commentaire toutes les valeurs saisies dans les cellules de la colonne 3 avec les dates et heures de modification des cellules.

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 3 And Target.Count = 1 Then    ' colonne 3 seulement
    If Target.NoteText = "" Then Target.AddComment    ' Création commentaire
    Target.Comment.Text Text:=Target.Comment.Text & _
       Format(Target.Value, "# ##0.00 €") & " Modifié par:" & Environ("UserName") & _
         " Le " & Now & vbLf
    Target.Comment.Shape.TextFrame.AutoSize = True
  End If
  Application.EnableEvents = True
End Sub

Boisgontier

06/01/2020, 07h46
Peerl

Citation:

Envoyé par boisgontierjacques

Bonsoir,

Sur cet exemple, on enregistre en commentaire toutes les valeurs saisies dans les cellules de la colonne 3 avec les dates et heures de modification des cellules.

Bonjour, merci pour ton code .
edit : dans ton code est ce que c'est possible de modifier la colonne 3 par une plage ?

Citation:

Envoyé par halaster08

Une proposition pour ne écraser le commentaire précédent
(moi j'ai travaillé sur la cellule A2 je te laisse adapter)

D'après ma compréhension j'ai écris ce code ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 Dim commentaire_prec As String On Error Resume Next commentaire_prec = .comment.Text On Error GoTo 0 If Len(commentaire_prec) = 0 Then f2.Cells(id.Row, .Cells(1, j)).AddComment 'si non alors je le crée f2.Cells(id.Row, .Cells(1, j)).comment.Text Text:=commentaire_prec & Chr(10) & "- source :" & f1.Name End Sub
Quand je l’exécute, j'ai une erreur qui pointe sur " .comment " : membre de méthode ou de données introuvable
à savoir, que je l'ai intégré dans mon code de transfère !!:weird: suis-je complètement à coté de la plaque ?:roll:
Bon..Merci pour votre patience :oops:

Avec un code incomplet c'est très difficile de te répondre.
Impossible de savoir quels sont les valeurs de tes variables ni leur type, visiblement tu dois utiliser des with mais là on ne les vois pas

Le code ci dessous fonctionne, mais je ne sais pas si ça correspond a ce que tu veux:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub aa() Set f1 = ActiveSheet Set f2 = ActiveSheet Set ID = Cells(1, 1) j = 1 Dim commentaire_prec As String With f1 On Error Resume Next commentaire_prec = f2.Cells(ID.Row, .Cells(1, j)).Comment.Text On Error GoTo 0 If Len(commentaire_prec) = 0 Then f2.Cells(ID.Row, .Cells(1, j)).AddComment 'si non alors je le crée f2.Cells(ID.Row, .Cells(1, j)).Comment.Text Text:=commentaire_prec & Chr(10) & "- source :" & f1.Name End With End Sub

Re Bonjour,

Voilà, j'ai trouvé une solution en me basant sur vos réponses et ce code réponds parfaitement au besoin :
Merci à vous tous :ccool:

edit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
If Not id Is Nothing Then
                            tmp = f2.Cells(id.Row, .Cells(1, j))
                             On Error Resume Next
                             commentaire_prec = f2.Cells(id.Row, .Cells(1, j)).Comment.Text
                             On Error GoTo 0
                             .Cells(i, j).Copy Destination:=f2.Cells(id.Row, .Cells(1, j))
 
                             If Len(commentaire_prec) = 0 Then f2.Cells(id.Row, .Cells(1, j)).AddComment 'si non alors je le crée
                             f2.Cells(id.Row, .Cells(1, j)).AddComment.Text Text:="valeur précédente" & tmp & vbLf & "- source :" & f1.Name & " Le " & Now & Chr(10) & commentaire_prec
 
                        End If
                    End If

07/01/2020, 15h27
halaster08

Citation:

Envoyé par Peerl

Tu as raison, voici le fichier test (avec données imaginaire).

Je n'ouvre pas la fichier joints, cf https://www.developpez.net/forums/d8...s-discussions/

Peux-tu simplement copier ton code ?
07/01/2020, 15h42
Peerl

Citation:

Envoyé par halaster08

Peux-tu simplement copier ton code ?

C'est fait, j'ai modifier le message précédent. :ccool: