=STXT(A1;2;NBCAR(A1))
Hello, en fait ça l'extrait, mais ne le supprime pas...Re : Supprimer premier caractère de gauche
Bonsoir,
Soit A1, la cellule pour laquelle il faut enlever le 1er caractère.
Met en B1, la formule
Code:=STXT(A1;2;NBCAR(A1))
=> le 1er caractère sera ains
Sub Essai()
Dim Tbl, n&: Application.ScreenUpdating = 0
n = Cells(Rows.Count, 1).End(3).Row
If n = 1 Then Exit Sub
Dim chn$, i&: n = n - 1: Tbl = [A2].Resize(n)
For i = 1 To n
chn = Tbl(i, 1)
If Len(chn) > 1 Then Tbl(i, 1) = Mid$(Tbl(i, 1), 2)
Next i
[A2].Resize(n) = Tbl
End Sub
Ce qui n'est pas un problème puisque la solution la plus simple fut donnée par CB60Hello, en fait ça l'extrait, mais ne le supprime pas...