Option Explicit
Function Evol(Plage) 'Plage correspondant aux cellules dans ton tableau
'...Lorsque l'on met Evol(N10:P10)
'Déclaration des variables
Dim x1#, x2#
'Permet de recalculer la fonction en automatique
Application.Volatile
'Si la 1ère ou la 2ème cellule de ta plage est rien (""), alors Evol = "", puis on sort de la Fonction
If Plage(1) = "" Or Plage(2) = "" Then Evol = "": Exit Function
'Si ta cellule 3 est remplie alors x1 prend la valeur de cellule2 et x2 la valeur de cellule3
'Sinon, x1 prend la valeur de cellule1 et x2 la valeur de cellule2
If Plage(3) <> "" Then x1 = Plage(2): x2 = Plage(3) Else x1 = Plage(1): x2 = Plage(2)
'Selon le cas de x1, si c'est inf à 0.25 alors x1 = 0.25 etc...
Select Case x1
Case Is <= 0.25: x1 = 0.25
Case Is <= 0.5: x1 = 0.5
Case Is <= 0.75: x1 = 0.75
Case Else: x1 = 1
End Select
'Selon le cas de x2, si c'est inf à 0.25 alors x2 = 0.25 etc...
Select Case x2
Case Is <= 0.25: x2 = 0.25
Case Is <= 0.5: x2 = 0.5
Case Is <= 0.75: x2 = 0.75
Case Else: x2 = 1
End Select
'Ensuite on compare x1 et x2, comme une fonction Si de Excel
'Si x1 > x2 alors la fonction prend la valeur î, etc...
Select Case x1
Case Is > x2: Evol = "î"
Case Is = x2: Evol = "è"
Case Else: Evol = "ì"
End Select
End Function