Afficher / Masquer les commentaires sur une zone

Bonjour

Je viens de trouvez une macro sur le Forum

Macro de Jean Eric

Je l'ai modifier pour l'intégrer dans un module

Celle-ci permet d 'afficher ou de masquer tous les commentaires

Je souhaiterais pouvoir faire la même chose, mais sur une zone précise, Exemple : B5:J9

Est-ce possible

Ou à défaut, seulement sur des colonnes définies ?

Voici la macro :

Sub Commentaire_Afficher_Masquer()
      Dim ind
10    Application.ScreenUpdating = False
20    ind = Application.DisplayCommentIndicator
30    Select Case ind
          Case Is = -1, Is = 0
40            Application.DisplayCommentIndicator = xlCommentAndIndicator
50        Case Else
60            Application.DisplayCommentIndicator = xlCommentIndicatorOnly
70            'Application.DisplayCommentIndicator = xlNoIndicator
80        End Select
End Sub

Merci

Bonsoir,

Il serait judicieux d'envoyer un fichier pour préciser le contexte

Cdlt

Bonsoir

Je joins un fichier exemple avec quelques indications

qui j'espère vous éclairerons sur ce que je souhaite

A+

Bonjour,

A tester.

Tu sélectionnes ta plage et un clic droit affiche les commentaires. Un autre clic les masquent

A peaufiner certainement...

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Cel As Range
    Cancel = True
    Application.ScreenUpdating = False
    Target = Selection
    On Error Resume Next
    For Each Cel In Target
        If Cel.Comment.Visible Then
            Cel.Comment.Visible = False
        Else
            Cel.Comment.Visible = True
        End If
    Next
    On Error GoTo 0
End Sub

Bonjour

Merci, cela correspond bien à ce que je désire

Par contre cela ne fonctionne pas pour la fermeture

Les commentaires restent apparents ?

A+

Re,

A suivre pour les tests

Re,

Cette fois c'est correct, après un autre clic, les commentaires disparaissent.

Il subsiste cependant un problème

Si l'on sort de la zone pour consulter une cellule

Logiquement on sort aussi de la macro

Et donc on se retrouve avec les commentaires qui restent apparents.

Si l'on resélectionne exactement la même zone avec la macro

et que l'on reclique, 2 fois alors on parvient à effacer les commentaires

Mais si on resélectionne pas exactement la même zone

Certains commentaires vont restés apparents

Bien sûr il n'est pas difficile de faire une macro pour masquer tous les commentaires dans toute la feuille

mais cela oblige de passer par une autre macro

Je ne sais pas si cela complique beaucoup la macro

Mais je pensais qu'un "timer" serait plus efficace

On a besoin de consulter les commentaires qu'un court instant

Donc si au bout de quelques secondes ils s’effaçaient

Se serait peut-être plus simple !

A+

Bonjour

Je n'ai pas trouvé le moyen de terminer cette macro, qui fonctionne bien à l'ouverture des commentaires, mais pas à la fermeture.

Mais elle est surtout inexploitable, car elle efface toutes les données contenues dans la sélection dès le 1er clic droit

Il y a aussi un autre handicape très pénalisant, c'est que l'on a plus accès au Menu contextuel !

Si il a quelqu'un qui peut m'aider à corriger ces problèmes

Merci d'avance

Bonjour,

Toujours à suivre...

Option Explicit
Public Sub Commentaires()
' Sélectionner la plage de données pour afficher/masquer les commentaires
' Ctrl + w pour lancer la procédure.
Dim Plg As Range, Cel As Range
    Application.ScreenUpdating = False
    On Error Resume Next
    Set Plg = Intersect(Range("E5:K14"), Selection)
    For Each Cel In Plg
        If Cel.Comment.Visible Then
            Cel.Comment.Visible = False
        Else
            Cel.Comment.Visible = True
        End If
    Next
    On Error GoTo 0
    Set Plg = Nothing
End Sub

Bonjour

Merci pour cette nouvelle macro

Il n'y plus la perte des données

Et on conserve l'accès au menu contextuel

C'est donc quasiment parfait.

Le seul problème, c'est que si on est obliger de consulter une autre cellule, voir une autre feuille

On se retrouve avec les commentaires qui restent ouverts

Mais si ce n'est pas possible de faire autrement ?

Comme avec une fermeture après quelques secondes ?

Je m'en contenterais, car c'est déjà très bien.

Merci

A+

Re,

On reprend:

A l'ouverture du fichier, on masque tous les commentaires

Ctrl + w affiche/masque les commentaires dans la plage sélectionnée

Une nouvelle sélection dans la feuille masque les commentaires.

La désactivation de la feuille masque les commentaires.

Pour le masquage des commentaires après x secondes, je ne vois pas l'intérêt.

Et puis trop de commentaires tuent l'information et quant à la visibilité sur la feuille...

Cdlt