Problème d'ombrage de cellule avec MFC et fonction Jours360

  • Initiateur de la discussion Initiateur de la discussion citizenbaban
  • 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 !

C

citizenbaban

Guest
Bonjour à toutes et à tous,

J'ai un petit souci avec le fichier xls joint.
Il y a une macro (carré rose en bas de la feuille "Suivi") qui me permet de copier la dernière ligne de ce tableau dans la feuille "Lectures". J'applique ensuite par macro 3 MFC sur la feuille "Lectures". Voici l'extrait de macro pour les MFC :

Code:
    With Range("A2:F300").Select
    'Supprime les MFC existantes
    Selection.FormatConditions.Delete
    
    'Ajoute trois conditions
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OU($E2=AUJOURDHUI();$F2=AUJOURDHUI())"
    Selection.FormatConditions(1).Interior.ColorIndex = 4  'Vert
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=OU(ET($E2-AUJOURDHUI()<8;$E2-AUJOURDHUI()>0);ET($F2-AUJOURDHUI()<8;$F2-AUJOURDHUI()>0))"
    Selection.FormatConditions(2).Interior.ColorIndex = 8  'Cyan
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=JOURS360($F2;$H$2)>0"
    Selection.FormatConditions(3).Interior.ColorIndex = 36  'Orange pale

    
    End With

Le problème que des cellules sans date (donc 01/01/1900 pour Excel) se colorent forcément en couleur 36 car la troisième MFC est vraie dans ces cas là.

Comment éviter ce problème et faire en sorte que les cellules vides restent blanches.

D'avance merci

Citizenbaban



Cijoint.fr - Service gratuit de dépôt de fichiers
 
Re : Problème d'ombrage de cellule avec MFC et fonction Jours360

Bonjour,

une suggestion : Remplace ta 3e condition par ceci :

Code:
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ET(JOURS360($F2;$H$2)>0;$F2>0)"
    Selection.FormatConditions(3).Interior.ColorIndex = 36 'Orange pale


Autre suggestion :
Débarrasse-toi de tous les .Select et .Activate de ton code. Ça ralentit énormément ton codes. La plupart ne sont pas requis.
Autre truc :
Place
Application.ScreenUpdating = False en début de code et
Application.ScreenUpdating = True en fin de code

Ça devrait aussi aider à accélérer ton code.
A+
 
Re : Problème d'ombrage de cellule avec MFC et fonction Jours360

Bonjour,

Désolé pour ce retour tardif, la semaine a été chargée.

Pour la formule Grand Chaman, c'était exactement ça.

Je te remercie.

Au passage joli match des canadiens au rugby.

Merci encore
 
- 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

S
  • Question Question
Microsoft 365 comparaison texte
Réponses
5
Affichages
796
S
Réponses
2
Affichages
847
Réponses
1
Affichages
1 K
T
  • Question Question
Réponses
13
Affichages
2 K
toper
T
L
Réponses
2
Affichages
1 K
lepigoennier
L
Réponses
3
Affichages
2 K
N
  • Question Question
Réponses
5
Affichages
3 K
Retour