Condition dans la condition

Version imprimable

Bonjour, quelqu'un pourrait il me dire ou je me plante

Ce que je cherche à faire

feuil2
en ligne 6 de mon tableau j'ai des lettres qui s'affichent dans les cellules

feuil1
en b47 j'ai une valeur qui ( ne restera pas fixe )

jaimerai que lorsqu'il voit en ligne six la lettre "L" dans mon exemple en ligne 130 de la feuil2 il regarde le chiffre si celui ci est

< a b47 de la feuil1 alors une couleur
> a b47 de la feuil1 alors une autre couleur

avec mon code il reconnait bien les "L" me colorie bien les cases de la ligne 130 de la colonne où il a trouvé le "L" mais, il ne sais pas interpréter si c'est supérieur ou inférieur ça reste toujours au rouge.8O

voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub Worksheet_Change(ByVal Target As Range) For I = 1 To 31 If Feuil2.Cells(6, 26 + I).Value = "L" Then If Feuil2.Cells(130, 26 + I).Value > Feuil1.Range("B47").Value Then '------------bleu Feuil2.Cells(130, 26 + I).Interior.Color = RGB(0, 0, 255) ElseIf Feuil2.Cells(130, 26 + I).Value < Feuil1.Range("B47").Value Then '------------rouge Feuil2.Cells(130, 26 + I).Interior.Color = RGB(255, 0, 0) End If End If Next I End Sub

21/01/2015, 17h37
eric4459

Bonsoir,
Le code fonctionne chez moi, j'ai simplement changé le nom de la macro en enlevant

Citation:

ByVal Target As Range

.
Je ne sais pas pourquoi, on aura surement l'avis d'un spécialiste...
Messieurs les experts du forum à vos explications...
Merci
Eric
21/01/2015, 17h49
UDSP50

Purée moi il ne veut pas que je le supprime cela met créé une erreur étrange non?
21/01/2015, 22h27
clementmarcotte

Bonjour,

Que veux-tu faire exactement ?

Parce que là, ton affaire est patentée pour que ta macro s'exécute à chaque fois que tu cliques sur une cellule de ta feuille et cette feuille-là.

Le target étant la cellule cliquée, même si c'est une cellule vide.

Dans cette ligne:

Code:

If Feuil2.Cells(6, 26 + I).Value = "L" Then

Quand i est égal à 1, tu réfères à la cellule AA6. Est-ce bien cela que tu veux ?

Dans cette ligne:

Code:

If Feuil2.Cells(130, 26 + I).Value > Feuil1.Range("B47").Value Then

Quand i est égal à 1, tu réfères à la cellule AA130. Est-ce bien cela que tu veux ?

Et quand faut-il que tu exécutes ta macro ? Est-ce quand tu cliques sur n'importe quelle cellule, comme tu fais avec cela, ou c'est autre chose qu'il faut faire ?