Discussion :

[patmicro]

Bonsoir à tous les lecteurs : Je désire figer tous mes commentaires à droite de ma cellule ce que j'ai bien trouvé sur ce forum à cette adresse :
https://www.developpez.net/forums/d1...d-commentaire/

Cependant tous les commentaires avec la méthode proposée restes visibles.

Ce que je voudrais si il y une possibilité c'est de figer tous les commentaires à droite de la cellules et dans le même alignement de celle ci et masqués et doivent s'afficher dans cette position au survole de la souris.

Par avance je vous remercie pour votre aide.

[anasecu]

Bonsoir patmicro

Ce que je voudrais si il y une possibilité c'est de figer tous les commentaires à droite de la cellules et dans le même alignement de celle ci et masqués et doivent s'afficher dans cette position au survole de la souris.

Comme ceci cela devrait fonctionner :

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 Emplacement_commentaires()
Dim cel As Range    ' cellule traitée
Dim adr As String   ' adresse cellule
    Application.ScreenUpdating = False                  ' masque affichage
    For Each cel In ActiveSheet.UsedRange               ' plage utilisée
        adr = cel.Address                               ' adresse cellule
        If Not cel.Comment Is Nothing Then              ' commentaire présent ?
            cel.Comment.Visible = False                 ' commentaire masqué
            With cel.Comment.Shape                      ' choix commentaire
                .Left = Range(adr).Offset(0, 1).Left    ' le commentaire se place à droite de la cellule
                .Top = Range(adr).Offset(0, 1).Top      ' le commentaire se place sur la même ligne que la cellule
            End With
        End If
    Next
    Application.ScreenUpdating = True                  ' démasque affichage
End Sub

[patmicro]

Bonjour anasecu : Merci pour ta participation : Le masquage de tous les commentaires est opérationnel mais ne sont pas positionnés selon ma demande
La macro présente dans la lien ci dessus positionne bien tous les commentaires à droite de la cellule mais lorsque que l'on masque les commentaire manuellement alors au survole de la souris il ne sont plus correctement positionnés.
Pour info j'utilise cette plage Range("E228:CX229")
Microsoft ne s'est jamais soucié de cette problématique

Note j'ai apprécié ton idée de cahier de consigne qui s'est transformé en un superbe développement.

[anasecu]

Bonjour patmicro

lorsque que l'on masque les commentaire manuellement alors au survole de la souris il ne sont plus correctement positionnés.

Si tu modifies manuellement l'objet n'est-ce pas normal qu'il prenne la nouvelle position ?

j'ai apprécié ton idée

Merci bien de le rappeler car le résultat est toujours très utilisé et apprécié par les personnes concernées.
Nous avions bien travaillé et c'est agréable de savoir que le classeur est très utile.

[patmicro]

Bonjour Anasecu : J'ai finis par positionner manuellement mes 26 commentaires car ta 1er macro positionnait parfaitement les commentaires mais ne les masquait pas. La seconde macro masque les commentaires mais ne les positionnent pas correctement.
J'utilise Office 2021 et je ne souvient pas d'avoir rencontré ce problème avec les anciennes versions 2010 ou 2019 par exemple.
Ceci dit ce n'est pas très grave c'était juste pour une question d'esthétique.
Merci tout de même pour ta participation.

[anasecu]

Bonjour patmicro

J'utilise Office 2021 et je ne souvient pas d'avoir rencontré ce problème avec les anciennes versions

Ce n'est peut-être pas étonnant car les bugs me semblent de plus en plus présents
et la semaine dernière, un classeur quotidien me sortait des erreurs en série,
sauf qu'après fermeture sans sauvegarde et réouverture tout refonctionnait correctement.
J'espère que tu n'en découvriras pas trop car à quoi bon évoluer dans ce cas ?

Bonne continuation et au plaisir.