Ajouter lettre "E" a une chaine de caractere

Bonjour à tous,

Je ne m'en sort pas avec VBA.. j'ai besoin de vous,

Ma question est la suivante : je souhaite ajouter pour chaque ligne dans la colonne E la lettre "E" après la chaine de caractère existante (Voir P-J)

Ex (ligne 1) => IFI (début) IFIE(apres macro)

Ex (ligne 2) => IFR(début) IFRE(apres macro)

Merci de votre aide précieuse

Bonjour,

S'il n'y a pas beaucoup de lignes à traiter :

Sub Test()
Dim Cel As Range, Plage As Range
Dim DL As Long, Feuille As WorkSheet
Set Feuille = WorkSheets("Feuil1") 'A ADAPTER
DL = Feuille.Range("E" & Rows.Count).End(xlUp).Row
Set Plage = Feuille.Range("E2:E" & DL)
For Each Cel In Plage
    Cel.Value = Cel.Value & "E"
Next Cel
End Sub

Bonjour,

Le plusieurs comporte plusieurs milliers de lignes mais ça fonctionne

Merci !!!

Bonjour,

Autre remarque :

Est-il possible d'ajouter une boucle permettant de ne pas copier "E" s'il y est déjà ? Je m'explique :

Ex (ligne 1) => IFI (début) IFIE(apres macro)

Ex (ligne 2) =>IFRE(début) IFRE(apres macro)

Ex (ligne 3) => IFI (début) IFIE(apres macro)

Ex (ligne 4) => IFRE(début) IFRE(apres macro)

Merci, Cdt

Oui. sans boucle supplémentaire :

 Sub Test()
    Dim Cel As Range, Plage As Range
    Dim DL As Long, Feuille As WorkSheet
    Set Feuille = WorkSheets("Feuil1") 'A ADAPTER
    DL = Feuille.Range("E" & Rows.Count).End(xlUp).Row
    Set Plage = Feuille.Range("E2:E" & DL)
    For Each Cel In Plage
        If Right(Cel.Value, 1) <> "E" Then Cel.Value = Cel.Value & "E"
    Next Cel
    End Sub