si condition A ou B alors

Efgé

XLDnaute Barbatruc

• 5 Mai 2010

• #2

Re : si condition A ou B alors

Bonjour PHILIP,
Peut être avec

Code:

If Not Cells(i, 15) = 12 Or Not Cells(i, 15) = 0 Then Cells(i, 14).Font.Color = vbRed

Cordialement

 

Vote positif 0 Vote négatif

S

spidernono

Guest

• 5 Mai 2010

• #3

Re : si condition A ou B alors

Bonjour,

Pourquoi ne pas appliquer une Mise en Forme conditionnelle sur la colonne N avec cette formule :

Code:

=ET(O1>0;O1<>12)

On remplit en rouge et gras si cette condition est vraie.

 

Vote positif 0 Vote négatif

P

PHILIP

XLDnaute Occasionnel

• 5 Mai 2010

• #4

Re : si condition A ou B alors

Bonjour Efge, bonjour Spidernono

Petit souci quand j'applique ta formule toute les cases se mettent en rouge
cette commande doit faire partie d'une macro qui créé un fichier extrait d'une base de données tous les jours ..
Une autre idée ?

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 5 Mai 2010

• #5

Re : si condition A ou B alors

Re PHILIP, Bonjour spidernono,
Ma ligne de code ne fonctionne pas ?
Cordialement

 

Vote positif 0 Vote négatif

S

spidernono

Guest

• 5 Mai 2010

• #6

Re : si condition A ou B alors

Bonjour,

Je joins le fichier qui m'a servi d'essai, ça passe bien...

Je regarde pour le mettre en vba

 

Pièces jointes

• MFC ROUGE.xls

  31 KB · Affichages: 64

Vote positif 0 Vote négatif

S

spidernono

Guest

• 5 Mai 2010

• #7

Re : si condition A ou B alors

Re Efgé, PHILIP

En VBa, le code pour cette MFC serait :

Code:

    Columns("N:N").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ET(O1>0;O1<>12)"

    With Selection.FormatConditions(1).Font
        .Bold = True
        .Color = -16776961

    End With

(Pas optimisé, mais fonctionne chez moi)

 

Vote positif 0 Vote négatif

P

PHILIP

XLDnaute Occasionnel

• 5 Mai 2010

• #8

Re : si condition A ou B alors

Efgé ,Spidernono

Non Efgé la ligne ne marche pas telle quelle car toute la colonne se met en rouge sans distinction. Spidernono ta mise en forme conditionnelle marche trés bien malheureusement je ne peux l'utiliser car j'ai une macro qui me cree un fichier tous les jours avec des données importées ce qui voudrais dire que je serai obliger d'intervenir tous les jours dessus ce qui n'est pas le but

une autre idée de ligne ?

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 5 Mai 2010

• #9

Re : si condition A ou B alors

Salut

essaie :

Code:

Sub ecriture()
  For i = 1 To [O60000].End(xlUp).Row
    If Cells(i, 15) <> 12 [B]And[/B] Cells(i, 15) <> 0 Then Cells(i, 14).Font.Color = vbRed
  Next
End Sub

 

Vote positif 0 Vote négatif

S

spidernono

Guest

• 5 Mai 2010

• #10

Re : si condition A ou B alors

Bonjour Philip,

Si tu intègre le code que je t'ai mis légèrement plus haut dans ta macro, cela devrait fonctionner, je pense. Il faut juste dire à VBA de sélectionner la nouvelle feuille créée.

 

Vote positif 0 Vote négatif

P

PHILIP

XLDnaute Occasionnel

• 5 Mai 2010

• #11

Re : si condition A ou B alors

Les solutions forum et spidernono marchent !!!


Merci à vous tous

 

Vote positif 0 Vote négatif