Feu rouge

[tactic6]

Bonjour le forum
je suis depuis quelques temps les discutions sur les feux tricolore et aimerai adapter un feux rouge à une cellule "N1" en fonction d'une condition qui serait

For i = 15 To 52
  If f1.Cells(i, "J").Value <> "" And _
      f1.Cells(i, "K").Value = "" Then _
         [COLOR="Red"]la cellule N1 devient rouge[/COLOR]
Next i

(avec Dim f1 As Worksheet)

Comment faire ?
Merci pour les éclaircissements et bon dimanche à tous

 

[Hulk]

Re : Feu rouge

Hello,

Essaie avec ce code

Private Sub Worksheet_Change(ByVal Target As Range)

    For i = 15 To 52
        If Cells(i, "J").Value <> "" And Cells(i, "K").Value = "" Then
            [N1].Interior.ColorIndex = 3
        End If
    Next i

End Sub

La variable f1 est inutile dans ce cas.

Cdt, Hulk.

 

[tactic6]

Re : Feu rouge

Merci Hulk
mais j'aimerai aussi que la cellule redevienne normale quand j'ai corrigé mon erreur
c-a-d quand j'ai renseigné la cellule K
Merci

 

[Temjeh]

Re : Feu rouge

Bonjour èà tous

For i = 15 To 52
     If Cells(i, "J").Value <> "" And Cells(i, "K").Value = "" Then
            [N1].Interior.ColorIndex = 3
     Exit Sub
     End If
Next i
 
[N1].Interior.ColorIndex = xlNone

A++

Temjeh

Salut Hulk, je te croyais parti: 2 solutions pour le même prix!

 

[Hulk]

Re : Feu rouge

Re,

Essaie comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)

    For i = 15 To 52
        If Cells(i, "J").Value <> "" And Cells(i, "K").Value = "" Then
            [N1].Interior.ColorIndex = 3
        ElseIf Cells(i, "K").Value <> "" Then
            [N1].Interior.ColorIndex = xlNone
        End If
    Next i

End Sub

Bye.

Slt Temjeh.

 

[tactic6]

Re : Feu rouge

Bonjour à tous
Merci à tous les deux mais j'ai une erreur 1004 a la ligne

[N1].Interior.ColorIndex = xlNone

@+

 

[tactic6]

Re : Feu rouge

Re tout le monde
9a ne marcherait pas avec une MEFC

 

[Temjeh]

Re : Feu rouge

Rebonjour

Il ni a pas d'erreur! xlnone est une cellule vide mais si elle est blanche [N1].Interior.ColorIndex = 2

Voir fichier

A++

Temjeh

Oui en MFC en K15 et faire suivre vers le bas si cll de colK vide: =K15=""
...mettre condition rouge

 

[tactic6]

Re : Feu rouge

Re
tout a fait
mon erreur:
j'ai mis le code dans
Private Sub Worksheet_Change(ByVal Target As Range)

Pffffffffffff
la fatigue me gagne

Merci pour votre aide

Bon dimanche a tous