colorer le jour le plus proche à venir pas passé

JBARBE

XLDnaute Barbatruc

• 31 Mai 2013

• #2

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)

Code:

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

 

Pièces jointes

• Copie de 222.xlsm

  194.8 KB · Affichages: 45

Dernière édition: 1 Juin 2013

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 1 Juin 2013

• #3

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

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 1 Juin 2013

• #4

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 !

 

Dernière édition: 1 Juin 2013

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 1 Juin 2013

• #5

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

 

Pièces jointes

• jour le plus proche.xlsx

  209.1 KB · Affichages: 52

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 1 Juin 2013

• #6

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

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 1 Juin 2013

• #7

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

Denis132 à dit:

Bonjour à tous,

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

@+

Denis

Cliquez pour agrandir...

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

 

Pièces jointes

• 2013-06-01_232327.png

  3 KB · Affichages: 97
• 2013-06-01_232345.jpg

  82.6 KB · Affichages: 99

Dernière édition: 1 Juin 2013

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 2 Juin 2013

• #8

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

anthoYS à dit:

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

Cliquez pour agrandir...

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 !

 

Dernière édition: 2 Juin 2013

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 3 Juin 2013

• #9

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

salut

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

Code:

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

 

Vote positif 0 Vote négatif