executer la macro sur la cellule Active

Version imprimable

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:

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

je veux élminer la boucle pour activé la macro seulement sur la cellule active

donc j'ai changé e'expression

Code:

Cells(i, j).Value = "ED"

par

Code:

ActiveCell.Value = "ED"

et sa ne marche pas , pouriez vous me dire que ce qu'il faut faire

d'avance Merci

25/04/2007, 11h56
ouskel'n'or

Il est placé où, ton code ? Comment est-il lancé ?
Ceci étant, pour dire Activecell, il faut qu'une cellule soit activée donc sélectionnée ;)
Si tu réponds à ma question, on peut peut-être te faciliter les choses...
A+
25/04/2007, 12h00
k-eisti
mon code est palcé dans un module

mais j'apal cett fonction a a partire de la "feuille 1"

et le code est
Code:

1 2 3 4 Private Sub Worksheet_Change(ByVal Target As Range) Call CouleursIndex End Sub
quand je suis sur la "feuille 1" et dés que j'ai fini d'écrire sur une cellule la macro s'active et sa marche
mai come elle fait une boucle sa prend un peut de temps c'est pas méchant
mai je veux optimiser ce temps
25/04/2007, 12h21
k-eisti

je croi que c'est problème de lancement, par ce que quand je met le curseur sur une cellule et je lance la macro sa fonction bien

la soulution est de lancer la macro dés que je commence a écrire dans une cellule et l'arreter a la fin de l'écriture, je ne saias s'il ya moyen de le faire

merci ouskel'n'or
25/04/2007, 12h51
ouskel'n'or
Dans

Citation:

Private Sub Worksheet_Change(ByVal Target As Range)
'...
End Sub

Target est ta cellule. Pourquoi ne pas mettre simplement ton code à la place de '...
Ou alors, envoie l'adresse de ta cellule à ta sub

Code:

Call CouleursIndex(Target.address)

je ne sais même pas si .address est indispensable dans ce cas là. Tu peux tester en l'enlevant
Et dans ta sub
Code:

1 2 3 Sub CouleursIndex(Adresse) Range(Adresse)... cequetuveux End sub
A+