surveiller l'état d'une cellule

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : surveiller l'état d'une cellule

cortana

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 :

If Range("f135" ) <= 5 Then
Range("j16" ).Interior.Color = RGB(255, 0, 0)
Range("j16" ).Font.Color = RGB(255, 255, 255)
Else: Range("j16" ).Interior.Color = RGB(255, 255, 128)
Range("j16" ).Font.Color = RGB(0, 0, 0)
End If

Publicité

atmakefka

je pensais plutot a quelque chose du genre

Code :

Sub modifcell ()
Dim Vcellule as object
Dim tteslescellules as range
Set tteslesceluules = Range([A1], [A1].End(xlDown) (par exemple)
For Each Vcellule in tteslescellules
If unecellule.value <5 Then
unecellule.Font.Color etc comme tu veux
End If
Next
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

AlainTech

Pas trouvé? Cherche encore!

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!

AlainTech

Pas trouvé? Cherche encore!

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

cortana

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

galopin01

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

cortana

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

AlainTech

Pas trouvé? Cherche encore!

Eh, oui...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

surveiller l'état d'une cellule

Sujets relatifs
Macro formule cellule #NOM?...	Afficher un commentaire de cellule dans 1 textbox
[VBA Excel] Fonction rebelle (maj de cellule)	Tri sur un autre champ que la valeur identifiante dans un état
Recuperer la hauteur d'une cellule???	Aspect trombinoscope pour un état
Explications parametres formulaire > etat	Cellule déroulante qui fonctionne sur IE mais pas Mozilla
Image de fond qui n'occupe pas toute la cellule	Pb de format de date d'une TextBox vers une cellule excel
Plus de sujets relatifs à : surveiller l'état d'une cellule

Page générée en 0.044 secondes