Copier des commentaires

Captitof Messages postés 1 Statut Membre -  
Frenchie83 Messages postés 2254 Statut Membre -
Bonjour à tous,

Je recherche comment copier plusieurs commentaires et les insérer dans une cellule. Est-ce que cette opération est possible ou non ? merci de vos réponse

Didier

2 réponses

  1.
    Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    Ta question se prête à diverses interprétations ! Elle peut signifier
    - Je recherche comment copier plusieurs commentaires et les insérer tous comme commentaire unique d'une même cellule
    - Je recherche comment copier plusieurs commentaires et les insérer tous comme données dans une cellule
    - Je recherche comment, pour plusieurs cellules à la fois, copier leur commentaire et les insérer dans les cellules correspondantes
    ... et peut-être encore autre chose.
    Alors montre-toi plus précis, afin d'obtenir une réponse fiable.
    Mais à tout hasard, pour copier le commentaire d'une cellule dans une autre cellule sans en modifier les données, on fait Copier, on va dans la cellule-cible, et on fait Collage spécial/Commentaires

    Dans l'attente ...
    0
  2. Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonjour
    Un exemple d'application:
    Supposons que l'on veuille récupérer les commentaires des cellules de B2 à Bn
    et afficher le relevé de tous les commentaires dans la cellule D7 
    Sub RecupCommentaires()
        Application.ScreenUpdating = False
        Commentaire = ""
        TotalComment = ""
        DerniereLigne = Range("B2").End(xlDown).Row
        For Each Item In Range("B2:B" & DerniereLigne)
            Item.Select
            If Item.Value = "" Then GoTo Suivant
            Commentaire = Item.NoteText
            TotalComment = TotalComment & Chr(30) & Commentaire
    Suivant:
        Next Item
        Range("D7").Value = TotalComment
    End Sub
    A adapter suivant vos besoins
    cdlt
    0