Discussion :

[jpma75]

Bonjour,

Je ne comprends pas pourquoi le commentaire de la cellule active n'est pas effacé par ce code :

Code :

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

1
2
3
4
5
6
7
If Target.Offset(0, 0).Value = 0 Then
    Target = [i2] & " " & Range("G" & Target.Row)
        Else
            Target = ""
            Target.ClearComments
        End If
        Cancel = True

En vous remerciant par avance pour vos lumières,
Cordialement,
jp

[Philippe Tulliez]

Bonjour,
Si le commentaire n'est pas effacé, c'est que la condition n'est pas remplie.

[jpma75]

Bonjour,

Je ne comprends pas ! Il y a bien un commentaire dans la cellule et si je déroule le code "pas à pas", le curseur passe bien par :

Code :

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

Target.ClearComments

...et il ne se passe rien.

Je me demandais si la syntaxe avec Target était correcte et/ou s'il fallait privilégier un "Delete" plutôt qu'un "Clear" ?!

Cdt

[jpma75]

Bonsoir,

Désolé, j'ai trouvé par tâtonnement...

Les feuilles sont protégées comme ceci :

Code :

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

1
2
3
For Each wSheet In Worksheets
      wSheet.Protect Password:="xxx", userinterfaceonly:=True
Next wSheet

Code :

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

Target = ""

Efface bien la cellule, mais :

Code :

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

Target.ClearComments

a manifestement besoin d'une déprotection temporaire - quid de userinterfaceonly:= True ??

Cordialement,
jp

[jpma75]

Bonsoir,

Tout est là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim UnionRange 'As Range
 
Set UnionRange = Union(Me.Range("Plage_Saisies"), Me.Range("Plage_Matricules"))
 
    If Not Intersect(UnionRange, Target) Is Nothing Then
        Application.OnKey "%{RETURN}", "Inser_Comment"
    Else
        Application.OnKey "%{RETURN}", ""
    End If
 
End Sub

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Target.Count > 1 Then Exit Sub
 
    If Not Intersect(Target, Range("Plage_Saisies")) Is Nothing Then
 
        If Target.Offset(0, 0).Value = 0 Then
            Target = [i2] & " " & Range("G" & Target.Row)
        Else
            Target = ""
            Target.ClearComments
        End If
        Cancel = True
    End If
End Sub

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
44
45
46
47
48
49
50
51
52
53
54
55
 
Option Explicit
Option Private Module
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Inser_Comment()
Dim reponse 'As Byte
Dim Cancel As Byte
Dim Target
Dim rép As Byte
 
    With ActiveCell
 
    If .NoteText = "" And ActiveCell <> 0 Then
        reponse = InputBox("Entrez votre commentaire :")
        If reponse <> "" Then
            ActiveSheet _
                .Unprotect Password:="xxx"
                .AddComment reponse & Chr(10) & "[" & "Note de " & Last_User & " du " & Format(Date, "d mmm yyyy") & "]"  'Format(Now, "hh:mm")
 
            With .Comment.Shape.OLEFormat.Object.Font
                    .Name = "Tverdana"
                    .Size = 10
                    .FontStyle = "Normal"
                    .ColorIndex = 5  'bleu
            End With
'
            With .Comment
                .Visible = True
                .Shape.Top = ActiveCell.Top + 25
                .Shape.Select
                 Selection.AutoSize = True
                 Selection.Interior.ColorIndex = 6 'jaune
 
                 DoEvents
                 Sleep 2500
                .Visible = False
            End With
 
            ActiveSheet.Protect Password:="xxx", userinterfaceonly:=True '
        End If
    Else
        With ActiveCell
            If .NoteText <> "" And ActiveCell <> 0 Then
                rép = MsgBox("Voulez-vous effacer ce commentaire ?", vbYesNo + vbQuestion, "")
 
                If rép = vbNo Then Exit Sub
                ActiveSheet.Unprotect Password:="xxx"
                ActiveCell.ClearComments
                ActiveSheet.Protect Password:="xxx", userinterfaceonly:=True '
            End If
        End With
    End If
'    Cancel = True
    End With
End Sub

Cdt

[jpma75]

Finalement, ça n'a pas l'air d'être lié à la protection de la feuille, ni du classeur :-(