FIN ECHEANCE

[YOUSSEF]

Bonjour tous le monde
mon probleme est le suivant
jai un tableau des credits avec le num credit le nom et prenom et la date de fin d'échéance
je veut à la fin de chaque échéance remplacer la date automatiquement par FIN ECHEANCE.
le tableau est sous cette forme
merci.

NUM NOM & prenom date fin echeance
DE 12233 JOE ADAMS MAI 2006

 

[YOUSSEF]

LE FORMZT DU TABLEAU ET SOUS CETTE FORME.

 

[Temjeh]

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

 

[Startus]

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 :

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

 

[Startus]

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