arrivera une date ajouter un chiffre

[noon]

bonjour a tous

voila mon probleme
dans une cell "a1" j ai la date du jour
et je voudrais que quand j arrive a une date precise ex : le 21/10/04
en cell "b2" cela m ajoute un chiffre ex:"30"

si quelqu un a une idee

merci

 

[sousou]

Bonjour

Tu peux utiliser l'évènnement change de la feuille comme ci-dessous par exemple.


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target = CDate("17/2/2004") Then Target.Offset(0, 1) = Target.Offset(0, 1) + 30
End Sub

 

[noon]

salut sousou
petit m en dire un peu plus
car j ai pris ton code mais ca marque erreur ????

merci