VBA If cell "compris entre deux nombres"

BrigitteR

XLDnaute Nouveau
Bonjour,
Dans une macro, j'ai ajouté une partie de code pour colorer les cellules des colonnes A et B en rouge si la valeur de colonne C est comprise entre 7600 et 7899 (et en vert si différent). Cela marche si je mets juste >7600 ou même égal ou inférieur à un chiffre précis mais ça ne marche pas tel que je l'ai écris pour mon besoin "compris entre" ( >7600 et <7899)
Je tords le code dans tous les sens depuis vendredi mais je ne vois pas comment corriger :eek:, o_Osi quelqu'un a une idée je suis preneuse :)

En vous remerciant par avance,
Brigitte

Sub Colore()
Dim i As Integer

For i = 2 To 300

If Cells(i, 3) > 7600 < 7899 Then

Range(Cells(i, 1), Cells(i, 3)).Interior.Color = RGB(255, 128, 128)

Else

Range(Cells(i, 1), Cells(i, 3)).Interior.Color = RGB(128, 255, 128)



End If
Next
End Sub
 

BrigitteR

XLDnaute Nouveau
Bonjour
VB:
If Cells(i, 3) > 7600 < 7899 Then
ne correspond à aucune syntaxe correcte.
Schéma de la syntaxe correcte:
Code:
If expression1 and expression2 then

Bonjour,

Merci pour cette réponse rapide ! Ca y est c'est ok avec le code corrigé ci-dessous ! Mille mercis !! ;):cool:
If Cells(i, 3) < 7600 And Cells(i, 3) < 7899 Then
 

ChTi160

XLDnaute Barbatruc
Bonjour Brigitte
Bonjour le Fil ,le Forum

ça c'est pas très Clair !Lol

VB:
If Cells(i, 3) < 7600 And Cells(i, 3) < 7899 Then 'Soit < 7899

j'aurais mis

VB:
If Cells(i, 3) > 7600 And Cells(i, 3) < 7899 Then
avec >= et <= si besoin d'égalité
Bonne journée
jean marie
 

Discussions similaires

Réponses
5
Affichages
133
Haut Bas