Temps sprint

Bonjour,

J'aimerais trouver une fonction qui me permette d'attribuer des notes en fonction d'un temps, mais je n'y arrive pas..

> 14"2 = 0

14"2 > 12"7 = 1

12"7 > 12"2 = 2

< 12"2 = 3

Quelqu'un pourrait-il m'aider?

Merci d'avance.

Johann

Bonsoir mister_Jo,

une idée, sur le pouce... 8)

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim iSec As Integer
Dim iDix As Integer
'
iSec = Split(Target.Value, Chr(34))(0) * 100
iDix = Split(Target.Value, Chr(34))(1) * 10
'
Application.EnableEvents = False
'
Target.Offset(0, 1) = Note(iSec, iDix)
'
Application.EnableEvents = True
'
End Sub

Public Function Note(iSec As Integer, iDix As Integer)
'
iTemps = iSec + iDix
'
Select Case iTemps
    Case Is < 1220
        Note = 3
    Case 1221 To 1270
        Note = 2
    Case 1271 To 1420
        Note = 1
    Case Else
        Note = 0
End Select
'
End Function

A tester, évidemment!

A+

Salut curulis57,

Merci pour ton aide. C'est super sympa de ta part.

Je t'avoue que ça me parait bien compliqué.

Il ne serait pas plus facile d'utiliser les fonctions SI, ET, OU?

Bonjour,

Tu peux en effet faire avec RECHERCHEV(__;____;__;1) comme ceci :

=RECHERCHEV(D1;$A$1:$B$4;2;1)

Bonjour,

=SI(A1<>"";(A1<=14,7)+(A1<12,7)+(A1<12,2);"")

Cordialement.

Ça fonctionne!! Merci mille fois et bonne journée à tous.

De mon côté il faut vraiment que j'apprenne à utiliser excel

MFerrand a écrit :

Bonjour,

=SI(A1<>"";(A1<=14,7)+(A1<12,7)+(A1<12,2);"")

Cordialement.

Bonjour MFerrand ... je n'avais jamais pensé à cela, pas mal !