fct cherche mais de d à g

[Rico]

Bonjour,

Je cherche à faire une macro qui réalise la fonction CHERCHE mais de la droite vers la gauche, je pensais utiliser quelque chose du genre

toto = ActiveCell.Value
ActiveCell.Value = Right(toto, ActiveCell.Find("\", LookIn:=xlValues))

mais apparemment la fonction

ActiveCell.Find("\", LookIn:=xlValues)

me renvoie la cellule complete et pas la position ou se trouve le charactere "\"

Est-ce que quelqu'un sait comment faire?

Eric

 

[sousou]

Essaie de t'inspirer de ce code si cela correspond à ce que tu cherche.
pas très beau mais....

Sub test()
'Longueur du mot à tester
longueur = Len(ActiveCell)
For i = 1 To longueur
caract = Mid(ActiveCell, i, 1)
'test du caractère'
If caract = "/" Then Exit For
Next
MsgBox longueur - i + 1
End Sub

 

[Rico]

Super!

C'est un peu long quand je traite une liste de 5000 éléments,

Mais ca marche, merci à toi Sousou !