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

Signaler
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021
-
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021
-


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:

4 réponses

Messages postés
1031
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
25 février 2021
214
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021

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
Messages postés
1031
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
25 février 2021
214
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021

Savez-vous pourquoi quand je passe le format des cellules de standard à monétaire, le code ne marche plus ...?
Messages postés
1031
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
25 février 2021
214 >
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021

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/
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021
>
Messages postés
1031
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
25 février 2021

Merci beaucoup!
désolé je ne pensais pas que ça avait de l'importance dans le code.
Bonne journée
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021

merci c'est exactement ce que je cherchais !