pb récupérer les lignes des commentaires d'une cellule avec Split

[ludo27]

[RESOLU]pb récupérer les lignes des commentaires d'une cellule avec Split

Bonjour,
j'essaie de récupérer les lignes des notes d'une cellule.

Dim stTableau() As String
stTableau = Split(rg.Comment.Text, vbCrLf)

rg est un Range.

Il y a du texte avec des sauts de ligne dans rg.Comment.Text. En tout j'ai 3 lignes.

Je récupère tout le contenu du commentaire (les 3 lignes) dans stTableau(0). Alors que je m'attends à obtenir la première ligne dans stTableau(0), la 2nde ligne dans stTableau(1) et la 3ème ligne dans stTableau(2).


Si je mets des / en fin de chaque ligne et que j'utilise

stTableau = Split(rg.Comment.Text, "/")

alors là ça marche bien.

Si quelqu'un a une idée ... 😉

Merci.

🙂

 

[tototiti2008]

Re : pb récupérer les lignes des commentaires d'une cellule avec Split

Bonjour ludo27,

pas loin...


stTableau = Split(rg.Comment.Text, vbLf)


vbCrLf représente Chr(10) & Chr(13)
vbCr représente Chr(13)
vbLf représente Chr(10)

enfin je crois...

 

[Staple1600]

Re : pb récupérer les lignes des commentaires d'une cellule avec Split

Bonsoir

Sub test_ok()
Dim stTableau() As String
Set rg = Range("A1")
stTableau = Split(rg.Comment.Text, Chr(10))
m = stTableau(0) & Chr(13)
m = m & stTableau(1) & Chr(13)
m = m & stTableau(2)
MsgBox m
End Sub

EDITION :bonsoir tototiti2008. Désolé pour la collision

et merci je me souvenais plus

chr(10) = vbLf

 

[ludo27]

[RESOLU]Re : pb récupérer les lignes des commentaires d'une cellule avec Split

Super, VbLf marche bien.
Désolé de vous avoir dérangé pour ça.

Encore merci.😉