executer la macro sur la cellule Active

**k-eisti** · 25/04/2007, 11h52

Bonjour j'ai une macro qui tourne bien et qui est activée dés que j'ai fini d'écrire dans une cellule mais cette macro fait une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub CouleursIndex()
    For i = 3 To 200
      For j = 1 To 20
       If Cells(i, j).Value = "" Or Cells(i, j).Value <> ED Or Cells(i, j).Value <> AF Or Cells(i, j).Value <> DP Or Cells(i, j).Value <> CB Or Cells(i, j).Value <> RO Or Cells(i, j).Value <> JPF Then
        Cells(i, j).Interior.ColorIndex = 0
        End If
        If Cells(i, j).Value = "PG" Then
         Cells(i, j).Interior.ColorIndex = 3
        End If
        If Cells(i, j).Value = "JPF" Then
         Cells(i, j).Interior.ColorIndex = 4
        End If
        If Cells(i, j).Value = "RO" Then
         Cells(i, j).Interior.ColorIndex = 5
        End If
        If Cells(i, j).Value = "CB" Then
         Cells(i, j).Interior.ColorIndex = 6
        End If
        If Cells(i, j).Value = "DP" Then
         Cells(i, j).Interior.ColorIndex = 7
        End If
        If Cells(i, j).Value = "AF" Then
         Cells(i, j).Interior.ColorIndex = 8
        End If
        If Cells(i, j).Value = "ED" Then
         Cells(i, j).Interior.ColorIndex = 9
        End If
          'Next Cells(i, j)
        Next
    Next
End Sub