MEFC et VBA

kinkalero · 4 Octobre 2006

Bonjour tout le monde,

Voilà, je cherche à colorier en orange une ligne entière si la case R de cette ligne est >0
Et si possible valable pour tt les lignes d'un tableau.
ex: La ligne 2 se colorie si R2>0, ligne 5 se colorie si R5>0

le HIC c'est que je ne souhaite pas passer par les mise en forme conditionnelle mais seulement par Visual basic

Merci

Kinkalero

Hervé · 4 Octobre 2006

Re : MEFC et VBA

bonjour

si tu veux le faire des changement de valeur dans la colonne R, code à placer dans le module de la feuille :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 18 Then Exit Sub
Target.EntireRow.Interior.ColorIndex = IIf(Target > 0, 6, xlNone)
End Sub

salut

kinkalero · 5 Octobre 2006

Re : MEFC et VBA

Merci beaucoup Hervé!!!^^

Gorfael · 5 Octobre 2006

Re : MEFC et VBA

kinkalero à dit:
Bonjour tout le monde,

Voilà, je cherche à colorier en orange une ligne entière si la case R de cette ligne est >0
Et si possible valable pour tt les lignes d'un tableau.
ex: La ligne 2 se colorie si R2>0, ligne 5 se colorie si R5>0

le HIC c'est que je ne souhaite pas passer par les mise en forme conditionnelle mais seulement par Visual basic

Merci

Kinkalero

Salut à tous
peut être résolu par MFC avec une formule pour la ligne :
ligne 1 condition 1
Case 1 : la formule est
Case 2 : =($R1>0)
format couleur orange

A+

MEFC et VBA

kinkalero

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

kinkalero

XLDnaute Occasionnel

Gorfael

XLDnaute Barbatruc

Discussions similaires

MEFC et VBA

kinkalero

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

kinkalero

XLDnaute Occasionnel

Gorfael

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency