Probleme avec le "IF"

[The dude]

Salut à tous,

Voila, je vous expose mon probleme...
Je souhaite afficher du texte dans une cellule en fonction d'un nombre. Si ce nombre est inférieur à X alors, mettre Txt1 dans cellule A1, s'il est compris entre X et Y, alors mettre Txt2 et s'il est supérieur à Y, alors mettre Txt3.

Voici mon code :
'total N
If Range('C10') <= 74 Then
Sheets('Résumé').Select
Range('B6') = 'Commentaire A.'
Else
If 74 < Range('C10') < 100 Then
Sheets('Résumé').Select
Range('B6') = 'Commentaire B.'
Else
If Range('C10') >= 100 Then
Sheets('Résumé').Select
Range('B6') = 'Commentaire C.'
Else
End If
End If
End If

Le problème est que les 2 premiers IF passent bien mais si jamais je met 120 dans la cellule C10, c'est toujours le Commentaire B qui s'affiche...
Bref, là je suis largué...

Y aurait-il une bonne âme pour me conseiller ??

Merci d'avance !

 

[NewNewbie]

Essaye
If Range('C10')>74 and Range('C10') < 100 Then
Sheets('Résumé').Select

Ca devrait aller mieux

@+ NewNewbie

 

[JeanMarie]

Re😛robleme avec le \"IF\"

Bonsoir

Regarde du côté de Select Case, ce sera plus simple

Function Bonus(performance, salary)
    Select Case performance
        Case 1
            Bonus = salary * 0.1
        Case 2, 3
            Bonus = salary * 0.09
        Case 4 To 6
            Bonus = salary * 0.07
        Case Is > 8
            Bonus = 100
        Case Else
            Bonus = 0
    End Select
End Function

@+Jean-Marie

Message édité par: JeanMarie, à: 14/03/2005 19:03