Autres MFC sur cellule non-vide en VBA : help !!

[natorp]

Bonjour

Je galère !! je ne trouve pas, c'est certainement très simple, mais bon, je viens vous :
J'aimerais qui si l'on vient à remplir la cellule A8 jusqu'à A11 (non-vide) la couleur de fond passe en jaune et cela en VBA, je suppose dans le "Worksheet_Change(ByVal Target As Range)" de la page concernée.

Merci pour votre attention et votre aide, cordialement, Gérard

 

[poilamonnez]

Bonjour,
A essayer

Sub Macro1()

    Range("A8:A11").FormatConditions.Add Type:=xlExpression, Formula1:="=$A8:$A11<>"""""
    Range("A8:A8").FormatConditions(1).Interior.Color = 65535

End Sub

Cordialement

 

[natorp]

Merci poilamonnez
J'ai donc mis ce code dans :

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A8:A11").FormatConditions.Add Type:=xlExpression, Formula1:="=$A8:$A11<>"""""
    Range("A8:A8").FormatConditions(1).Interior.Color = 65535
End Sub

Cela met bien la cellule A8 en jaune dès que j'y écris quelque chose
mais j'ai une erreur quand j'entre quelque chose en A9 ;
"Erreur définie par l'application ou par l'objet"
Je pense m'être mal exprimé : je souhaite que la cellule A8 se mette en jaune si j'y entre quelque chose, même chose pour A9, A10 et A11
Je mets un fichier d'exemple
Merci à vous, cordialement, Gérard

 

[natorp]

Un petit Up car je ne comprends pas

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(8, 1) <> "" Then Cells(8, 1).Interior.ColorIndex = 36 Else: Cells(8, 1).Interior.ColorIndex = 2
If Cells(9, 1) <> "" Then Cells(9, 1).Interior.ColorIndex = 36 Else: Cells(9, 1).Interior.ColorIndex = 2
If Cells(10, 1) <> "" Then Cells(10, 1).Interior.ColorIndex = 36 Else: Cells(10, 1).Interior.ColorIndex = 2
End Sub

Je mets ça (en feuil2), mais quand j'écris en A11, A12, A13 la cellule se colorie quand même 😡
Merci pour votre aide, cordialement, Gérard