Boucle + couleur

bonjour

je voudrais un peu d'aide j'ai cré une boucle mais voila je voudrais que quand je controle la cellule (J,9) je voudrais mettre de la couleur dans la cellule (J,10)

voici la macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim J As Long

  For J = 3 To 250    ' ligne de 3 à 250 a controler    
      With Cells(J, 9)
        If .Value >= 1 And .Value <= 50 Then
          Couleur = 4
          Cells(J, 10).Interior.Color = 4     '-------probleme sa ne marche pas

       ElseIf .Value >= 51 And .Value <= 100 Then
          Couleur = 45      ' Orange
          'Cells(J, 10).Interior.Color = 45

       ElseIf .Value = 0 Then
          Couleur = 1      ' blanc
          'Cells(J, 10).Interior.Color = 5

       Else
          Couleur = 3       ' Rouge
         Cells(J, 10).Interior.Color = 3    ' ---- quand c'est rouge je voudrais aussi mettre la case en rouge et mettre " CLose" dans la case

       End If
        .Font.ColorIndex = Couleur

      End With

  Next J

End Sub

Bonjour,

Essaie comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim J As Long
    For J = 3 To 250 ' ligne de 3 à 250 a controler
        With Cells(J, 9)
            If .Value >= 1 And .Value <= 50 Then
                Couleur = 4
                .Offset(0, 1).Interior.ColorIndex = 4
            ElseIf .Value >= 51 And .Value <= 100 Then
                Couleur = 45 ' Orange
                .Offset(0, 1).Interior.ColorIndex = 45
            ElseIf .Value = 0 Then
                Couleur = 1 ' blanc
                .Offset(0, 1).Interior.ColorIndex = 5
            Else
                Couleur = 3 ' Rouge
                With .Offset(0, 1)
                    .Interior.ColorIndex = 3
                    .Value = "CLOSE"
                End With
            End If
            .Font.ColorIndex = Couleur
        End With
    Next J
End Sub

A+

Bonjour

Merci sa fonctionne tres bien par contre j'ai fais une petite erreur de ma part

je voudrais la cellule de gauche et non celle de droite

j'ai essayé

With .Offset(0, -1)  
                    .Interior.ColorIndex = 3
                    .Value = "CLOSE" 

sa ne marche pas

peut tu encore m'aider

cordialement

Bonjour,

Si, si, en appliquant un décalage négatif, ça fonctionne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim J As Long
    For J = 3 To 250 ' ligne de 3 à 250 a controler
       With Cells(J, 9)
            If .Value >= 1 And .Value <= 50 Then
                Couleur = 4
                .Offset(0, -1).Interior.ColorIndex = 4
            ElseIf .Value >= 51 And .Value <= 100 Then
                Couleur = 45 ' Orange
               .Offset(0, -1).Interior.ColorIndex = 45
            ElseIf .Value = 0 Then
                Couleur = 1 ' blanc
               .Offset(0, -1).Interior.ColorIndex = 5
            Else
                Couleur = 3 ' Rouge
               With .Offset(0, -1)
                    .Interior.ColorIndex = 3
                    .Value = "CLOSE"
                End With
            End If
            .Font.ColorIndex = Couleur
        End With
    Next J
End Sub

A+

bonsoir

excuse moi du retard mais sa fonctionne tres bien

l'autre jours sa fonctionnais pas parce que j'avais des cellule fusionné j'ai trouver la solution

un Grand Merci