Dim cellule As Range For Each cellule In Range("a1:a64") cellule.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False ' Remplacement des "." en "," cellule.Value = Right(cellule.Text, Len(cellule.Text) - 4) ' supprimer les 4 premiers caractéres cellule.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False ' Supprimer les espaces cellule.NumberFormat = "General" Next cellule
cellule.Value = Right(cellule.text, Len(cellule.text) - 4)
Range("A1:A64").Value = Right(Range("A1").Value, _ Len(Range("A1").Value) - 4) ' supprimer les 4 premiers caractéres
dim cellule as range for each cellule in range("a1:a64") cellule.value = Right(cellule.Value, _ Len(cellule.Value - 4) ' supprimer les 4 premiers caractéres next cellule
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question