Mise en forme conditionnelle via une macro [Résolu/Fermé]

Signaler
Messages postés
75
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
27 mai 2016
-
Messages postés
75
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
27 mai 2016
-
Bonjour,
J'ai un fichier dans lequel j'insere une date et qui me calcul automatiquement tout un tas d'échéance.
Je cherche a créer un macro qui me fasse une mise en forme conditionnelle en fonction de la date d'aujourd'hui...
Ainsi quand on est à 30% de l'échéance la date s'affiche en orange et qu'en j'en suis a 10% elle s'affiche en rouge.
J'avais donc fait une mise en forme conditionnelle via l'assistant d'Excel, mais je souhaiterai également insérer à côté de chaque date une Check-Box qui dès qu'elle est tické (pour dire que l'action lié a l'échance est réalisé) la date se réinscrive en noir, mais ma mise en forme conditionnelle doit être prioritaire je pense car la macro de ma check-box ne marche pas...
J'ai donc tenté d'insérer cette macro:
Private Sub CheckBox22_Click()
If CheckBox22.Value = True Then
Sheets("Masque de saisie").Range("C18").Font.ColorIndex = xlAutomatic
Else
If (Sheets("Masque de saisie").Range("D2") - Sheets("Masque de saisie").Range("C17")) > (0.9 * (Sheets("Masque de saisie").Range("C18") - Sheets("Masque de saisie").Range("C17"))) Then
Sheets("Masque de saisie").Range("C18").Font.ColorIndex = 3
Else
If (Sheets("Masque de saisie").Range("D2") - Sheets("Masque de saisie").Range("C17")) > (0.7 * (Sheets("Masque de saisie").Range("C18") - Sheets("Masque de saisie").Range("C17"))) Then
Sheets("Masque de saisie").Range("C18").Font.ColorIndex = 46
Else
Sheets("Masque de saisie").Range("C18").Font.ColorIndex = xlAutomatic
End If
End If
End If
End Sub
Mais je doit ticker ma box pour la lancer...
Comment faire pour que la macro se lance automatiquement dès que j'ai rentré ma 1ere date et que la macro de ma checkbox passe prioritairement sur ma mise en forme conditionnelle...
En vous remerciant

3 réponses

Messages postés
15333
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 septembre 2020
1 351
Bonjour,

Utilisez une cellule liee a votre checkbox et testez la dans votre MFC
Messages postés
75
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
27 mai 2016

Bonjour f894009,

Premeirement merci pour ta réponse !!

Par contre j'ai oublié de préciser que je suis novice en VBA, c'est première fois que je me lance dedans et donc je découvre.
Tu peux m'expliquer le principe d'une cellule lié et ce que c'est censé apporter dans mon pb?
Messages postés
75
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
27 mai 2016

Pour info vous pouvez trouver le doc ici :)
https://www.cjoint.com/c/FCoiMgsFL6L
Messages postés
15333
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 septembre 2020
1 351
Bonjour,

Je recupere le fichier

A+
Messages postés
15333
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 septembre 2020
1 351
Re,

MFCs modifes avec prise en compte cellule liee a la case a cocher, plus besoin de code VBA

Reste a mettre la couleur du texte comme couleur du fond cellule

https://www.cjoint.com/c/FComRNrMBXf
Messages postés
75
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
27 mai 2016

Mince... Je n'arrive pas a acceder au fichier...
Messages postés
75
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
27 mai 2016

Quand je clique sur le lien ca m'affiche une page web avec un code tres obscur^^
Messages postés
15333
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 septembre 2020
1 351 >
Messages postés
75
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
27 mai 2016

Bonjour,

clic sur le lien dans ccm, ensuite fenetre cijoint faire clic droit sur le lien du fichier et enregistrer la cible ...
Messages postés
75
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
27 mai 2016

merci !!!
Ca fonctionne tres bien