Forums Rue-Montgallet.com
Rue-Montgallet.comRue-Hardware.comRue-Occasion.comRue-DVD.comRue-Jeuxvideo.comRue-AudioVideo.comRue-Telephone.comForums
S'inscrire | S'identifier |
| Recherche avancée | Aide
 
 

Rutkowski et 13 utilisateurs inconnus

 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet :

alerte date d'echeance

 
n°17989
valou75
Profil : Jeune recrue
Posté le 05-12-2006 à 21:02:17  profilanswer
 

Bonjour,
je suis en train de faire une base de données avec des noms d'adhérent et leur date d'adhésion,on me demande de mettre une alerte lorsqu'on arrive 15 jours avant la date d'echeance, il peut y en avoir plusieur a la meme date
l'alerte peut etre une boite de dialogue ou une couleur sur la date d'echeance
si vous pouviez m'aider ca serais sympa, car je debute et on me demande beaucoup
merci d'avance
valou75

n°17992
chitiwi
Profil : Membre
Posté le 06-12-2006 à 17:55:42  profilanswer
 

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

n°18002
valou75
Profil : Jeune recrue
Posté le 08-12-2006 à 15:25:36  profilanswer
 

ok merci,
j'ai suivi tes instruction et adapté à ma base et ca marche
encore merci
valou75

n°18003
chitiwi
Profil : Membre
Posté le 08-12-2006 à 17:00:15  profilanswer
 

De rien au plaisir


Aller à :
Ajouter une réponse