Appel d'une Function dans formule SI
Résolu
chaumon
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
chaumon Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
chaumon Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une fonction SI dans la cellulle N2 qui appelle une Function :
SI (J2="OUI";Action();"")
Code de la function
Mon soucis la valeur entrée dans l'inputbox ne s'affiche pas dans la cellule M2...
Merci pour votre aide
J'ai une fonction SI dans la cellulle N2 qui appelle une Function :
SI (J2="OUI";Action();"")
Code de la function
Function Action()
Dim MyValue As String
MyValue = InputBox("Entrer le numéro de l'action !")
ActiveSheet.Cells("M2").Value = MyValue
End Function
Mon soucis la valeur entrée dans l'inputbox ne s'affiche pas dans la cellule M2...
Merci pour votre aide
3 réponses
-
Bonjour,
une fonction personnalisée retourne une valeur et ne peut en aucun cas modifier une cellule.
Tu peux faire :Function Action() As String Dim MyValue As String MyValue = InputBox("Entrer le numéro de l'action !") Action = MyValue End Function
et dans M2 :
=SI(J2="OUI";Action();"")
tu y récupères la saisie.
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait. -
Bonjour
Essaie avec
ActiveSheet.Range("M2").Value = MyValue
ou
ActiveSheet.Cells(13,2).Value = MyValue
Cdlmnt -
Merci via55,
J'ai testé les deux solutions et ça ne fonctionne toujours pas.
Quand la valeur est fausse la formule fonctionne, mais quand la valeur est vraie (appel de la Function), j'ai l'erreur suivante "#VALEUR" dans la cellule contenant la formule.
Cdlmmt.
