pb rappel function vba

Bonjour,

J'ai effectué ce

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Calc_Primes() Dim dblCaMoyen As Double Dim Cellule As Range     ThisWorkbook.Names("CA").RefersToRange.Select dblCaMoyen = Evaluate("AVERAGE(CA)") For Each Cellule In Selection   Cells(Cellule.Row, celulle.Column + 1) = _ prime(Cellule.Value, dblCaMoyen)   Next Cellule End Sub

---

qui appelle ce

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function prime(dblCA As Double, dblCaMoyen As Double) As Double Select Case dblCA Case Is < 100000 prime = 0 Case Is < 125000 prime = 500 Case Is < 150000 prime = 1000 Case Else prime = 2000 End Select   If dblCA > dblCaMoyen Then prime = prime + 1000 End If   End Function

---

Mais je suis bloqué car il ne reconnait pas la function prime

Bonjour,

Ou se trouve la fonction prime et la sub Calc_primes ?

le fait qu'il "ne reconnait pas" ce manifeste comment ?

la différence entre une fonction et une procédure est que la fonction renvoi quelque-chose... récupère le ..

Code:

---

msgbox prime(Cellule.Value, dblCaMoyen)

---

Dans le module 1

J'ai la fenêtre espion pour vérifier mais comment s'effectue le lien entre les 2 procédures?

Bonsoir,

A l'exécution j'ai une erreur (Objet Requis) lié à une faute de frappe dans Calc_Primes() ligne 10.

Code:

---

Cells(Cellule.Row, celulle.Column + 1) = _

---

au lieu de

Code:

---

Cells(Cellule.Row, Cellule.Column + 1) = _

---

Merci Blue Monkey

Y-a-t-il un moyen de contrôle pour déterminer les erreurs de frappe?

ajoute en haut de tous tes codes la ligne :

Code:

---

Option Explicit

---

Merci à tous