FIN ECHEANCE

Y

YOUSSEF

Guest

• 16 Avril 2006

• #2

LE FORMZT DU TABLEAU ET SOUS CETTE FORME.

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 16 Avril 2006

• #3

Bonsoir

Aulieu de mettre FIN ECHEANCE en attendant mieux:

Avec mise en forme conditionnelle:

Si la valeur est inférieur à ...AUJOURDHU()...EN ROUGE

A+

Temjeh

 

Vote positif 0 Vote négatif

Startus

XLDnaute Occasionnel

• 17 Avril 2006

• #4

SALUT le forum,

En admettant que 'C1' soit la cellule contenant la date de Fin d'échéance...

En formule :
=SI(AUJOURDHUI()>=$C$1;'FIN ECHEANCE';$C$1)
A écrire en 'D1'

En VBA :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [C1]  Date Then [C1]
End Sub

A saisir dans la feuille de l'éditeur VBE

Cordialement...

Message édité par: startus, à: 17/04/2006 03:24

Message édité par: startus, à: 17/04/2006 03:27

 

Vote positif 0 Vote négatif

Startus

XLDnaute Occasionnel

• 17 Avril 2006

• #5

Voila le Code,

Erreur de Copie à 2 reprises... Il est temps d'aller me coucher...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range('C1') Date Then Range('C1')
End Sub

Cordialement

Message édité par: startus, à: 17/04/2006 03:34

Message édité par: startus, à: 17/04/2006 14:01

Message édité par: startus, à: 17/04/2006 14:06

 

Vote positif 0 Vote négatif