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

natorp

XLDnaute Accro
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
 

natorp

XLDnaute Accro
Merci poilamonnez
J'ai donc mis ce code dans :
VB:
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
 

Pièces jointes

  • Classeur1.xls
    21.5 KB · Affichages: 4
Dernière édition:

natorp

XLDnaute Accro
Un petit Up car je ne comprends pas
VB:
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 :mad:
Merci pour votre aide, cordialement, Gérard
 

Pièces jointes

  • Classeur1.xls
    40 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou