Additionner des valeurs en fonction d'un plage donnée

[good57]

Bonjour,

Tout est dans mon fichier. Ca vaut mieux qu'un longue explication

Merci !

 

[phlaurent55]

Re : Additionner des valeurs en fonction d'un plage donnée

Bonjour good,

voir fichier joint

à+
Philippe

 

[good57]

Re : Additionner des valeurs en fonction d'un plage donnée

Merci Philippe.

Tu ne vois pas la possibilité de faire ça sans passer par une macro ?

 

[Paf]

Re : Additionner des valeurs en fonction d'un plage donnée

Bonjour good57, phlaurent55

une solution "semi macro", une fonction personnalisée à copier dans un module standard, à utiliser comme une fonction normale.

Function HeureSupHorsFerie(Plage)
 Dim Nb As Long
 For Each cel In Plage
    If cel.Interior.ColorIndex = -4142 And cel.Value > 8 Then Nb = Nb + cel.Value - 8
 Next
 HeureSupHorsFerie = Nb
End Function

en AL8 (par Ex.): insérer, fonction, personnalisées puis indiquer la plage à traiter (ici G8:AK8)

A+

Nb:

la même pour les heures sup en zones colorées:

Function HeureSupFerie(Plage)
 Dim Nb As Long
 For Each cel In Plage
    If cel.Interior.Color <> -4142 And cel.Value > 8 Then Nb = Nb + cel.Value - 8
 Next
 HeureSupFerie = Nb
End Function

 

[good57]

Re : Additionner des valeurs en fonction d'un plage donnée

Merci Paf !
Je devrais m'en sortir avec ça

Bon WE