Bonjour à toutes et tous
Comme dit dans mon autre post, ça fonctionne parfaitement.
Par contre, souhaitant adapter ce code à un tableau de 36 lignes,
faut il :
Que je répète ce code 36 fois (1 fois par ligne), ou y'a t'il moyen de simplifier cette manip.
Par avance, merci pour vos info.
If Not Intersect(Target, Range('H9')) Is Nothing Then
Select Case Target.Value
Case 'En cours'
Macouleur = 46
Case 'En attente'
Macouleur = 40
Case 'Soldé'
Macouleur = 35
Case 'Déplacé'
Macouleur = 36
Case 'Annulé'
Macouleur = 37
Case 'Pour info'
Macouleur = 34
Case Else
Macouleur = -4142
End Select
Range('A9:H9').Interior.ColorIndex = Macouleur
End If
End Sub [file name=Test_20051124080218.zip size=10220]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20051124080218.zip[/file]