XL 2019 Concatener Valeurs cellules et comment.text

[carlos]

Bonsoir,
j'aimerais Concatener les valeurs d'une plage ainsi que ses commentaires.
Je n'arrive pas à faire les 2 en meme temps.
Voir piece jointe
Bonne soirée

 

[sylvanu]

Bonsoir Carlos,

If c.Comment.Text <> "" Then

regarde si le commentaire est vide, mais cela suppose que le commentaire existe.
Si la cellule n'a pas de commentaire alors une erreur est générée.
En PJ un essai avec :

Function CONCATEN(Plg As Range) As String
    Dim c As Range, conc$, Commentaire
    Application.Volatile
    For Each c In Plg
        Set Commentaire = Range(c.Address).Comment
        If Not Commentaire Is Nothing Then
            conc = conc & "-" & c.Comment.Text
        End If
        If c <> "" Then conc = conc & "-" & c
    Next c
    CONCATEN = Mid(conc, 2)
End Function

 

[carlos]

Bonjour Sylvanu,
C'est impeccable.
en plus j'ai appris l'interet du MID et du Range(c.Address).
Bonne journée