Dates arrivant à échéances et MEFC correspondantes

[anthoYS]

Bonsoir,

Comment faire pour que toutes ces MFC soient fonctionnelles?

Merci d'avance à vous tous!

 

[Compte Supprimé 979]

Re : Dates arrivant à échéances et MEFC correspondantes

Salut AnthoYS 😉

La solution ce trouve sur le forum mais aussi chez BOISGONTIER
http://boisgontierjacques.free.fr/fichiers/MFC/MFCPlus3coul.xls

A+

 

[BOISGONTIER]

Re : Dates arrivant à échéances et MEFC correspondantes

Bonsoir,

Voir exemple en PJ

JB

 

[anthoYS]

Re : Dates arrivant à échéances et MEFC correspondantes

Merci, mais je n'arrive pas à traduire ou comprendre ton code...

Désolé.

Je ne sais pas comment adapter ça à mon fichier! 😱

@+

 

[BOISGONTIER]

Re : Dates arrivant à échéances et MEFC correspondantes

Bonjour,

VoirPJ

JB

 

[anthoYS]

Re : Dates arrivant à échéances et MEFC correspondantes

Bonsoir,

Merci BOISGONTIER.
Mais là ou le bas blèsse, c'est que j'ai rajouté des dates à partir de C19 en ayant incrémenté. Puis mis des dates aléatoires...
Et problème elles ne se colorent plus.
Cela doit être du au code que tu as élaboré (insuffisant si l'on étire la plage de donée)...
J'ai rajouter une plage nommée "coloriage" qui va de A2:E29.

Merci par avance de bien vouloir jeter un oeil dans le fichier joint.

 

[BOISGONTIER]

Re : Dates arrivant à échéances et MEFC correspondantes

Voir PJ

Il faut augmenter la taille de ZoneDate

JB

 

[anthoYS]

Re : Dates arrivant à échéances et MEFC correspondantes

oK ; Merci.

Je vais analyser tout ceci.

 

[anthoYS]

Re : Dates arrivant à échéances et MEFC correspondantes

Re, BrunoM45, BOISGONTIER, les autres,

Comment adapter le code à cette feuille, car celui existant avec son lot de MEFC est défaillant, et le résultat n'est pas beau à voir, du coup je peine à m'y retrouver...

Voici le fichier joint en PJ...
Merci par avance ;

@+!

 

[BOISGONTIER]

Re : Dates arrivant à échéances et MEFC correspondantes

Bonjour,

Voir PJ

JB

 

[anthoYS]

Re : Dates arrivant à échéances et MEFC correspondantes

Re,

Merci BOISGONTIER.
Juste une chose, comment faire pour que quand j'étendrais le tableau en ligne 1001, les MEFC soient toujours valables?

Car, là en ligne 1001 (voire même 1000 ou un peu moins bizzarement -alors que cette zone appartient au Tableau1-) si je rajoute une date à échéance à demain, la ligne ne se colore pas en orange...

Comment faire alors?

Merci d'avance

@+ 🙂

 

[BOISGONTIER]

Re : Dates arrivant à échéances et MEFC correspondantes

Définir un nom de champ dynamique:

ZoneDate
=DECALER(Feuil1!$E$2;;;MAX(SI(Feuil1!$E$2:$E$5000<>"";LIGNE(Feuil1!$E$2:$E$5000);0)))

JB

 

[anthoYS]

Re : Dates arrivant à échéances et MEFC correspondantes

Re,

merci, mais si je nomme E:E : ZoneDate, c'est bon aussi je crois.

@+

 

[BOISGONTIER]

Re : Dates arrivant à échéances et MEFC correspondantes

Le temps d'exécution risque d'être important sur 2007.
Autre solution sans nom de champ zoneDate.

Private Sub Worksheet_Calculate()
  Application.ScreenUpdating = False
 [B] [E:E].Offset(, -4).Resize(, 6).Interior.ColorIndex = xlNone[/B]
 [B] For Each c In Range([E2], [E65000].End(xlUp))[/B] 
   If c > 0 Then
      If Date = c.Value Then _
         c.Offset(, -4).Resize(, 6).Interior.ColorIndex = Range("légende")(2).Interior.ColorIndex
      If Date > c.Value And c.Offset(, -1) = "" Then _
         c.Offset(, -4).Resize(, 6).Interior.ColorIndex = Range("légende")(1).Interior.ColorIndex
      If c.Value >= Date + 1 And c.Value <= Date + 4 Then _
         c.Offset(, -4).Resize(, 6).Interior.ColorIndex = Range("légende")(3).Interior.ColorIndex
      If c.Offset(, -1) > 0 Then _
         c.Offset(, -4).Resize(, 6).Interior.ColorIndex = Range("légende")(4).Interior.ColorIndex
    End If
  Next c
End Sub

 

[anthoYS]

Re : Dates arrivant à échéances et MEFC correspondantes

Re,

Merci mais le problème c'est que si j'étend le tableau en ligne 65001, ça ne se colorera plus.
C'est vrai que sous Excel 2007 c'est long le temps de chargement...

Comment trouver une alternative qui puisse me satisfaire?

Merci encore.
@+!