colorisé cellule sous conditions

  • Initiateur de la discussion Initiateur de la discussion elroro
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

E

elroro

Guest
Bonjour a tous,

Je vous explique le problème que je rencontre en ce moment.
Dans la cellule A1 j'ai une valeur numérique qui s'incrémente par addition de valeurs qui sont dans une autre feuille excel.
Je souhaiterai que la cellule B1 se colorise en rouge lorsque la valeur de la cellule A1 arrive à 1million puis qu'elle redevienne de couleur blanche (d'origine) lorsque la valeur de A1 arrive à 1000100. J'aimerai qu'il se produise la même chose, c'est à dire que la cellule B1 se colorise en rouge lorsque la valeur de A1 est comprise entre 2000000 et 2000100 puis idem pour 3000000 et 3000100 ainsi de suite jusqu'à 50millions.

Si quelqu'un à une petite formule pour le sauver !
Un grand merci d'avance à vous
 
Re : colorisé cellule sous conditions

Bonsoir elroro,

2 solutions parmi tant d'autres :

La première par MFC (mise en forme conditionnelle) en choisissant "La formule est" :
Code:
=OU(ET($A$2>=1000000;$A$2<=1000100);ET($A$2>=2000000;$A$2<=2000100);ET($A$2>=3000000;$A$2<=3000100);ET($A$2>=4000000;$A$2<=4000100);ET($A$2>=5000000;$A$2<=5000100))
La Deuxième par macro à placer dans le code de ta feuille de travail :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
        Select Case [A1]
            Case 1000000 To 1000100, 2000000 To 2000100, 3000000 To 3000100, 4000000 To 4000100, 5000000 To 5000100
                [B1].Interior.ColorIndex = 3
            Case Else
                [B1].Interior.ColorIndex = 0
        End Select
    End If
End Sub

A+

Edit : Salut JCGL, Je vois que tu es rapide, concis, efficace. Comme toujours.
 
Re : colorisé cellule sous conditions

Bonjour à tous,
Salut Fred,

Sauf que j'ai oublié les bornes...

=ET(A1<>"";MOD(A1;1000000)>=0;MOD(A1;1000000)<=100)

12192010194632.png

A+ à tous
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
Réponses
3
Affichages
798
D
T
Réponses
1
Affichages
684
P
Réponses
0
Affichages
739
Pépito095
P
A
Réponses
4
Affichages
1 K
T
Réponses
10
Affichages
1 K
F
Réponses
7
Affichages
1 K
fan2foot
F
P
Réponses
3
Affichages
6 K
Pascal31200
P
B
Réponses
2
Affichages
1 K
B
J
Réponses
2
Affichages
560
jfniouk
J
L
Réponses
8
Affichages
1 K
Retour