Comment copier une note dans une cellule
Bonjour,
Je désire transférer le texte d'une note (plus de 250car) dans une cellule puis le comparer avec le texte "origine" situé dans une autre cellule et afficher la différence.
Pour le transfert de la note dans une cellule, j'utilise le code ci-dessous mai la 1ere ligne de la note n'est pas copiée.
Pouvez-vous me donner la solution.
Merci
JY
Sub test()
Dim C As Range, Txt As String
For Each C In Selection
If Not C.Comment Is Nothing Then
Txt = Application.Substitute(C.Comment.Text, Chr(10), "|", 1)
Txt = Split(Txt, "|")(1)
Sheets(1).Cells(C.Row, C.Column).Value = Txt
End If
Next C
End Sub
Bonjour,
Plutôt que de fournier votre code, déposez un fichier en exemple avec le résultat attendu.
Cdlt
Bonjour,
Essayez ceci:
Cdlt
Merci Arturo83,
Cela fonctionne très bien mais je dispose d'un fichier avec plus de 5000 notes que je dois extraire et contrôler. Pouvons-nous faire une fonction en automatique pour l'extraction des notes en cellules et ensuite faire la recherche des différences.
en pj le fichier d'exemple
Cdlt
5000 notes , ça risque de prendre du temps. Pour vous permettre de connaitre l'avancement du traitement, j'ai mis un compteur en cellule "E2".
Cdlt
Je viens de faire un essai. Cela fonctionne vite mais l'affichage des écarts n'est pas noté
j'ai déplacé une ligne, ça devrait aller
ou sans le comptage (pas de scintillement lors du rafraîchissement)