Discussion :

[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

[random]

rajouter après

function nombre(x as double) as string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.volatile

et utiliser comme une formule intégrée

=nombre(a1)

[Gorfael]

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Robert G]

Merci de votre aide à tous
A+