XL 2013 PROBLEME MISE EN FORME

DoubleZero

XLDnaute Barbatruc

• 16 Août 2016

• #2

Bonjour, inel94, le Forum,

Comme ceci ?

Code:

=ESTNUM($A$1)=FAUX

A bientôt 🙂

 

Vote positif 0 Vote négatif

I

inel94

XLDnaute Junior

• 16 Août 2016

• #3

Merci mais ça ne marche pas.
Pour que la cellule sois verte j'ai fais valeur de la cellule; différente de; =$A$4:$B$13="".
Pour que la cellule sois rouge j'ai fais valeur de la cellule; égale à; =ESTNUM($A$4:$B$13)=FAUX mais ça reste vert.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 16 Août 2016

• #4

Re-bonjour,

Toutes mes excuses : je n'avais pas bien lu la demande.

Une autre suggestion avec le code suivant, logé dans le module de l'onglet "TABLEAU DOP" :

VB:

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column <= 3 Then
Range("a4:b13").Interior.ColorIndex = xlNone
If Application.WorksheetFunction.CountA(Range("a4:b13")) = 0 Then _
   Range("a3").Interior.ColorIndex = 43 Else Range("a3").Interior.ColorIndex = 3
   End If
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

I

inel94

XLDnaute Junior

• 16 Août 2016

• #5

Merci mais malheureusement je n'y connais rien au VBA

 

Vote positif 0 Vote négatif

I

inel94

XLDnaute Junior

• 16 Août 2016

• #6

Autant pour moi j'ai finalement réussi grace à ta ligne de code. Je peux l'étendre à d'autres cellule?

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 16 Août 2016

• #7

Re-bonjour,

inel94 à dit:

Merci mais malheureusement je n'y connais rien au VBA

Cliquez pour agrandir...

Dans ce cas, attendons la venue d'un membre talentueux en f😀rmules. Elle ne saurait tarder.

A bientôt 🙂

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 16 Août 2016

• #8

Bonjour,

une MFC avec

Code:

=(NBVAL($A$4:$B$13)-NB($A$4:$B$13))>0

eric

 

Vote positif 0 Vote négatif

I

inel94

XLDnaute Junior

• 16 Août 2016

• #9

Merci Eric mais ça ne marche pas non plus. Je ne sais pas si c'est moi ou la formule qui déconne.
J'ai fait Valeur; égale à; =(NBVAL($A$4:$B$13)-NB($A$4:$B$13))>0
Et si je fais "différente de" la cellule reste en rouge

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 16 Août 2016

• #10

Bonjour
Bise à 00🙂

Code:

=SIERREUR(EQUIV("zz";$A$4:$A$13;1);EQUIV("zz";$B$4:$B$13;1))

En revanche ta 1ère règle me paraît curieuse car si tout est rempli de chiffres cela reste vert....

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 16 Août 2016

• #11

ou alors j'ai mal compris...
Voir pj

PS: j'ai changé aussi ta MFC verte

 

Pièces jointes

• Classeur1.xlsx

  14.3 KB · Affichages: 37

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 16 Août 2016

• #12

Re

On peut même simplifier la formul d'Eriiiic car 0=faux

Code:

=(NBVAL($A$4:$B$13)-NB($A$4:$B$13))

mais inel94 il faut utiliser formule et non valeur de la cellule

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 16 Août 2016

• #13

exact 🙂

 

Vote positif 0 Vote négatif

I

inel94

XLDnaute Junior

• 17 Août 2016

• #14

C'est parfait merci beaucoup

 

Vote positif 0 Vote négatif

I

inel94

XLDnaute Junior

• 17 Août 2016

• #15

Bonjour à tous. Je reviens vers vous pour un problème similaire.
J'aimerais mettre en vert la cellule C5 de l'onglet TABLEAU DOP lorsque celle ci correspond à un nom de l'onglet CONFORT.
C'est possible?

 

Pièces jointes

• Classeur1.xlsx

  30.1 KB · Affichages: 34

Vote positif 0 Vote négatif