Microsoft 365 parametrer les MFS de facon a changer de couleur par intervalle, verifier aussi le script du macro qui ne s'affiche pas a l'ouverture du document

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

doerma

XLDnaute Nouveau
Bonjour a toute la plate forme,
Je suis confronte a un probleme et j'ai besoin de votre aide
En effet, pour le document ci-joint, J'aimerais pour la colone G nommee "delai"
- mettre en gris apres le delai depasse (quand la date passe);
- mettre en rouge les dates comprises entre le delai et 7 jours
- mettre en orange les dates comprises entre 8 et 30 jours
-mettre en vert les dates preevues pour plus de 30 jours avant le delai

Priere de bien vouloir encore m'aider et de jeter aussi un coup d'oeil dans le macro pour voir qui empeche l'affichage a l'ouverture.
Merci, cordialement Doerma
 

Pièces jointes

Bonjour a toute la plate forme,
Je suis confronte a un probleme et j'ai besoin de votre aide
En effet, pour le document ci-joint, J'aimerais pour la colone G nommee "delai"
- mettre en gris apres le delai depasse (quand la date passe);
- mettre en rouge les dates comprises entre le delai et 7 jours
- mettre en orange les dates comprises entre 8 et 30 jours
-mettre en vert les dates preevues pour plus de 30 jours avant le delai

Priere de bien vouloir encore m'aider et de jeter aussi un coup d'oeil dans le macro pour voir qui empeche l'affichage a l'ouverture.
Merci, cordialement Doerma
Bonjour,
Pour le problème d'ouverture
VB:
Private Sub Workbook_Open()
Dim n&, ligne&
With Sheets("tableau de bord")
'derniere ligne de la colonne G
ligne = .Columns(7).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 2 To ligne
'boucle sur les date si la diff?rence entre aujourdhui et la date est inferieure ? 6 alert passe ? 1
If CDate(Range("G" & n)) - Date < 8 Then MsgBox "Les délais doivent être vérifiés pour ne pas être oubliés.", vbCritical: Exit Sub
Next
End With
End Sub

Pour les MFC
Rouge + ou -7 jours
idem pour orange
Il y a déjà un exemple pour le vert, pourquoi ne pas continuer ?
 
- 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
Retour