Bonjour,
Avec ce code je mets en couleur certaines cellules de la colonne C de la rangée 5 à 18.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 5 To 18 'rangées
'condition 1
If Range("C" & i) <> "" And Range("C" & i) = Range("B" & i) Then
Range("C" & i).Interior.ColorIndex = 6 'jaune
'condition 2
ElseIf Range("C" & i) <> "" And Range("C" & i) <> Range("B" & i) Then
Range("C" & i).Interior.ColorIndex = 3 'rouge
'Pour annuler la couleur des cellules vidées
ElseIf Range("C" & i) = "" Then
Range("C" & i).Interior.ColorIndex = xlNone
End If
Next i
End Sub
Je souhaiterais étendre cette possibilité à d'autres colonnes, par exemple pour la plage C5 à K18.
Pouvez-vous me préciser les modifications à apporter, hormis la MFC.
Avec mes remerciements anticipés,
Bonne journée.
Avec ce code je mets en couleur certaines cellules de la colonne C de la rangée 5 à 18.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 5 To 18 'rangées
'condition 1
If Range("C" & i) <> "" And Range("C" & i) = Range("B" & i) Then
Range("C" & i).Interior.ColorIndex = 6 'jaune
'condition 2
ElseIf Range("C" & i) <> "" And Range("C" & i) <> Range("B" & i) Then
Range("C" & i).Interior.ColorIndex = 3 'rouge
'Pour annuler la couleur des cellules vidées
ElseIf Range("C" & i) = "" Then
Range("C" & i).Interior.ColorIndex = xlNone
End If
Next i
End Sub
Je souhaiterais étendre cette possibilité à d'autres colonnes, par exemple pour la plage C5 à K18.
Pouvez-vous me préciser les modifications à apporter, hormis la MFC.
Avec mes remerciements anticipés,
Bonne journée.