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
A voir également:
- Appel d'une Function dans formule SI
- Formule si et - Guide
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Mise en forme conditionnelle excel formule si - Guide
- Appel privé - Guide
3 réponses
Bonjour,
une fonction personnalisée retourne une valeur et ne peut en aucun cas modifier une cellule.
Tu peux faire :
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.
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
Essaie avec
ActiveSheet.Range("M2").Value = MyValue
ou
ActiveSheet.Cells(13,2).Value = MyValue
Cdlmnt
ça marche parfaitement.
Cdt