incrémentation de dates

[François]

Bonjour à tous,

bon, je suis vraiment un tout jeune utilisateur de VBA et je voudrais réaliser une macro me permettant, après avoir rentrer une date, que dans une cellule le nombre de jours restant à parcourir s'affiche (avec la possibilté d'aller dans les négatifs).
Par exemple, je rentre dans une cellule la date du 10/01/2005, eh ben dans une cellule à coté apparaisse le nombre 4 si jamais on est le 06/01/2005.
et une fois la date dépassée, que ce nombre (donc négatif) s'affiche en rouge.
j'espere que j ai été assez clair, merci d'avance de vos conseils car ca commance à fumer !

 

[tatiak]

Bonsoir,
pas besoin de VBA pour cela
voir fichier joint

 

[ChTi'160]

Salut"François"
un petit exemple de ce qui peut se faire
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celDate As Date
celDate = Format(Date, "00000") 'CelDte variable Date aujourdhui au format numerique
If Not Intersect(Target, Range("C9")) Is Nothing Then 'celà ce passe en cellule C9
Range("C9") = Format(Range("C9"), "00000")'au format Numerique
Range("E9") = Format(Range("C9").Value - celDate) 'la cellule E9 est la difference de la date entrée et la date d'aujourdhui
End If
End Sub
à mettre dans Worksheet feuil1
A+++
Jean Marie