surveiller l'état d'une cellule

surveiller l'état d'une cellule - VB/VBA/VBS - Programmation

Marsh Posté le 14-05-2005 à 18:15:16    

Bonjour,
Je voudrais créer un macro qui surveille en permanence l'état d'une cellule afin que ci celle ci devient inferieure à 5, la mise en forme soit changé.
 

Code :
  1. If Range("f135" ) <= 5 Then
  2. Range("j16" ).Interior.Color = RGB(255, 0, 0)
  3. Range("j16" ).Font.Color = RGB(255, 255, 255)
  4. Else: Range("j16" ).Interior.Color = RGB(255, 255, 128)
  5. Range("j16" ).Font.Color = RGB(0, 0, 0)
  6. End If

Reply

Marsh Posté le 14-05-2005 à 18:15:16   

Reply

Marsh Posté le 14-05-2005 à 18:39:18    

je pensais plutot a quelque chose du genre

Code :
  1. Sub modifcell ()
  2. Dim Vcellule as object
  3. Dim tteslescellules as range
  4. Set tteslesceluules = Range([A1], [A1].End(xlDown) (par exemple)
  5. For Each Vcellule in tteslescellules
  6.     If unecellule.value <5 Then
  7.        unecellule.Font.Color etc comme tu veux     
  8.     End If
  9. Next
  10. End Sub


 
Bon c'est peut etre pas ça je suis loin d'etre un pro, ya peut etre et surement des erreurs, je n'ai pas testé


Message édité par atmakefka le 14-05-2005 à 18:42:29
Reply

Marsh Posté le 14-05-2005 à 18:55:34    

je pense qu'il vaut mieux utiliser la mise en forme conditionnelle.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 14-05-2005 à 19:04:43    

De plus, je ne vois pas de question...


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 14-05-2005 à 20:16:54    

la mise en forme conditionnelle ne marche pas , dans la cellule en question il y a une recherchev

Reply

Marsh Posté le 14-05-2005 à 20:42:49    

bonjour,
tu poses une macro qui surveille le recalcul  
(dans le module de la feuille concernée)
 
Private Sub Worksheet_Calculate()
If Range("F135" ) <= 5 Then  Range("J16" ).Interior.ColorIndex = 3
End Sub
 
A+


Message édité par galopin01 le 14-05-2005 à 20:57:01
Reply

Marsh Posté le 15-05-2005 à 00:38:54    

excusez moi mais la mise en forme conditionnelle suffisait. je ne croyait pas que cela marchait quand le contenu était une formule

Reply

Marsh Posté le 15-05-2005 à 13:22:31    

Eh, oui...


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Sujets relatifs:

Leave a Replay

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