colorer le jour le plus proche à venir pas passé

[anthoYS]

Bonjour,


dans mon fichier les souhaits sont dressés simplement à l'aide d'illustrations.

par exemple aujourd'hui c'est B40 qui devrait apparaître en fond vert dans l'onglet principal en chantier 'QR.
(voir onglet 'exemple voulu)


merci !
à+
😉

 

[JBARBE]

Re : colorer le jour le plus proche à venir pas passé

Bonsoir tous,

La macro s'active à l'ouverture du fichier !

Peut-être avec ceci en nommant les cellules de la colonnes date ( plage) ( ce qui est fait dans l'exemple)

Option Explicit

Sub Auto_Open()
Dim c As Range
Range("Plage").Interior.ColorIndex = xlNone
For Each c In Range("plage")
If c >= Date Then
c.Interior.ColorIndex = 4
Exit For
End If
Next c
End Sub

bonne soirée

 

[Denis132]

Re : colorer le jour le plus proche à venir pas passé

Bonjour Anthoys, Jbarbe,

Ou par mise en forme conditionnelle.

=ET(B2-AUJOURDHUI()<7;B2-AUJOURDHUI()>=0)

@+

Denis

 

[anthoYS]

Re : colorer le jour le plus proche à venir pas passé

bonjour,


merci à tous deux.


à+


edit : à Denis132, j'aurai pensé qu'il aurait fallu figer les "B" en mettant $B2, mais non.
la macro ne fonctionne pas chez moi. j'ai un message d'erreur.
après j'ai du me tromper en implantant la macro dans un autre fichier. Quand j'exécute, rien, une erreur apparaît !

 

[excfl]

Re : colorer le jour le plus proche à venir pas passé

Bonsoir le forum,

Calcul du nombre de jour(s) à venir :

=SI(AUJOURDHUI()-B2>0;"";AUJOURDHUI()-B2)

Calcul du jour le plus proche :

=MAX(C2:C90)

Et MFC.

excfl

 

[Denis132]

Re : colorer le jour le plus proche à venir pas passé

Bonjour à tous,

anthoys, si ton dernier message est pour moi, ce n'est pas une macro mais bien une mise en forme conditionnelle.

@+

Denis

 

[anthoYS]

Re : colorer le jour le plus proche à venir pas passé

Bonjour à tous,

anthoys, si ton dernier message est pour moi, ce n'est pas une macro mais bien une mise en forme conditionnelle.

@+

Denis

Non je parle pour JBARBE.

voici le message d'erreur lorsque j'exécute et dessous la ligne jaune concerné par ce message d'erreur apparemment.

Regarde la pièce jointe 890764

Regarde la pièce jointe 890765

 

[JBARBE]

Re : colorer le jour le plus proche à venir pas passé

Non je parle pour JBARBE.

voici le message d'erreur lorsque j'exécute et dessous la ligne jaune concerné par ce message d'erreur apparemment.

Regarde la pièce jointe 273032

Regarde la pièce jointe 273033

Il est évident que dans votre fichier les cellules concernées ( les dates)colonne Date ( ce qui est le cas dans mon fichier ci-joint ) doivent être nommée (plage) >>>(selection des dates >>>Formule >>>> définir un nom>>>>plage )!!!!

Donc l'erreur signalée doit disparaître aprés cette modif !

Bonne soirée !

 

[Si...]

Re : colorer le jour le plus proche à venir pas passé

salut

pour la macro, le tableau étant défini et nommé,

Sub Quand() 'pour l'appeler quand nécessaire
  Dim C As Range
  [yahoo_QR_objectifs].Interior.ColorIndex = xlNone
  For Each C In [yahoo_QR_objectifs[Date]]
    If C >= Date Then C.Interior.ColorIndex = 4: Exit For
  Next
End Sub