Active.cell multiple en sujet de mail

Bonjour à tous,

Je souhaite récupérer les valeurs de plusieurs cellules et qu'elles soient ensuite intégrées dans le sujet du mail, tout ça dans une macro.

Dans une colonne A, j'ai des valeurs:

A

1356

1398

2648

7956

L'opérateur sélectionne les cellules par exemple ici 1356 2648 puis lance la macro .Outlook s'ouvre.

Je souhaite donc que l'objet du mail soit

Suivi n° 1356; 2648

Dans la macro, comment obtenir ce résultat ?

OutlookMail.Subject = "Suivi n°" &

Active.cell ne permet pas de récupérer des valeurs multiples, j'ai essayé range, selection etc.

D'avance merci de votre aide

Bonjour,

à tester:

For Each cc In Selection.Cells
    x = x + 1
    If x = 1 Then
        NumSuivi = cc.Value
    Else
        NumSuivi = NumSuivi & "; " & cc.Value
    End If
Next
OutlookMail.Subject = "Suivi n° " & NumSuivi

Bonjour,

Essayer ce code

Sub objet_mail()
    Dim plage As Range, cell As Range
    Dim objet As String
    Dim numéros As String: numéro = Empty
    Dim séparateur As String: séparateur = Empty

    For Each plage In Selection.Areas
        For Each cell In plage.Cells
            numéros = numéros & séparateur & cell
            séparateur = ","
        Next cell
    Next plage
    objet = "Suivi n° " & numéros

End Sub

Bonjour thev

+1 pour le séparateur, je n'avais jamais pensé à cette astuce !

Merci à vous deux, c'est parfait exactement ce que j'avais besoin