Supprimer dernier caractère de chaque cellule d'une colonne

Bonsoir

Je cherche à supprimer le dernier caractère de chaque cellule d'une colonne.

Exemple: 180,181,181, (avec virgule)

Devient: 180,181,181 (sans virgule )

Amicalement ^-^

Sub SupprimerDernierCaractere()

Dim vData
Dim n                     As Long
vData = Range("A1:A500").Value 'defini ta plage
For n = 1 To UBound(vData, 1)
    If Len(vData(n, 1)) <> 0 Then vData(n, 1) = Left$(vData(n, 1), Len(vData(n, 1)) - 1)
Next n
Range("A1:A500").Value = vData
End Sub

Bonjour,

Autre solution sans VBA.

Avec les données en colonne A, tu places la formule suivante dans une autre colonne :

=GAUCHE(A1;NBCAR(A1)-1)

puis tu tires la formule vers le bas.

Ensuite, tu peux faire un Copier / Collage spécial Valeurs de ces données

A+

Merci!!! Fonctionne a 100% et J'apprends! loll