Nb.si...

david84 à dit:

Bonsoir,
tu parles de jours mais ils n'apparaissent pas dans ton ex. S'agit-il de dates, de jour de semaine,...?
Le mieux serait que tu joignes un fichier où tu expliques ce que tu attends précisément.
Cordialement

Cliquez pour agrandir...

Jocelyn à dit:

Bonjour le Forum,
Bonjour manucau, david84,

je suppose que dans ta page tu as par exemple en colonne A la date, donc une explication en considérant la date en colonne A et le nombre dheures réalisées en colonne B :

la formule serait :

=SOMME(SI(SOMME.SI(A1:A6;A1:A6;B1:B6)>=10;0,5))

c'est une formule matricielle il faut la valider en appuyant simultanément sur les touches CTRL, Majuscule (au dessus de CTRL) et entrée.

si la formule est bien validée les signes { et } vont apparaitre devant le signe égal et à la fin de la formule

Meilleurs Voeux 2010

Jocelyn

Cliquez pour agrandir...

Jocelyn à dit:

re

Revoila le fichier en laissant les cellule fusionnées, mais attention en employer lundi, mardi,....

ces jour seront repris de semaine en semaine et la formule ne fonctionnera plus si on as dans une même plage 2 lundi car elle ajoutera les valeur des 2 lundi

Jocelyn

Cliquez pour agrandir...

manucau à dit:

ça a l'air de fonctionner avec cette dernière version.
Je vais essayer de l'intégrer à mon classeur et surtout de décortiquer cette formule.
En tous les cas grand merci, je te tiens au courant..

Cliquez pour agrandir...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Calcul du nombre de prime panier applicable par personnel

Dim panier As Integer
Dim ligne As Integer
Dim col As Integer

For col = 5 To 10 Step 2 'Scan colonne par pas de 2

For ligne = 6 To 13 Step 2 'Scan ligne par pas de 2

If Cells(ligne, col).Value + Cells(ligne + 1, col).Value >= 10 Then panier = panier + 1
Cells(17, col).Value = panier

Next ' Fin du scan des lignes

panier = 0 'Compteur panier à 0 pour colonne suivante

Next 'Fin du scan des colonnes

End Sub

Cliquez pour agrandir...