Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

aide pour couleur cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nrdz83
  • 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 !

S'inscrire

nrdz83

XLDnaute Impliqué
Bonsoir à tous dans le fichier ci joint j'ai essayé d'adapter le code mfc à mon classeur j'y suis pratiquement arrivé sauf pour la couleur de la cellule C.
Voila je cherche a mettre en couleur verte la cellule C si la cellule B est inférieure ou egal à aujourdhui.
et si supèrieure à la cellule B alors en rouge.

D'avance merci à tpous pour votre aide.

Cijoint.fr - Service gratuit de dépôt de fichiers

le code

Code: 
Sub mfc()
With Range(Cells(DerLig, 1), Cells(DerLig, 6))
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(" & Cells(DerLig, 1).Address & "<>"""";MOD(LIGNE();2))"
    With .FormatConditions(1).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions(1).Interior.ColorIndex = 35
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(DerLig, 1).Address & "<>"""""
    With .FormatConditions(2).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With
With Cells(DerLig, 3)
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(" & Cells(DerLig, 1).Address & "<>"""";" & Cells(DerLig, 3).Address & "<AUJOURDHUI())"
    With .FormatConditions(1).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions(1).Interior.ColorIndex = 3
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(" & Cells(DerLig, 1).Address & "<>"""";" & Cells(DerLig, 3).Address & "<=AUJOURDHUI()+30)"
    With .FormatConditions(2).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions(2).Interior.ColorIndex = 6
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(" & Cells(DerLig, 1).Address & "<>"""";" & Cells(DerLig, 3).Address & ">AUJOURDHUI()+30)"
    With .FormatConditions(3).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions(3).Interior.ColorIndex = 4
End With
End Sub
 
Trier par date Trier par votes
Re : aide pour couleur cellule

Bonsoir Mister Bean 😀
Ca faisait longtemps que je n'avais pas essayer de te donner un cou de main 😉

Je ne comprends pas bien ton code, mais l'idée est de modifier
Code: 
Cells(DerLig, 1).Address
par
Code: 
"A" & DerLig

ou
Code: 
Cells(DerLig, 3).Address
par
Code: 
"C" & Derlig

Etc ...

A+
 
Vote positif 0 Vote négatif
Re : aide pour couleur cellule

Bonsoir,

Effectivement ça y était presque.
L'erreur était qu'il manquait pour le "jaune" <= à aujourdhui()+30 et >= aujourdhui()

Et une autre erreur de distraction était que c'était la colonne C qui était testée alors que la date est en colonne B

voilà le code modifié

Code: 
Sub mfc()
With Range(Cells(DerLig, 1), Cells(DerLig, 6))
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(" & Cells(DerLig, 1).Address & "<>"""";MOD(LIGNE();2))"
    With .FormatConditions(1).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions(1).Interior.ColorIndex = 35
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(DerLig, 1).Address & "<>"""""
    With .FormatConditions(2).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With
With Cells(DerLig, 3)
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(" & Cells(DerLig, 1).Address & "<>"""";" & Cells(DerLig, 2).Address & "<AUJOURDHUI())"
    With .FormatConditions(1).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions(1).Interior.ColorIndex = 3
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(" & Cells(DerLig, 1).Address & "<>"""";" & Cells(DerLig, 2).Address & "<=AUJOURDHUI()+30;" & Cells(DerLig, 2).Address & ">=AUJOURDHUI())"
    With .FormatConditions(2).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions(2).Interior.ColorIndex = 6
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(" & Cells(DerLig, 1).Address & "<>"""";" & Cells(DerLig, 2).Address & ">AUJOURDHUI()+30)"
    With .FormatConditions(3).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions(3).Interior.ColorIndex = 4
End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : aide pour couleur cellule

bonsoir bruno m45 et jms31 super et merci .
Bruno je n'arrivais pas a modifier le code .
Jms 31 super ça fonctionne je cherchais deja a trouver les codes des couleurs
Au fait y a t'il moyen de me dire les correspondances du rouge , vert et orange svp.
Encore merci pour tou amitiés
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

M
  • Question Question
Autres Problème de sélection
Réponses
14
Affichages
332
fanch55
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
543
vgendron
G
  • Question Question
XL 2016 # MFC applicable selon valeur autre cellule Vba
Réponses
9
Affichages
620
TooFatBoy
L
  • Question Question
Microsoft 365 Changement de couleurs de cellules dans plusieurs feuilles suite à une modification
Réponses
4
Affichages
713
lolo_excelbeginner
L
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
935
TooFatBoy
M
  • Question Question
Microsoft 365 VBA fusion défusion cellule gestion cellules
Réponses
8
Affichages
499
mix770
M
R
  • Question Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
2 K
TooFatBoy
  • Résolu(e)
XL 2016 Mettre la même couleur de la dernière cellule colorée
Réponses
5
Affichages
464
TooFatBoy
  • Résolu(e)
XL 2013 Ecriture de code condensé
Réponses
9
Affichages
682
ZAKAO
D
  • Question Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
1 K
Dudy
D
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
936
Kevin38
K
  • Résolu(e)
XL 2021 (Résolu) Aide vrai/faux dans plusieurs colonnes de cases à cocher
2
Réponses
27
Affichages
2 K
Dranreb
B
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
905
bd.afaf
B
S
  • Question Question
XL 2016 Excel - Conditionnal Formating VBA
Réponses
0
Affichages
761
Solo_Wing75
S
  • Question Question
XL 2010 Faire fonctionner une macro que sur des plages de cellules sélectionnées.
Réponses
5
Affichages
654
TooFatBoy
  • Résolu(e)
XL 2019 Ne pas utiliser les MFC
Réponses
5
Affichages
620
Usine à gaz
  • Question Question
XL 2010 conversion en nombre depuis vba
Réponses
2
Affichages
811
gh4
J
  • Question Question
XL 2016 Transformer un nouveau Tableau à double entrée en liste en VBA - impossibilité d'adapter le code
2
Réponses
23
Affichages
2 K
patricktoulon
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…