copie du derniere carractere

[fifisoft95]

boujour a tous

voila j'ai une cellule qui peux comporte plusieur lettre des fois espacé et d'autre fois non
exemple :
A B C
ou
ABC

je voudrais en VBA copier la derniere lettre de la cellule mais attention il se pourrait qu'il y est un espace a la fin

donc je voudrais bien copier vraiment la derniere lettre meme si il y a un espace ou non a la fin de la chaine de carractere

Merci d'avance pour votre aide

Philippe

 

[pierrejean]

bonjour Phillipe

voici une fonction personnalisée dont tu peux t'inspirer [file name=fifi_20060523180500.zip size=6168]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fifi_20060523180500.zip[/file]

 

[Gérard DEZAMIS]

Bonjour Fifisoft

Un essai avec les données en colonne A de 1 à 20 et le résultat en B

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 20
If Right(Cells(i, 1), 1) = ' ' Then
Cells(i, 2).Value = Right(Cells(i, 1), 2)
Else
Cells(i, 2).Value = Right(Cells(i, 1), 1)
End If
Next i
End Sub

 

[Gérard DEZAMIS]

Bonjour Philippe et Pierre-Jean

3 minutes d'avance et une meilleure solution = y'a pas photo ... :whistle:

Je profite du passage du train du savoir pour sauter en marche :
P-J tu 'fabrique ta fonction avec Trim quii veut dire ......

Function dercaractere(cellule As Range)
dercaractere = Right(Trim(cellule), 1)
End Function

Merci de l'explication

@+GD

 

[pierrejean]

bonjour Phillipe Gerard le forum

la fonction Trim supprime les espaces devant et derriere une chaine
il existe aussi les fonctions Ltrim et Rtrim qui suppriment les espaces respectivement a gauche et a droite d'une chaine de caractere
Ltrim est tres utile avant un classement sur des données entrées manuellement (si un espace s'est glissé devant une donnée elle sera classée sur l'espace)

 

[Gérard DEZAMIS]

Merci PierreJean

J'avais les bons numéros et maintenant j'ai le complémentaire ....

Merci du petit cours

@+GD

 

[fifisoft95]

merci beaucoup pour vos reponse ca fonctionne parfaitement

Philippe