supprimer dernier caractère d'une chaine

[daniel]

Bonjour le forum !

Je cherche le moyen (via VBA et non par formule) de supprimer le dernier caractère d'une chaîne de longueur variable dans une cellule, si ce dernier caractère est un point virgule (.

Merci pour votre aide et bonne journée à tous

Daniel

 

[PascalXLD]

Bonjour

Par exemple

Sub supprimer()

If Right(Range('A13'), 1) = ';' Then Range('A13') = Left(Range('A13'), Len(Range('A13')) - 1)

End Sub

Bon courage

 

[daniel]

ça marche au poil
un grand merci pour ton aide Pascal

Daniel