ecrit cela ds la partie thisworkbook de VBA pour excel
Private Sub Workbook_Open()
Feuil1.Activate
For i = 2 To 10
If Cells(1, 1).Value + 15 > Cells(i, 1).Value And Cells(i, 1).Value <> "" Then
Cells(i, 1).Interior.ColorIndex = 3
End If
Next i
End Sub
Comment sa marche:
dans la cells(1,1), j'ai mis la fontion =maintenant() qui renvoi la date d'aujourdui (pour que sa marche tu est obligé de mettre cette fonction quelque part sur ta feuille de calcul, place la ou tu veu et change le programme en fonction)
ensuite il y a un balayage des cells(2,1) a cells(10,1) ou sont placés les dates d'echeance; le programme compare date d'aujourdui + 15 jour si cela et superieur a la date d'echeance il te met la celllule en rouge. A toi d'arranger le programme en fonction de ta base de données (position des dates d'écheance etc)
Cela se fait automatiquement a l'ouverture de ton fichier.
Bonne chance
N'hesite pas à demander sil y a probleme