macros, caractères après le dernier espace

auban

XLDnaute Nouveau
Bonjour, j'ai une dificulté à réaliser une fonction permettant de me donner tous les caractères contenu après le dernier espace de la cellule (une celulle peut contenir plusieurs espace, je souhaite garder la dernière).
ma formule suivante fonctionne parfait:
=STXT(G6;(NBCAR(G6)-EQUIV(" ";STXT(G6;NBCAR(G6)-LIGNE(INDIRECT("1:"&NBCAR(G6)));1);0))+1;20)

Par contre je n'arrive pas à le transformer en VBA en "FUNCTION", ainsi je pourrais remplacer "G6" par la cellule recherchée.

Avez vous la solution s'il vous plait?
 

Robert

XLDnaute Barbatruc
Repose en paix
Re : macros, caractères après le dernier espace

Bonjour Auban et bienvenu, bonjour le froum,

Peut-être comme ça :
Code:
Public Function DERNESP(Target As Range)
DERNESP = Split(Target, " ")(UBound(Split(Target, " ")))
End Function
 

Discussions similaires

Statistiques des forums

Discussions
312 842
Messages
2 092 745
Membres
105 519
dernier inscrit
faivre-roussel.ivan@orang