> Tous les forums > Forum Bureautique
 copier un commentaire dans une cellule sous excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
didiercoca
  Posté le 16/06/2005 @ 20:32 
Aller en bas de la page 
Petit astucien
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.
Publicité
galopin01
 Posté le 16/06/2005 à 23:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne

Salut Didier, Il est fort notre Galopin ! Salut à la famille
didiercoca
 Posté le 17/06/2005 à 15:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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).

Page : [1] 
Page 1 sur 1

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

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

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

Sujets relatifs
case à cocher dans cellule Excel 2010
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Commentaire dans excel
De-selectionner des lignes dans un groupe sous Excel
Excel: Faire apparaître dans cellule nom sélection
Excel: valeur cellule impliquée dans calcul ailleurs -> connexions
Suppression dans cellule Excel
Petit triangle dans la cellule Excel
Windows xp copier fichier répertoire dans excel 2007
insérer commentaire dans cellules d'excel
Plus de sujets relatifs à copier un commentaire dans une cellule sous excel
 > Tous les forums > Forum Bureautique