[VBA Excel] Changer la couleur suite a une formule

Changer la couleur suite a une formule [VBA Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 28-11-2009 à 16:59:39    

Je m'y connais pas en code VBA mes je ses ce que je veux lol
j'ai trouvé un code qui marche bien mes pas sur le résultat d'une formule
Voici le code:

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  2.      If Not Intersect(Target, Range("AB22:AB500" )) Is Nothing Then
  3.        With Target
  4.          Select Case Target.Value
  5.            Case Is < 0
  6.              Call Coloriser_cellule(Target, 1)
  7.            Case Is = 0
  8.              Call Coloriser_cellule(Target, 0)
  9.            Case Is = 1
  10.              Call Coloriser_cellule(Target, 6)
  11.            Case Is > 1
  12.              Call Coloriser_cellule(Target, 1)
  13.          End Select
  14.        End With
  15.      End If
  16.    End Sub
  17.  
  18.    Public Function Coloriser_cellule(ByVal Target_cellule As Excel.Range, ByVal Couleur As Single)
  19.        Target_cellule.Interior.ColorIndex = Couleur
  20.        Range(Cells(Target_cellule.Row, Target_cellule.Column - 27), Cells(Target_cellule.Row, Target_cellule.Column - 6)).Interior.ColorIndex = Couleur
  21.   End Function


Alors explication plus détailler:
quand il y a 1 dans la colonne AB couleur jaune
quand il y a 0 dans la colonne AB sans couleur
quand ses un autre numéros ses une erreur alors noir
la couleur doit allais de la colonne A a la colonne V et la colonne AB (facultatif)
Jusque la quand je tape 1 ou 0 le code marche très bien aucune erreur le seul problème ses que dans la colonne AB il y a une formule et la rien ne vas plus, sa ne marche pas.
pour la mise en forme conditionnelle a évité j'ai 480 lignes et obliger le les reprendre 1/1 lol galère et lourd.
A savoir la dernière valeur si sa peut aider est placer dans la colonne S
 
Configuration: Excel 2000
 
Merci de vos réponses.


Message édité par ricardo cardo le 28-11-2009 à 17:57:10

---------------
-VIP- J.cedric Super Admin de la team des Viperes
Reply

Marsh Posté le 28-11-2009 à 16:59:39   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed