Colorer une plage de cellule, si x en D14

Tony61 -  
qmike Messages postés 1599 Date d'inscription   Statut Membre Dernière intervention   -
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 1599 Date d'inscription   Statut Membre Dernière intervention   594
 
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 1273 Date d'inscription   Statut Contributeur Dernière intervention   435
 
Bonjour,

Sans macro, ça fonctionne très bien avec la mise en forme conditionnelle (formule : =D14="x")
0
qmike Messages postés 1599 Date d'inscription   Statut Membre Dernière intervention   594
 
oui bien sur
0