Créer une fonction Excel

J'occupe mon temps libre (!!! chômage) à découvrir VBA. J'ai développé une macro sur Word qui traduit en lettre les nombres sélectionnés écrits en chiffre.
Je voudrais porter cette macro sur Excel sous la forme d'une fonction et saisir dans une cellule quelque chose du style:
=FonctionNombre(A1) pour obtenir dans la cellule la traduction du nombre saisi en A1.

Je ne sais pas comment structurer ma fonction pour accéder à la valeur à traduire dans la cellule dont l'adresse est indiquée, ni comment afficher le résultat dans la cellule destinataire sans détruire la saisie initiale (=FonctionNombre(A1)) afin que la fonction soit à nouveau exécutée quand A1 est modifié.

Au passage je suis preneur de tous renseignements sur les ouvrages ou les sites intéressants pouvant m'aider dans ma formation car il y a pléthore d’ouvrages impossible à sélectionner facilement.
Merci

rajouter après

function nombre(x as double) as string

Code:

---

application.volatile

---

et utiliser comme une formule intégrée

=nombre(a1)

Citation:

---

Envoyé par Robert G

J'occupe mon temps libre (!!! chômage) à découvrir VBA. J'ai développé une macro sur Word qui traduit en lettre les nombres sélectionnés écrits en chiffre.
Je voudrais porter cette macro sur Excel sous la forme d'une fonction et saisir dans une cellule quelque chose du style:
=FonctionNombre(A1) pour obtenir dans la cellule la traduction du nombre saisi en A1.

Je ne sais pas comment structurer ma fonction pour accéder à la valeur à traduire dans la cellule dont l'adresse est indiquée, ni comment afficher le résultat dans la cellule destinataire sans détruire la saisie initiale (=FonctionNombre(A1)) afin que la fonction soit à nouveau exécutée quand A1 est modifié.

Au passage je suis preneur de tous renseignements sur les ouvrages ou les sites intéressants pouvant m'aider dans ma formation car il y a pléthore d’ouvrages impossible à sélectionner facilement.
Merci

---

Salut
Pas le seul dans le cas :mouarf:
Pour Excel, je trouves que les livres sont chers pour le peu de temps qu'ils servent.

regarder les sujet, et leurs réponses, surtout les fichiers exemples est très enrichissant.

Utilisant peu VBA sous word, je ne sais pas si ta fonction sera directement utilisable. Mais tu verras à l'usage.

Une Function doit être dans un module général
Certains te diront le contraire, mais l'obligation de déclaration des variables, si elle te fait perdre du temps en codage, celui-ci est largement compensé en debuggage.

Code:

---

1 2 3 4 5 6 7 8 9

Function Test_1(Plage_T As String) As Integer Application.Volatile Test_1 = Int(Range(Plage_T)) + 1 End Function Function Test_2(Plage_T As Range) As Integer Application.Volatile Test_2 = Int(Plage_T) + 1 End Function

---

A1 : 1
= test_1("A1") => affiche 2
= Test_2(A1) => affiche 2

Application.Volatile => recalcul de la fonction à chaque calcul de la feuille
(chaque fois que la feuille change si calcul sur automatique)
A+

Merci de votre aide à tous
A+