Convertir STXT(DROITE(cell,x),y,z) en VBA

Bonjour,

Je sollicite une fois de plus l'aide du forum pour répondre à cette question : Comment puis-je traduite la formule suivante en codage VBA ?

=STXT(DROITE(A5;2);1;1)

à noter que la durée sera TOUJOURS comprise entre 1 et 5 (donc pas de variation au niveau du nombre de caractères à relever) mais que le terme "activité" peut varier, d'où ma demande de commencer la lecture par la droite. Exemples :

- Activité du jour (1) -> je cherche le "1"

- Act Semaine/Hebdo (5) -> je cherche le "5"

- Activité du début de semaine (3) -> je cherche le "3"

Merci d'avance !

Bonjour

Ma solution en vba

A+ François

J'ai finalement trouvé ! Si ça peut servir à certains :

Sub essai()

Dim x
Dim durée

x = "Activité (5)"
durée = left(Right(x, 2), 1) 'Renvoi "5"

End Sub

Bien à vous !

Merci fanfan38 pour la solution ! Elle servira à ceux qui utilise une feuille Excel.

Pour ma part, je n'ai pas été précis sur ce point, les données doivent restées dans le codage VBA et non pas sur une feuille Excel. Cette donnée va me servir dans la suite de mon travail.

Bonjour à tous,

STXT >>> MID et DROITE >>> RIGHT donc pour répondre à l'énoncé :

resultat = mid(right(chaine, longueur), depart, longueur)

Cdlt,