A voir également:
- Copier commentaire excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment copier une vidéo youtube - Guide
- Déplacer colonne excel - Guide
- Commentaire word - Guide
2 réponses
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 ...
- 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 ...
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
cdlt
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()A adapter suivant vos besoins
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
cdlt