Re:RE : Remplacement lettre
Bonjour laydie, Xand, le forum
peut etre une piste a travers la macro ci-dessous. si j'ai bien tout compris.
Sub Bouton1_QuandClic()
Dim c As Range
For Each c In Range('a3:a' & Range('a65536').End(xlUp).Row)
If Not IsNumeric(Right(c, 1)) Or Not IsNumeric(Mid(c, Len(c) - 1, 1)) Then
c.Offset(0, 1) = Left(c, Len(c) - 2) & '77'
Else
c.Offset(0, 1) = c
End If
Next c
End Sub
salut