none
Macros excel pour afficher les commentaires RRS feed

  • 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

    mardi 12 juin 2007 12:56

Toutes les réponses

  • 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
    mardi 20 novembre 2007 01:44