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

LUDO2COCA · 21 Novembre 2022

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 · 21 Novembre 2022

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

VB:

=$E3>$H$2

job75 · 21 Novembre 2022

Bonsoir LUDO2COCA, sylvanu,

Vous voulez du VBA alors exécutez :

VB:

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 · 21 Novembre 2022

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

VB:

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 · 21 Novembre 2022

@sylvanu notre ami a écrit dans son fichier :

' bouton qui va faire apparaitre les dates en retard

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

sylvanu · 21 Novembre 2022

Bonsoir Job,

LUDO2COCA à dit:
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 · 21 Novembre 2022

Oui c'est contradictoire avec son essai de macro.

LUDO2COCA · 24 Novembre 2022

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

VB:

=$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 · 24 Novembre 2022

job75 à dit:
Bonsoir LUDO2COCA, sylvanu,

Vous voulez du VBA alors exécutez :

VB:

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 · 24 Novembre 2022

sylvanu à dit:
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 · 24 Novembre 2022

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 · 24 Novembre 2022

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

job75 · 24 Novembre 2022

Bonjour LUDO2COCA,

LUDO2COCA à dit:
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 · 24 Novembre 2022

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 · 24 Novembre 2022

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.

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

LUDO2COCA

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

LUDO2COCA

XLDnaute Nouveau

LUDO2COCA

XLDnaute Nouveau

LUDO2COCA

XLDnaute Nouveau

LUDO2COCA

XLDnaute Nouveau

LUDO2COCA

XLDnaute Nouveau

job75

XLDnaute Barbatruc

LUDO2COCA

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires