Macros excel pour afficher les commentaires

Question

Bonjour je suis débutant en développement,

 

Je souhaite créer une macro qui affiche les commentaires des cellules d'une colonne sélectionée. J'ai essayé d'utiliser l'objet comments, mais impossible d'y arriver.

 

Pour sélectionner la colonne en cours voilà le code que j'ai utilisé:

     
 Selection.EntireColumn.Select
    

Elle me sélectionne bien tout la colonne, mais ensuite pour ce qui est de l'affichage des commentaires je n'y arrive pas

Answer 1

Extrait de code

Sub AffichComment()
'
'
Dim ct As Comment


For Each ct In ActiveSheet.Comments 'Pour chaque commentaire de la feuille
    If ct.Parent.Column = Selection.Column Then     ' si ce commentaire est celui d'une cellule
                                                    'dans la même colonne que la selection
        ct.Visible = True ' afficher le commentaire
    End If
Next ct  'passer au commentaire suivant

End Sub

Bonjour,

Ci-dessus, le code qui vous permettra de résoudre votre problème.

Il n'est pas nécessaire de sélectionner toute la colonne. La colonne prise en compte ici, est celle de la cellule sélectionnée.
Si la cellule sélectionnée est dans la colonne 2 lorsque vous lancez la macro, tous les commentaires de la colonne 2 seront affichés.

J'espère que cela vous aura aidé.


Bonne soirée,



PS : pour masquer tous les commentaires, reprenez exactement le code ci-dessus, nommez-le maskComment() et remplacer le true par false dans la ligne ct.visible=true