Extraction des lignes de texte d'un commentaire sous Excel

Signaler
Messages postés
16
Date d'inscription
jeudi 10 août 2006
Statut
Membre
Dernière intervention
2 avril 2008
-
Messages postés
16
Date d'inscription
jeudi 10 août 2006
Statut
Membre
Dernière intervention
2 avril 2008
-
Bonjour,

J'ai créé un tableau sur lequel apparaissent différents commentaires ayant le même formatage. Lorsque l'on clique sur une cellule contenant un commentaire, les lignes de ce commentaire doivent être importées dans un userform (une ligne correspondant à la valeur d'un contrôle).

Quelqu'un pourrait-il m'indiquer comment extraire chaque ligne de commentaire pour qu'elles soient exploitables ?

Merci d'avance.

Tenanio.

1 réponse

Messages postés
16
Date d'inscription
jeudi 10 août 2006
Statut
Membre
Dernière intervention
2 avril 2008

En fait je crois avoir trouvé la bonne manière d'extraire ces données :

Sub ModifConfirmationPoint()

Dim Tableau() As String
Dim i As Integer

'Le commentaire de la cellule sélectionnée est visible
Selection.Comment.Visible = True

'On découpe la chaine en fonction des renvois à la ligne
'le résultat de la fonction Split est stocké dans un tableau
Tableau = Split(Selection.Comment.Text, Chr(10))

'On boucle sur le tableau pour visualiser le résultat
For i = 0 To UBound(Tableau)
'Les résultats sont inscrits à partir de la cellule H2 de la feuille Temp
Worksheets("Temp").Cells(i + 2, 8).Value = Tableau(i)
Next i

'On rend le commentaire non visible
Selection.Comment.Visible = False

End Sub