Ajouter un commentaire VBA

**Peerl** · 03/01/2020, 13h53

Bonjour à tous,

je bug

!

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**mat955** · 03/01/2020, 14h19

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**halaster08** · 03/01/2020, 14h21

Bonjour,

•é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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

•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

**mat955** · 03/01/2020, 14h51

Halaster08,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Peerl** · 03/01/2020, 15h23

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 ?

ç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

**halaster08** · 03/01/2020, 16h08

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

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

**boisgontierjacques** · 03/01/2020, 17h40

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Peerl** · 06/01/2020, 07h46

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 ?

**Peerl** · 07/01/2020, 09h23

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

suis-je complètement à coté de la plaque ?

Bon..Merci pour votre patience

**halaster08** · 07/01/2020, 11h56

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Peerl** · 07/01/2020, 15h04

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

edit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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