Coloriage d'une cellule par apport

Bonsoir à Tous,

je voudrai pouvoir colorier une case suivant les résultats de plusieurs cellule

je donne mon exemple si dessous car je pense mal expliquer

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Range("A4")

Case ""

Range("A2").Interior.Color = RGB(255, 255, 0)

Range("A2").Font.Color = RGB(255, 0, 0)

noEvents = False

Case Is <> ""

Range("A2").Interior.Color = RGB(206, 206, 206)

Range("A2").Font.Color = RGB(206, 206, 206)

noEvents = False

Case Else

Exit Sub

End Select

End Sub

je voudrai que cela fonction avec les cellules A5,A6,A7...A10

si une de ces cellules n'est pas vide alors A2 est coloriée

merci d'avance

Bonsoir

Et avec une Mise En Forme Conditionnelle ?

Bonsoir,

je sais faire mais

non j'ai besoin d'une macro

mais merci quand même

cordialement

Bonsoir

Voilà une macro

Private Sub Worksheet_Change(ByVal Target As Range)
  If Application.CountA(Range("A5:A10")) = 0 Then
    Range("A2").Interior.Color = RGB(255, 255, 0)
    Range("A2").Font.Color = RGB(255, 0, 0)
  Else
    Range("A2").Interior.Color = RGB(206, 206, 206)
    Range("A2").Font.Color = RGB(206, 206, 206)
  End If
End Sub

bonsoir

merci beaucoup je test demain

Cordialement

bonjour Banzai64,

ok merci pour la macro elle fonctionne très bien et c'est ce que je voulais

merci

cordialement

Bonjour Banzai64,

la macro fonctionne très bien et c'est ce que je voulais

merci

Cordialement