Discussion :

[julio65]

Bonjour,

Je souhaite créer une macro qui ajoute des commentaires aux cellules suivant leur valeur. Cependant la macro bug si il y a déjà un commentaire sur une cellule donnée. Je souhaite que si la macro trouve déjà un commentaire, alors elle le supprime et ajoute le nouveau commentaire et passe à la données suivante.

Cependant cela ne fonctionne pas correctement.

Pourriez vous m'aider???

Merci.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Bouton20636_Cliquer()
Dim Wb As Workbook
 
Set Wb = ThisWorkbook
Wb.RemoveDocumentInformation xlRDIComments
 
Dim Rep As Integer
Dim Com
Com = Range("J100").Value
Range("E20:CB30").Select
Dim Rcel As Range
Selection.CurrentRegion.Select
For i = 100 To 111
For Each Rcel In Selection
If Rcel.Value = Range("B" & i).Value Then
 
 
 On Error GoTo FIN
 
        Rcel.AddComment
        Rcel.Comment.Visible = False 'ou True
        Rcel.Comment.Text Text:=Range("J" & i).Value
 
        End If
        Next Rcel
        i = i + 1
 
    Next i
 Exit Sub
 
FIN:
    Rep = MsgBox("un commentaire existe déjà !" & Chr(10) _
    & "Voulez-vous le modifié ?", vbYesNo + vbCritical + vbDefaultButton2, "Tableaux ")
        If Rep = vbYes Then
 
            For Each Rcel In Selection
                '.Comment.Visible = False 'ou True
                Rcel.Comment.Text Text:=Range("J" & i).Value
            Next Rcel
 
        End If
 
End Sub

[vinc_bilb]

Bonjour

Ca devrait le faire (testé)

Code :

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

1
2
3
4
5
6
7
 
' Test si il y a un commentaire, si oui, l'efface
    If Not (Rcel.Comment Is Nothing) Then Rcel.Comment.Delete
 
' Et on le met
            Rcel.AddComment
            Rcel.Comment.Text Text:=Range("J" & i).Value

Bonne journée