Report des commentaires dans une colonne supplémentaire

Question

Je requière votre aide car je bloque. Je ne suis absolument pas calé en VBA. J'ai une colonne Q qui contient des données, et chaque case a également un commentaire (triangle rouge dans l'angle de la case) Je souhaite parcourir ma colonne Q et retranscrire dans une colonne R les commentaires mais en texte dans la case et non en commentaire cette fois-ci. Pour comprendre l'enjeux, j'ai 1800 lignes et aucune envie de les faire une par une héhé. Voici mon code actuel : Dim Col As String Range("A1:B2").Columns("Q").Select Sub ExtraitCommentaire() For Each c In Range("Q1", &#91;Q2000&#93;.End(xlUp)) c.Offset(0, 1) = c.Comment.Text Next c End Sub Merci par avance pour votre, aide, je m'excuse si le problème est simple à traiter comme comme indiqué ci-dessus, je ne suis vraiment pas calé en VBA ! :)...

3GB · Accepted Answer

Voici un essai avec ce code : Sub ExtraitCommentaire() with activesheet dl = .cells(2000, "Q").end(xlup).row &nbsp;&nbsp;with .range("Q1:Q" & dl) &nbsp;&nbsp;&nbsp;&nbsp;t = .value &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for i = 1 to ubound(t) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if not .cells(i, 1).comment is nothing then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;t(i, 1) = .cells(i, 1).comment.text &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;t(i, 1) = "" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next i &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.offset(,1).value = t end with end with End Sub Cdlt...