Microsoft 365 Mfc utiliser une formule pour déterminer pour quelles cellules le format sera appliqué en VBA

[LUDO2COCA]

Bonjour à toutes et à tous,
je cherche à automatiser via VBA une MFC et malheureusement je n'y parviens pas.
J'ai bien réussi à faire la MFC par rapport à une cellule mais je ne parviens pas à le faire pour tout un ensemble de cellules.
Je m'explique dans le fichier joint, je souhaite avoir en fonction de la date du jour en H2 l'ensemble des ligne en orange si la date en E dépasse H2.
Merci pour votre aide

 

[sylvanu]

Bonjour Ludo,
Je ne comprends pas votre approche, autant le faire directement avec la MFC avec :

=$E3>$H$2

 

[job75]

Bonsoir LUDO2COCA, sylvanu,

Vous voulez du VBA alors exécutez :

Sub ExempleFormatageConditionnel()
Cells.FormatConditions.Delete 'RAZ
With [A2].CurrentRegion.Resize(, 7)
    .FormatConditions.Add xlExpression, Formula1:="=$E2<$H$2"
    .FormatConditions(1).Interior.Color = RGB(255, 192, 0)
End With
End Sub

A+

 

[sylvanu]

Bonsoir Ludo, Job,
@Ludo, sinon en VBA vous n'en étiez pas loin :

Sub MFCDatesFutures()
[E3].Select
With Range("E3:E100")
    .FormatConditions.Delete                                        'Supprime le formatage
    .FormatConditions.Add Type:=xlExpression, Formula1:="=$E3>$H$2" 'Ajoute une règle
    .FormatConditions(1).Interior.Color = RGB(255, 200, 0)          'Associe la couleur
End With
End Sub

 

[job75]

@sylvanu notre ami a écrit dans son fichier :

' bouton qui va faire apparaitre les dates en retard

d'où Formula1:="=$E2<$H$2"

 

[sylvanu]

Bonsoir Job,

l'ensemble des ligne en orange si la date en E dépasse H2.

J'en déduit qu'on met en orange es dates de la colonne E qui sont dans le futur.

 

[job75]

Oui c'est contradictoire avec son essai de macro.

 

[LUDO2COCA]

Bonjour Ludo,
Je ne comprends pas votre approche, autant le faire directement avec la MFC avec :

=$E3>$H$2

Bonjour c'est uniquement parce que c'est un fichier que je copie au jour le jour d'un autre fichier et sur le fichier initial il y a déjà des MFC qui ne me "concernent" pas et que je supprime toutes les MFC avant de moi mettre celles qui m'intéressent

 

[LUDO2COCA]

Bonsoir LUDO2COCA, sylvanu,

Vous voulez du VBA alors exécutez :

Sub ExempleFormatageConditionnel()
Cells.FormatConditions.Delete 'RAZ
With [A2].CurrentRegion.Resize(, 7)
    .FormatConditions.Add xlExpression, Formula1:="=$E2<$H$2"
    .FormatConditions(1).Interior.Color = RGB(255, 192, 0)
End With
End Sub

A+

Merci je vais essayer dès que possible et vous fais un retour

 

[LUDO2COCA]

Bonsoir Job,

J'en déduit qu'on met en orange es dates de la colonne E qui sont dans le futur.

non je souhaite mettre en orange les dates de la colonne E qui sont anciennes (c'est en fait des OF qui ne sont pas terminés à la date prévue que je souhaite voir apparaitre en orange...et du coup c'est bien la formule =$E3<$H$2 qu'il faut que j'utilise

 

[LUDO2COCA]

En tout état de cause, merci beaucoup à tous pour votre précieuse aide , mais je souhaitais que l'ensemble de la ligne soit colorée en orange toute la ligne 4 de la colonne A à la colonne F

 

[LUDO2COCA]

C'est donc bien le code de Job 75 qui fonctionne

 

[job75]

Bonjour LUDO2COCA,

je souhaitais que l'ensemble de la ligne soit colorée en orange toute la ligne 4 de la colonne A à la colonne F

Ma macro colore 7 colonnes, de A à G, si vous en voulez 6 c'est facile de modifier.

A+

 

[LUDO2COCA]

oui oui Job, j'ai bien vu et je me suis trompé dans ma réponse précédente. Par contre si je souhaite commencer sur la ligne du dessous (ou encore 10 ligne plus bas par ex)je suppose que c'est l'argument Currentregion que je dois modifier, mais du coup que dois-je utiliser car là ca commence forcément sur la première ligne du classeur non?
Merci encore ;-)

 

[job75]

La MFC s'applique à la plage [A2].CurrentRegion.Resize(, 7) et commence donc à la ligne 2.

A2 est la 1ère cellule en haut et à gauche du tableau.