Extraction des lignes de texte d'un commentaire sous Excel

Question

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.

Tenanio · Answer

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

Extraction des lignes de texte d'un commentaire sous Excel

1 réponse

Votre réponse

Discussions similaires