Sur le choix d'une cellule en activer une autre [Résolu]

[Claude_B]

Bonjour,
Je voudrais selon ce qui a été choisi dans la cellule AS17 faire changer de couleur une autre cellule. Ex. je voudrais que la cellule AS6 change de couleur selon les choix que j'ai écris dans la cellule AS17.

Merci d'avance

Code :

1
2
3
4
5
6
7
8
IF Target.Address = "$AS$17" And Target.Count = 1 Then
  Select Case Target.Value
    Case "NA"
      Target.Interior.ColorIndex = 2
    Case "DLC"
      Target.Interior.ColorIndex = 5
    Case "ZIC-4"
      Target.Interior.ColorIndex = 44

[Qwazerty]

Salut

Plutot que de passer pas le code, regarde du coté des Mises en forme conditionnelles, tu trouveras plein d'exemple sur ce même forum et sur le net.
Tu n'as visiblement que 3 cas donc toutes les versions d'Excel feront l'affaire. Si tu avais plus de 3 cas et une version d'excel inférieur à 2007, il faudrait en effet passer par du code.

Si toute fois tu avais du mal à la mettre en place, n'hésite pas à demander.

++
Qwaz

[Claude_B]

Oui je connais pour le format conditionnel, mais justement jai beaucoup plus que 3 cas et j'ai excel 2003. Mon code fonctionne pour le changement de couleur pour la même cellule, mais je veux faire changer la couleur d'une autre cellule.

Ex. je voudrais que la cellule AS6 change de couleur selon les choix que j'ai écris dans la cellule AS17. Il peut y avoir jesqu'à 12 choix

[ZebreLoup]

Code :

1
2
3
4
5
6
7
8
9
10
If Target.Address = "$AS$17" And Target.Count = 1 Then
Select Case Target.Value
Case "NA"
  Range("AS6").Interior.ColorIndex = 2
Case "DLC"
  Range("AS6").Interior.ColorIndex = 5
Case "ZIC-4"
  Range("AS6").Interior.ColorIndex = 44
End Select
End If

[Claude_B]

Merci pour ton aide, tout fonctionne