XL 2010 Problème avec opérateur (Résolu)

[Cougar]

Bonsoir,

J'essai de mettre une couleur dans une cellule en fonction de sa valeur mais malheureusement la valeur n'est pas lue en fonction des opérateurs

If 3 >= ActiveCell.Offset(0, 4).Value < 4 Then
Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
GoTo Fin
End If

If 4 >= ActiveCell.Offset(0, 4).Value < 5 Then
Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
With Selection.Font
.Color = xlThemeColorLight1
.TintAndShade = 0
End With
GoTo Fin
End If

J'ai toujours la couleur rouge quelque soit la valeur de la cellule dans la colonne E.

Comment corriger.

Merci

 

[Si...]

Re : Problème avec opérateur

salut

tes tests ne sont pas bons, il faut contrôler les 2 conditions à chaque fois :

If 3 >= ActiveCell(1, 5) And ActiveCell(1, 5) < 4 Then
   With Range(ActiveCell, ActiveCell(1,6)).Font
    .Color = -16776961
    .TintAndShade = 0
  End With
  GoTo Fin
 End If

 If 4 >= ActiveCell(1, 5) < 5 And ActiveCell(1, 5) Then
    Range(ActiveCell, ActiveCell(1, 6)).Select

 

[job75]

Re : Problème avec opérateur

Bonsoir Cougar,

VBA n'utilise pas la syntaxe que vous utilisiez (mal d'ailleurs) au lycée.

Au lieu de :

If 3 >= ActiveCell.Offset(0, 4).Value < 4 Then

vous voulez sans doute dire :

If ActiveCell.Offset(0, 4) >= 3 And ActiveCell.Offset(0, 4) < 4 Then

Punition du même acabit pour l'autre test.

Bonne soirée chez vous.

Edit : bonne nuit Si...

 

[Cougar]

Re : Problème avec opérateur

Bonsoir le fil,

Merci.