Appel de fonction introuvable

Bonjour,
Comme Pierre, que je salue au passage, je n'ai jamais rencontré de problème avec ce code.
Au passage la variable Rep n'est pas obligatoire et la fonction peut être typée Byte puisque les valeurs renvoyées sont comprises entre 1 et 7

Code:

---

1 2 3

Function BienDormi() As Byte BienDormi = MsgBox(prompt:="Avez-vous bien dormi ?", Buttons:=vbYesNo) End Function

---

mais faut-il passer par une fonction générique dans ce cas précis ?

Code:

---

1 2 3 4

Sub t() Const txt As String = "Avez-vous bien dormi ?" Range("A1").Value = IIf(MsgBox(Prompt:=txt, Buttons:=vbYesNo) = vbYes, "OK", "NOK") End Sub

---

Faut croire que j'ai pas bien dormi

Perso, je la typerais as vbMsgBoxResult

Converti en long, par exemple si utilisé dans une cellule, mais avec l'avantage d'avoir la saisie semi-automatique sur les valeurs énumérées possibles.

😉