Transformer une partie d'une macro en fonction

Bonjour à vous tous,
Voilà mon problème puisque je me doute que l'intitulé reste très vague :).

J'ai crée une macro me permettant de déterminer le nombre de caractères dans une cellule pour ensuite extraire les chiffres présent dans cette cellule.

Je m'explique par exemple pour une cellule avec comme texte "K100" je détermine le nombre de caractères pour ensuite pouvoir retirer le "100" à l'aide de la fonction =RIGHT puisque le texte commence obligatoirement par une seul lettre.
Cependant cette macro ne me permet de retirer les données que pour une seule cellule , je souhaite donc crée une fonction afin de pouvoir effectuer la même action simplement en tapant par exemple =Nombre(La cellule que je veux analyser).

Je débute en VBA (3 jours) et ne trouve pas de solution malgré de nombreux essais :( .

Est-ce tout simplement possible ? :?

Merci d'avance. ;)

Voilà ma macro:
La partie que je souhaite insérer dans la fonction démarre à """""Extraction des informations pour une cellule à 2 caractère exemple: K1""""""
Pièce jointe 424648

Bonjour,

Pas besoin de vba pour ça:
=DROITE(B1;NBCAR(B1)-1)

mais si vraiment tu veux le faire en vba:

Code:

---

1 2 3

Function Nombre(cel As Range) Nombre= Right(cel.Text, Len(cel.Text) - 1) End Function

---

Bonjour halaster08,

C'est exactement ce que je chercher merci beaucoup!

J'ai voulu chercher compliqué sans même chercher une solution bien plus simple et efficace!

Salut,

Juste 2 remarques si je peux me permettre.
Il est utile de définir le type de variable que renvoie la fonction.
Si l'on veut que cette fonction soit intégrée à celles proposées par Excel, alors il faut la déclarer en "Public".

Citation:

---

Envoyé par MarcelG

Salut,

Juste 2 remarques si je peux me permettre.
Il est utile de définir le type de variable que renvoie la fonction.
Si l'on veut que cette fonction soit intégrée à celles proposées par Excel, alors il faut la déclarer en "Public".

---

Tu peux te le permettre :)
Tout a fait d'accord avec la première remarque, c'est un oubli de ma part.
Par contre pour la seconde, je l'ai déjà lu ailleurs et pourtant je n'ai jamais eu a mettre une fonction en "Public" pour qu'elle soit visible, est-ce lié aux différentes versions d'Excel (2010 pour moi)

Le code avec les modifs:

Code:

---

1 2 3

Public Function Nombre(cel As Range) As String Nombre = Right(cel.Text, Len(cel.Text) - 1) End Function

---

Salut Halaster,

Au temps pour moi.
Ce n'est pas obligatoire de déclarer une fonction en Public. Elle l'est par défaut.

Les fonctions personnelles

Mais pour ma part, je préfère. (Tout comme les .Value et autres propriétés...)

Pour ta fonction, personnellement, je le retournerais en variable numérique (Byte...) en y ajoutant 0 ou en multipliant par 1.