Argument de fonction ;)

[Jam]

Salut à tous,

J'ai une fonction qui renvoi une valeur d'après une requête dans une base MySQL.
J'aimerai juste qu'en cas d'erreur (base non connectée) le résultat déjà existant de la cellule soit passé en argument à la fonction afin de pouvoir être transmis à nouveau en cas d'erreur...

Exemple:
en A1 j'ai ma fonction =GetHeuresProd(arg1; arg2; arg3) qui me donne le résultat 1200. Lors d'un second appel, s'il y a une erreur j'aimerai retourner 1200 et pas rien ou #N/A ou que sais-je encore !

Merci d'avance

 

[Laurent L]

Bonjour,

VBA ne permet pas de récupérer dans une fonction la valeur actuelle de la cellule appelante. Pour résoudre ce problème, tu peux utiliser une référence circulaire :

1) Dans le menu Outils => Options => Calculs, coche 'Itération' et valide

2) Si tu veux obtenir le résultat dans la cellule A1 :

=SI(ESTNA(GetHeuresProd(arg1;arg2;arg3);A1;GetHeuresProd(arg1;arg2;arg3))

Si tu ne veux pas passer par une référence circulaire, tu peux essayer la fonction RAPPEL téléchargeable ici : Ce lien n'existe plus.

=SI(ESTNA(GetHeuresProd(arg1;arg2;arg3));RAPPEL();GetHeuresProd(arg1;arg2;arg3))

Cordialement,

Laurent

 

[Jam]

Salut Maître Laurent :woohoo:

Merci pour l'info. J'ai déjà téléchargé tes fonctions mais je vais de ce pas tester ta fonction RAPPEL().

Cordialement