Ajout même contenu au début de chaque ligne d'une même cellule

Bonjour,

Je souhaite ajouter un même contenu devant chacune des lignes de la même cellule.

Voici en PJ les différentes étapes que je souhaite appliquer à ma cellule.

Etape 1 : Cellule non transformée

Etape 2 : ajouter des majuscule devant chacune des lignes

Etape 3 : ajouter des tirets devant chacune des lignes

Etape 3 : ajouter des symboles spéciaux devant chacune des lignes

Ces lignes sont dans une seule et même cellule.

Pouvez-vous m'aider ?

Merci d'avance,

Léa

Bonjour,

Sub Lngr()
    Dim ln, i%
    With ActiveSheet
        ln = Split(.Range("A1"), Chr(10))
        Mid(ln(0), 1, 1) = UCase(Mid(ln(0), 1, 1))
        ln(0) = "<p>- " & ln(0)
        For i = 1 To UBound(ln)
            Mid(ln(i), 1, 1) = UCase(Mid(ln(i), 1, 1))
            ln(i) = "<br/>- " & ln(i)
        Next i
        .Range("A1") = Join(ln, Chr(10))
    End With
End Sub

A adapter.

Bonjour,

Merci pour votre réponse mais je ne maitrise pas le code, existe-t-il plutôt une formule ?

Merci d'avance,

Léa

Si tu trouves quelqu'un qui veut s'amuser à en construire une... !

Pas moi, je choisis toujours la voie la plus facile !

J'ai réussi finalement !

Un grand merci pour votre aide,

Très bonne journée,

Léa

Bonjour,

Je reviens vers vous au sujet de cette macro.

Comment l'appliquer à plusieurs cellule et non pas uniquement à la cellule A1 ?

Merci d'avance,

Léa

Bonjour Léa, le forum,

je te propose ce fichier Excel :

Ctrl e ➯ travail effectué !

Alt F11 pour voir le code VBA, puis revenir sur Excel

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany