Colorer une plage de cellule, si x en D14

Fermé
Tony61 - 20 juil. 2009 à 10:43
qmike Messages postés 1506 Date d'inscription mardi 19 juillet 2005 Statut Membre Dernière intervention 18 juin 2012 - 20 juil. 2009 à 12:46
Bonjour,

Voila j'aimerai créer une macro qui, lorsque j'ai tapé x en D14, la plage de cellules B20:E20 jusqu'à E23 se colore en noir, c'est possible ça ?

Comme je suis novice en la matière j'ai besoin de votre aide !

Merci d'avance

3 réponses

qmike Messages postés 1506 Date d'inscription mardi 19 juillet 2005 Statut Membre Dernière intervention 18 juin 2012 592
20 juil. 2009 à 11:38
bonjour
essais ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([a10], Target) Is Nothing Then
If Target.Value = "x" Then
Range("A1:a5").Select
for Each cell In Selection
cell.Interior.ColorIndex = 36
Next cell
Else
Range("A1:a5").Select
For Each cell In Selection
cell.Interior.ColorIndex = xlNone
Next cell
End If
End If
End Sub
0
tompols Messages postés 1219 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 460
20 juil. 2009 à 11:52
Bonjour,

Sans macro, ça fonctionne très bien avec la mise en forme conditionnelle (formule : =D14="x")
0
qmike Messages postés 1506 Date d'inscription mardi 19 juillet 2005 Statut Membre Dernière intervention 18 juin 2012 592
20 juil. 2009 à 12:46
oui bien sur
0