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

Résolu
Belinos Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
Belinos Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -


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

M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
0
Belinos Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
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 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
0
Belinos Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
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 1332 Date d'inscription   Statut Membre Dernière intervention   285 > Belinos Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   > M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
merci c'est exactement ce que je cherchais !
0