Hector a une grande feuille de calcul contenant environ 600 lignes et 70 colonnes. Répartis dans ces 43 000 cellules, il y a environ 200 cellules avec commentaires. Hector souhaite extraire les commentaires et les placer dans des cellules à droite du corps principal du tableau de données. Si un commentaire, par exemple, est attaché à la cellule C43, il aimerait que le texte de ce commentaire se retrouve dans la cellule CC43 et le commentaire d’origine à supprimer.

Vous pourriez penser que vous pourriez utiliser Collage spécial pour effectuer la tâche, mais cela ne fonctionne pas. Si vous copiez les cellules d’origine et que vous utilisez Edition | Collage spécial | Commentaires, puis seuls les commentaires sont collés dans les cellules cibles. Ce sont toujours des commentaires, et non du texte dans les cellules, ce qui va à l’encontre de l’objectif d’Hector.

La seule façon de gérer ce type d’extraction est d’utiliser une macro. Les opérations suivantes, lorsqu’elles sont exécutées sur une sélection de cellules, extraire les commentaires, déplacer le texte du commentaire, puis supprimer le commentaire d’origine.

Sub CommentsToCells()

Dim rCell As Excel.Range     Dim rData As Excel.Range     Dim sComment As String

' Horizontal displacement     Const iColOffset As Integer = 78

' extract comments from selected range     If TypeName(Selection) = "Range" Then         Set rData = Intersect(Selection, ActiveSheet.UsedRange)

For Each rCell In rData.Cells             On Error Resume Next             sComment = rCell.Comment.Text             If Len(sComment) > 0 Then                 rCell.Offset(, iColOffset).Value = sComment                 rCell.Comment.Delete             End If             sComment = ""

On Error GoTo 0         Next     End If End Sub

La macro utilise la constante iColOffset pour spécifier le nombre de cellules à droite du texte d’un commentaire à déplacer. Dans ce cas, le décalage (78) est égal à trois « alphabets » (26 * 3), de sorte que le texte d’un commentaire à l’origine dans la colonne C se retrouvera dans la colonne CC.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (11837) s’applique à Microsoft Excel 2007, 2010, 2013 et 2016.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici: link: / excel-Copying_Comments_to_Cells [Copie des commentaires dans les cellules].