Discussion :

[k-eisti]

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

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

donc j'ai changé e'expression

Code :

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

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

par

Code :

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

ActiveCell.Value = "ED"

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

d'avance Merci

[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+

[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 :

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

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

[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

[ouskel'n'or]

Dans

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 :

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

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 :

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

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

A+