Faire apparaître en surbrillance dans quelle tranche se situe la valeur saisie Résolu/Fermé

Question

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 !

M-12 · Answer

Bonjour
A tester
https://mon-partage.fr/f/gMR70Dxr/

Belinos · Answer

Bonjour et merci, ç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 Merci Bonne journée

M-12 · Answer

Re,
https://mon-partage.fr/f/hSnUCXdF/

Belinos · Answer

merci c'est exactement ce que je cherchais !

Faire apparaître en surbrillance dans quelle tranche se situe la valeur saisie

4 réponses

Discussions similaires