XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    On Error GoTo ErrHandler

    ' Ignorer la ligne 1 (en-têtes)
    If Target.Row = 1 Then Exit Sub
  
    ' Ignorer les sélections multiples
    If Target.CountLarge > 1 Then Exit Sub

    ' Cibler la plage C2:CE6 (lignes 2 à 6, colonnes C à CE)
    ' Colonnes : C=3, CE=83
    If Target.Row >= 2 And Target.Row <= 6 Then
        If Target.Column >= 3 And Target.Column <= 83 Then
            Cancel = True
            Application.DisplayCommentIndicator = xlCommentIndicatorOnly

            If Target.Comment Is Nothing Then
                With Target
                    .AddComment ""
                    On Error Resume Next
                    .Comment.Shape.Width = 200
                    .Comment.Shape.Height = 150
                    On Error GoTo ErrHandler
                    .Comment.Visible = True
                End With
            Else
                On Error Resume Next
                Target.Comment.Visible = True
                On Error GoTo ErrHandler
            End If

            Exit Sub
        End If
    End If

    Exit Sub

ErrHandler:
    Resume Next
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Target.CountLarge > 1 Then Exit Sub
    If Not Target.Comment Is Nothing Then
        Target.Comment.Delete
        Cancel = True
    End If
    On Error GoTo 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Fermer tous les commentaires visibles quand vous changez de cellule
    On Error Resume Next
    Dim ws As Worksheet
    Set ws = ActiveSheet
    ws.Comments.Shape.Visible = False
    On Error GoTo 0
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

Private Sub Worksheet_Deactivate()
    ' Fermer les commentaires en quittant la feuille
    On Error Resume Next
    ActiveSheet.Comments.Shape.Visible = False
    On Error GoTo 0
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Antho,
On peut masquer tous les commentaires avec clic sur n'importe quelle cellule avec :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fini
        On Error Resume Next
        For Each cellule In [Tableau58]
            If Not cellule.Comment Is Nothing Then
                cellule.Comment.Visible = False
            End If
        Next cellule
        On Error GoTo 0
Fini:
End Sub

on eput aussi masquer les commentaires que si on clicque dans le tableau avec :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [Tableau58]) Is Nothing Then
        On Error Resume Next
        For Each cellule In [Tableau58]
            If Not cellule.Comment Is Nothing Then
                cellule.Comment.Visible = False
            End If
        Next cellule
        On Error GoTo 0
    End If
Fin:
End Sub

A vous de choisir la macro est répond à votre souci.

Cliquez pour agrandir...