[VBA]Affectation d'une valeur à une cellule par une fonction

Bonjour!
Je veux affecter une valeur à une cellule de feuille EXCEL par une fonction VBA retournant une autre valeur et recevant en paramètre la cellule en question. La fonction retourne #VALEUR. L'exécution en mode pas-à-pas permet de situer le plantage au niveau de l'instruction d'affectation. Toutefois, aucun message d'erreur n'est affiché. Je soupçonne un problème de transtypage que je ne sais résoudre.
Veuillez m'aider à déboguer cette fonction.

Code:

---

1 2 3 4 5 6 7

Function inputval(zonecell As Range) As Integer   zonecell.Value = 123   inputval = 1   End Function

---

Merci![img][/img]

tu nous décrit une fonction circulaire? c'est pas possible sous excel Non ?

Merci, bbil

Je ne veux pas écrire une fonction récursive, mais une fonction qui affecte une valeur à n'importe quelle cellule passée en paramètre.

Citation:

---

Envoyé par lallougri

Merci, bbil

Je ne veux pas écrire une fonction récursive, mais une fonction qui affecte une valeur à n'importe quelle cellule passée en paramètre.

---

Une fonction retourne une valeur... ? si tu n'as pas de valeur à retourner utilise une procédure...

sinon ta fonction marche mais tu dois mal l'appeller ...:

Code:

---

ret = inPutval(range("A3"))

---

Bonsoir,
Ceci sera certainement mon dernier message sur ce forum.
Tu peux aussi utiliser une constante

Code:

---

1 2 3 4 5 6 7 8

Option Explicit Public Const inputval = 123   Sub test() Cells(1, 1) = inputval Sheets(2).Cells(1, 2) = inputval End Sub

---

jpleroisse

Je ne comprend pas bien comment tu veux utiliser ta fonction (ou procédure, car je suis plutôt d'accord avec bbil).
Est-ce que tu auras un bouton sur ta feuille Excel, qui mettra la valeur que tu veux dans la cellule courante?

Une fonction retourne une valeur... ? si tu n'as pas de valeur à retourner utilise une procédure...


une fonction ne retourne pas nécessairement une valeur

function ditbonjouraumonsieur() as currency
msgbox("bonjour monsieur")
end function

est parfaitement valide en vba ; elle retourne simplement zéro faute d'initialisation
essayons maintenant
[/code]
Function inputval(zonecell As String) As Integer
Workbooks("classeur1").Sheets("feuil1").Range("A1").Value = 123

inputval = 1

End Function

Code:

---

1 2 3 4 5

cela fonctionne moralité il faut passer à zone cell un range valide ou une string

---

Citation:

---

Envoyé par random

Code:

---

1 2 3

cela fonctionne moralité il faut passer à zone cell un range valide ou une string

---

---

tiens ce code foncitonne aussi :

Code:

---

inputVal "C'est vrai que ça marche mais mais cela ne sert à rien d'utiliser des paramétres, si l'on ne s'en sert pas dans la fonction ou d'utiliser une fonciton si l'on à rien à retourner ... "

---

[Edit] ...
je crois qu'on devrai attendre lallougri repasse pour nous dire ce qu'il ve faire...

je n'ai pas dit que cela servait
j'ai simplement dit que vba l'acceptait

quand à l'exemple il était destiné à aider lallougri à comprendre
nous allons le modifier pour te complaire

Code:

---

1 2 3 4 5 6 7 8 9

Function inputval(classeur As String, feuille As String, cellule As String) As Boolean On Error GoTo cko Workbooks(classeur).Sheets(feuille).Range(cellule).Value = 123 inputval = True Exit Function cko: inputval = False End Function

---