Microsoft 365 Mise en forme conditionnelle

Moreno076

XLDnaute Impliqué
Bonsoir à tous.

Dans mon fichier je souhaiterais que la colonne i se remplisse en rouge si la quantité de la colonne K est supérieur ou égale à celle de J.

For Each Cel In Range("j2:j" & Lg)
If Range(Cel.Offset(0, 1).Address).HasFormula = True Then
With Cel
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=K" & Cel.Row & "c12"
.FormatConditions(1).Interior.ColorIndex = 3
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End If

J'ai mis un bouton mise en forme pour la macro totale de mise en forme
Merci
 

Pièces jointes

  • GRv1test.xlsm
    258.3 KB · Affichages: 10

Moreno076

XLDnaute Impliqué
Désolé JBARBE je n'avais pas vu ton message.

JE remet mon fichier avec les feuilles chargées reste juste à cliquer sur le bouton gris. Actuellement la colonne J devient rouge si L<= J alors que moi je veux K. Dans la macro mise en forme j'ai deja une VBA je pense que les deux ne sont pas compatibles. Désolé je ne suis pas doué.
 

Pièces jointes

  • GRv3.xlsm
    285.7 KB · Affichages: 7

JBARBE

XLDnaute Barbatruc
Re,
Je le répète, il n'y a pas besoin de macro(s) qui rallentis l'exécution pour une MFC !
Il faut donc supprimer ces boutons certes beau mais inutiles !
D'autre part, maintenant les colonnes ne sont plus celles initialement demandée ( colonne I en rouge )et maintenant K
A rectifier !
 

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510