Macro tronquage et concatenation

Bonjour,

Je travaille avec des cellules de textes de la forme suivante:

Abcd e

Abcd j

Abcd k

Je cherche à coder une macro dans le but d'agir sur ma sélection active et d'obtenir une cellule de la forme

Abcd e + j + k

Pourriez-vous m'indiquer une piste ?

Merci d'avance

Elo.

Bonjour,

Comme tu n'es pas trop précise sur ce que tu veux faire, je te propose une piste mais il te faut savoir qu'il y a une multitude de façons de faire :

Sub Test()

    Dim Plage As Range
    Dim I As Long
    Dim Texte As String

    With ActiveSheet

        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))

    End With

    Texte = Plage(1).Value

    For I = 2 To Plage.Count

        Texte = Texte & " + " & Split(Plage(I).Value, " ")(1)

    Next I

    MsgBox Texte

End Sub