Supprimer le dernier caractère d'une chaine

Bonsoir à tous,

J'ai une plage de cellules au format texte et je voudrais supprimer le dernier caractère (soit C) en vba de la chaine.

Voici un extrait de la plage de cellules :

164.54C

531.83C

687.56C

776.69C

1907.95C

713.02C

Je ne sais pas comment faire en vba.

Je selectionne le dernier caractère avec Right mais après ???

Si une personne bienveillante veut bien me donner la main, je l'en remercie vivement.

Amicalement

Bonjour,

il faut que tu fasse l'inverse et que tu utilise la fonction left. Comme nombre de caractère utilise le nombre de caractère de ton texte -1 ( len(MonTexte)-1 )

Resultat = Left(Montexte, Len(Montexte) - 1)

bonjour,

dans ce cas particulier tu peux utiliser :

Sub test()
For Each o In Selection
o.Value = Val(o.Value)
Next
End Sub

A+

Bonjour,

Plage à adapter

Sub SupprCaractD()
''Macros par Claude Dubois pour "rimbaut" E-P le 21 Oct 09
Dim Nc, Cel As Range
    For Each Cel In Range("d2:d8")
        Cel.Value = Trim(Cel.Value) 'supprime espaces
        Nc = Len(Cel)               'compte les caractères
        Cel.Value = Left(Cel, Nc - 1)
    Next Cel
End Sub

Amicalement

Claude.

édit: Bonjour galopin01 et Math

Bonsoir,

Merci à tous pour votre aide qui m'a été fort précieuse.

Amicalement