Remplacer caractere + espace

Bonjour à tous ! Comment va le forum ?

je voudrai écrire un programme en vba qui me permet de remplacer le dernier caractère de la cellule C par le premier caractère de la cellule D.

Le remplacement étant fait ajouté un espace juste après l'avant dernier caractère de la cellule C.

Merci d'avance pour votre aide

Salut à tous !

décidément il n ya personne pour m'aider. J'ai essayer avec ce code pour le remplacement des caractères mais il y a un pb.

Sub teste()

Dim i As Integer

Dim j As Integer

lgg = Range("D" & Rows.Count).End(xlUp).Row

lg = Range("C" & Rows.Count).End(xlUp).Row

For i = lgTo C1 Step -1

For j = lgg To D1 Step - 1

Cells(i, "c") = Cells(i, "c") & Left(Cells(j, "D"), 1)

Next j

Next i

End Sub

Bonsoir

J'avais travaillé et j'avais trouvé une formule mais quand j'ai voulu répondre j'ai vu que tu voulais une macro donc poubelle ma solution

Si j'ai compris

Sub test()
Dim J As Long

  For J = 2 To Range("C" & Rows.Count).End(xlUp).Row
    Range("C" & J) = Left(Range("C" & J), 3) & " " & Left(Range("D" & J), 1)
  Next J

End Sub

Salut !

Merci pour le bout de code je vais le testé

Coordialement

Salut Banzai64 !

Ton code marche super bien ! chapeau. Je me disais que dans un tel cas pour affecter dans une boucle la valeur d'une autre

cellule il fallait forcement un second compteur pour parcourir la cellule ou se trouve la valeur à affecté. Ton code marche merci !