Utilisation des fonctions
frederic R
-
random Messages postés 1612 Statut Membre -
random Messages postés 1612 Statut Membre -
Bonjour a tous.
g la fonction suivante:
Function spr(plage As Range, coul As Integer) As Double
Dim par As Range
Dim dep As Integer
Dim mult As Double
Dim spro As Double
Dim ss As Double
dep = plage.Column
For Each par In plage
If par.Column = dep Then
mult = par.Value
Else
If par.Interior.ColorIndex = coul Then
spro = spro + (mult * par.Value)
ss = ss + par.Value
End If
End If
Next
spr = spro / ss
End Function
Function couleur(a As Range) As Integer
couleur = a.Interior.ColorIndex
End Function
mais est ce que en début et fin de procédure je dois mettre un sub titre et un end sub ??
g la fonction suivante:
Function spr(plage As Range, coul As Integer) As Double
Dim par As Range
Dim dep As Integer
Dim mult As Double
Dim spro As Double
Dim ss As Double
dep = plage.Column
For Each par In plage
If par.Column = dep Then
mult = par.Value
Else
If par.Interior.ColorIndex = coul Then
spro = spro + (mult * par.Value)
ss = ss + par.Value
End If
End If
Next
spr = spro / ss
End Function
Function couleur(a As Range) As Integer
couleur = a.Interior.ColorIndex
End Function
mais est ce que en début et fin de procédure je dois mettre un sub titre et un end sub ??
4 réponses
-
non tu as ici deux fonctions a coller aprés avoir
fait altf11 et insertion module -
ok mais quand je me mets sur une cellule et que je rentre
=sqr(I286:J289;J286)
ça ma retourne "valeur" dans la cellule -
salut,
deuxième argument doit être un entier, pas une adresse de cellule.
-
la fonction est spr et non sqr
il faut entrer=spr(I286:J289;couleur(J286) )
