Bonjour et merci d'avance pour votre aide,
Je n'arrive pas à faire apparaître en surbrillance la cellule dans le tableau qui correspondrait à 2 conditions :
- sa valeur (entre 0 et +400)
- le numéro de tranche (1, 2, 3, 4, 5)
je voudrais que lorsque l'on rentre la tranche et la valeur dans les cellules à droite, le résultat couleur indique dans quelle couleur on se situe mais aussi en plus faire apparaître en surbrillance dans le tableau l'emplacement dans l'intervalle concerné. (Inférieur ou égale à la valeur du tableau)
Par ex : si on entre
Tranche = 1
Valeur = 75
Résultat couleur affiche : Jaune
La case 100 à la tranche 1 est surlignée ou colorée
Merci et bonne journée !
A voir également:
Faire apparaître en surbrillance dans quelle tranche se situe la valeur saisie
ça a l'air de bien fonctionner! même si je n'ai pas tout compris comment vous l'avez fait :)
Je me suis trompé sur la dernière colonne, les valeurs du tableau sont normalement égale à la 3 ème colonne et se mettent en surbrillance lorsque la valeur indiqué est strictement supérieur.
Comment faire ?
Également, est -ce possible de colorier la cellule dans le tableau de la couleur du résultat ? soit Bleu, Jaune, Violet et Rose. (Facultatif mais ce serait pas mal visuellement je pense)
Je remet le code ci-dessous :
Option Explicit
Sub Test()
Dim i%, j%, Tranche%, Valeur%
Dim Ws As Worksheet
Set Ws = Sheets("Feuil1")
Tranche = Ws.Range("H3")
Valeur = Ws.Range("H4")
Ws.Range("B3:E7").Interior.Color = xlNone
Ws.Range("H5").Value = ""
For i = 3 To 7
If Ws.Cells(i, 1).Value = Tranche Then
For j = 1 To 5
If Ws.Cells(i, j).Value >= Valeur Then
Ws.Range("H5").Value = Ws.Cells(2, j).Value
Ws.Cells(i, j).Interior.Color = RGB(255, 255, 0)
Exit Sub
End If
Next j
End If
Next i
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H3") <> "" And Range("H4") <> "" Then
Test
Else
Range("B3:E7").Interior.Color = xlNone
Range("H5").Value = ""
End If
End Sub
Re,
D'où le fait de placer ou de préciser ce que l'on cherche au départ
Je ne suis pas derrière vous ou dans votre tête
https://mon-partage.fr/f/8quulyZ6/
