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

Résolu/Fermé
Belinos
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021
- 16 févr. 2021 à 10:07
Belinos
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021
- 17 févr. 2021 à 15:35


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 !

4 réponses

M-12
Messages postés
1200
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
20 mai 2022
263
16 févr. 2021 à 10:55
0
Belinos
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021

17 févr. 2021 à 09:58
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
0
M-12
Messages postés
1200
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
20 mai 2022
263
17 févr. 2021 à 10:54
0
Belinos
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021

17 févr. 2021 à 15:10
Savez-vous pourquoi quand je passe le format des cellules de standard à monétaire, le code ne marche plus ...?
0
M-12
Messages postés
1200
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
20 mai 2022
263 > Belinos
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021

17 févr. 2021 à 15:25
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/
0
Belinos
Messages postés
15
Date d'inscription
mardi 17 novembre 2020
Statut
Membre
Dernière intervention
17 février 2021
> M-12
Messages postés
1200
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
20 mai 2022

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

17 févr. 2021 à 11:14
merci c'est exactement ce que je cherchais !
0