Discussion :

[ALEX80800]

Bonjour,

J'ai effectué ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

Ou se trouve la fonction prime et la sub Calc_primes ?

[ALEX80800]

Dans le module 1

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

[BlueMonkey]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ALEX80800]

Merci Blue Monkey

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

[SfJ5Rpw8]

ajoute en haut de tous tes codes la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox  prime(Cellule.Value, dblCaMoyen)