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
Configuration: Windows XP Internet Explorer 6.0
Excel XP
vbe 6.3

3 réponses

  1. 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
  2. tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   460
     
    Bonjour,

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