Discussion :

[UDSP50]

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.

voici mon code

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

[eric4459]

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

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

[UDSP50]

Purée moi il ne veut pas que je le supprime cela met créé une erreur étrange non?

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

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

 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 :

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

 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 ?