copier un commentaire dans une cellule sous excel

didiercoca

Posté le 16/06/2005 @ 20:32

bonsoir.....a tous et toutes est il possible selon vous de copier un commentaire dans une case ? j explique: sur une feuille d un document j ai des commentaires qui s affichent lorsque l on passe sur certaines cellules; je voudrais que ces commentaires apparaissent sur une autre feuille du fichier pas comme commentaire mais bien en "apparent" dans une cellule determinee... cela est il possible avec une macro ou alors avec un collage special? merci d avance a vous tous.

galopin01

Posté le 16/06/2005 à 23:37

bonjour, une macro qui donne la routine de base :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Target.Value = Worksheets(1).Range(Target.Address).Comment.Text End Sub

Si on veut avoir les commentaire de Feuil1 dans une feuille cible, il suffit de coller cette macro dans le module de FeuilCible. Ensuite il suffit de déplacer le curseur de cellule en cellule pour voir apparaitre les commentaires de la cellule correspondante en feuille1. On peut aussi adapter cette instruction dans une boucle qui passera en revue toute une zone. Ok ?

sourisdeservice

Posté le 17/06/2005 à 01:31

Grande Maîtresse astucienne

Salut Didier, Il est fort notre Galopin ! Salut à la famille

didiercoca

Posté le 17/06/2005 à 15:36

sourisdeservice a écrit :
Salut Didier, Il est fort notre Galopin ! Salut à la famille

merci bcp galopin... j essaye ca lundi au boulot..... bonjour a toi souris de service... merci pour ma famille egalement a la tienne...

NicoPup

Posté le 08/02/2021 à 13:53

Réponse au même type de problème, mais avec la nouvelle version des commentaires Excel (Office 365), à savoir les Threaded Comments avec possibilité de discussion entre différents utilisateurs.

Mon problème : j'avais de très nombreux commentaires (avec 0 ou 1 réponse) dans l'onglet Sheet1, que je souhaitais copier dans l'onglet Comments mais cette fois comme valeur de la cellule. Les cellules commentées étant espacées latéralement de 3 cellules, je pouvais copier les commentaires et leurs réponses sur des cellules voisines sans chevauchement.
Voici le code que j'ai écrit et qui a fonctionné pour résoudre ce problème :

Sub CopyComments()
    Dim i, j, k As Integer
    Dim MyComment As String
    Dim cell As Range
    For Each cell In Worksheets("Sheet1").Range("A1:DA99")
        i = cell.Row
        j = cell.Column
        If Not cell.CommentThreaded Is Nothing Then
            MyComment = cell.CommentThreaded.Text
            Worksheets("Comments").Cells(i, j) = MyComment
            For k = 1 To cell.CommentThreaded.Replies.Count
                MyComment = cell.CommentThreaded.Replies(k).Text
                Worksheets("Comments").Cells(i, j + k) = MyComment
            Next
        End If
    Next
End Sub

Vous notez que le premier commentaire est directement contenu dans l'objet CommentThreaded, tandis que les suivants (réponses) sont contenus dans le sous-objet CommentThreaded.Replies (array). De plus, Range("A1").CommentThreaded retourne une erreur si la cellule A1 ne possède pas de commentaire (d'où le If Not cell.CommentThreaded Is Nothing).

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

199,99 €

Box Android Nvidia Shield TV Pro 2019 16 Go avec télécommande à 199,99 €
Valable jusqu'au 09 Mars

Amazon fait une promotion sur l'excellente box Android Nvidia Shield TV Pro 2019 16 Go avec sa télécommande à 199,99 €. On trouve ailleurs ce pack à partir de 219 €. Compatible FullHD et 4K, vous pourrez utiliser vos applications Android, jouer et regarder des films et des séries en très haute résolution sur votre TV (compatible Kodi, Molotov, Netflix, YouTube ...). La box permet également de jouer à vos jeux PC diffusés en streaming directement avec une très faible latence. La livraison est gratuite.

> Voir l'offre

774,99 €

Acer Predator (15,6 pouces IPS 144 Hz, Core i5, 8Go RAM, 256 Go, RTX 2060) à 774,99 € (code 25EUROS)
Valable jusqu'au 10 Mars

Cdiscount fait une belle vente flash sur l'ordinateur portable Acer Predator PH315-52-51X2 qui passe à 974,99 € avec le code 25EUROS. Or Acer rembourse actuellement 200 € pour l'achat de ce portable qui vous reviendra à 774,99 € après remboursement.

Ce portable dédié aux joueurs dispose d'un écran 15,6 pouces IPS FHD 1920 x 1080 IPS 144 Hz, d'un processeur Intel Core i5 9300HD, de 8 Go de mémoire RAM, d'un SSD de 256 Go (+ un emplacement SATA libre) et surtout d'une carte graphique Nvidia GeForce RTX 2060 avec 6 Go de mémoire qui vous permettra de profiter de vos jeux de manière fluide en haute résolution. Le tout tourne sous Linux mais vous pouvez facilement installer Windows 10. Une souris vous est également offerte.

> Voir l'offre

799,90 €

Ultrabook HONOR MagicBook Pro 16.1 (Core i5-10210U, 16Go, 512 Go SSD, GeForce 350MX) à 799,90 €
Valable jusqu'au 09 Mars

HONOR fait une promotion sur son ultrabook HONOR MagicBook Pro 16.1 qui passe à 799,90 € au lieu de 999 € grâce un coupon de réduction à activer sur la page du produit. Cet ordinateur portable possède un écran 16.1 pouces Full HD IPS 100% sRGB, un processeur Intel Core i5-10210U à 4 coeurs, une carte graphique GeForce MX350, 16 Go de mémoire DDR4, un SSD 512 Go PCIe NVME, le WiFi5 / Bluetooth 5.0, un lecteur d'empreintes, une webcam, un clavier rétro éclairé, une batterie 56 Wh (jusqu'à 11h d'autonomie et recharge rapide) et ne pèse que 1,7 kg. Il fonctionne sous Windows 10. Une très bonne affaire pour une machine compacte et puissante.

Vous pourrez également choisir un lot de 2 ou 3 cadeaux gratuits parmi une sélection (souris, casque bluetooth, écouteurs, haut-parleur, tracker d'activité, ...). La livraison est également gratuite.

> Voir l'offre