MEFC et VBA

[kinkalero]

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é]

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 :

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]

Re : MEFC et VBA

Merci beaucoup Hervé!!!^^

 

[Gorfael]

Re : MEFC et VBA

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+