Surbrillance des cellules un mois avant la date de la cellule

[dubock]

Bonjour,

J'ai une base de données avec une colonne de "date de fin d'abonnement" et j'aimerai que ces cellules se mettent en surbrillance lorsque l'on arrive à un mois du terme de l'abonnement.

Exemple. Nous sommes le 23 avril demain, je voudrais que toutes les cellules qui on la date 23 Mai se mettent en surbrillance demain.

Comment faire svp ?

 

[13GIBE59]

Re : Surbrillance des cellules un mois avant la date de la cellule

Bonjour dubock.

Vois le classeur joint.

 

[dubock]

Re : Surbrillance des cellules un mois avant la date de la cellule

C'est parfait mais je ne peux pas m'en servir comme ça..

Je voudrai savoir comment as tu fais s'il te plait ?

 

[dubock]

Re : Surbrillance des cellules un mois avant la date de la cellule

Et je me suis trompé je voudrais la surbrillance des cellules 1 mois avant la date écrite dans la cellule.

Exemple Si dans la cellule il y a écrit 23 mai, je veux que toutes les cellules qui sont comprises entre aujour'hui (1 mois avant) et le 23 mai soient en surbrillance.

Merci beaucoup à tous..

 

[13GIBE59]

Re : Surbrillance des cellules un mois avant la date de la cellule

Dans ton fichier, tu fais un clic droit sur le nom de ton onglet, et tu sélectionnes Visualiser le code" :

Private Sub Worksheet_Activate()
For Each cell In Range("A1:A42")
If CDate(cell.Value) - CDate(Now()) < 31 Then
cell.Interior.ColorIndex = 6
End If
Next
End Sub

Là, Range("A1:A42") représente ta plage de dates. Tu peux la modifier comme tu veux.
Interior.ColorIndex = 3 correspond au rouge.
Choisis la couleur de ton choix en modifiant le chiffre. Vois le fichier joint.

 

[13GIBE59]

Re : Surbrillance des cellules un mois avant la date de la cellule

Si j'ai bien compris...
Modifie le code :

Private Sub Worksheet_Activate()
For Each cell In Range("A1:A42")
If (CDate(cell.Value) >= Now() And CDate(cell.Value) - CDate(Now()) < 31) Then
cell.Interior.ColorIndex = 6
End If
Next
End Sub

 

[dubock]

Re : Surbrillance des cellules un mois avant la date de la cellule

J'ai du mal m'exprimer ou alors je fais mal ce que tu m'as dit de faire..

J'ai dans ma base de donnée une colonne avec des dates de fin d'abonnement. J'ai besoin de relancer les clients un mois avant le terme de cette date.

J'ai donc besoin que ces cellules se mettent en surbrillance un mois avant que l'on arrive à la date qui est écrite à l'intérieur.

Tu avais bien compris ou c'est moi qui fait mal les chose ?

 

[13GIBE59]

Re : Surbrillance des cellules un mois avant la date de la cellule

Alors mon premier code me paraît être presque le bon :

If CDate(cell.Value) - CDate(Now()) = 31 Then

Si la date de la cellule - la date d'aujourd'hui = 31, alors etc...

 

[dubock]

Re : Surbrillance des cellules un mois avant la date de la cellule

Je n'y arrive pas.. Je te joins mon fichier, c'est la colonne E dont j'ai besoin que les cellules se mettent en surbrillance un mois avant les dates inscrites dans les cellules..

Merci à toi JB

 

[jeanpierre]

Re : Surbrillance des cellules un mois avant la date de la cellule

Bonjour dubosk, Jean-Bernard,

Comme dans le fichier joint ?

Bon après-midi.

Jean-Pierre

 

[13GIBE59]

Re : Surbrillance des cellules un mois avant la date de la cellule

Voilà. Il suffisait de changer la plage.

La question se pose : dans le fichier, j'ai écrit :

If CDate(cell.Value) - CDate(Now()) >= 31 Then

,
car

If CDate(cell.Value) - CDate(Now()) = 31 Then

ne surligne aucune cellule puisqu'il n'y a pas de 22/05/2010 "pile-poil" dans la liste...

Edit : salut jeanpierre.